Silvio:
I found another way to implement voices. You need:
1) google, download and INSTALL sapi5x.exe (I installed sapi51.exe)
2) download TTS voices in desired langauges (I found a lot of them in
http://www.vioio.com/voices.htm). But you can also use a paid high quality commercial voice.
Here is the code:
//Create
oVoice:=CreateObject("Sapi.SpVoice")
// Installed voices description
nTotalVoices := oVoice:GetVoices():Count() //Number of installed voices
aV:={}
FOR i:=0 TO nTotalVoices-1
o:=oVoice:GetVoices()[i]
aAdd(aV,o:GetDescription())
NEXT
//Select voice nVoice
oVoice:Voice:=oVoice:GetVoices()[nVoice] //nVoice=0..nTotalVoices-1
SysRefresh()
//Configure
oVoice:Volume:=100 //0..100
oVoice:Rate:=0 //-10..10 (Speed)
//Actions
oVoice:Speak(cText)
oVoice:Pause()
oVoice:Resume()
More information about sapi.svoice in:
http://msdn.microsoft.com/en-us/library ... 85%29.aspx Tested working with FWH1007+xH1.216633+BCC55 in WinXP-SP3. No time for write a class (sorry).
Regards
César Lozada.
Posted: Wed Oct 27, 2010 1:43 pm