Harbour falando via OLE -> Sapi.SPVoice
Enviado: 01 Fev 2024 10:03
Olá!
Código do Antonio Linares.
Saudações,
Itamar M. Lins Jr.
Código: Selecionar todos
function main()
local oVoice := CreateObject( "Sapi.SPVoice", "WithEvents" ) // I have not checked if the second parameter is taken into account
// oVoice:WithEvents = .T.
oVoice:EventInterests = 327679
oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | ... | QOut( ... ) } )
oVoice:Speak( "harbour and xharbour" )
return nil
Saudações,
Itamar M. Lins Jr.