Okay, heres the updated example program :
Rem Project: TestSpeech
Rem Created: 13/01/2003 18:33:20
Rem ***** Main Source File *****
ptr=make memory(1024)
print "INIT:";SpeechInit()
x=getVoices()
print "Number of Voices:";x
print "Voices:";returnVoiceList$()
sync
print SetVoice("Microsoft Mary")
print say("Hello",0)
print setVoice(2)
print say("Voice 2",0)
print say("To be or not to be, that is the question.",SPF_ASYNC)
rem Wait while speech gets ready
x=IsSpeaking()
while x=SPEECH_ABOUTTOSTART
sync
x=IsSpeaking()
endwhile
x=IsSpeaking()
while X=SPEECH_CONTINUING
print "Its talking!"
x=IsSpeaking()
sync
endwhile
print "Finished this one"
sync
print say("Initiating self-destruct mechanisim. Have a nice day!",SPF_ASYNC)
print WaitUntilDone(2000)
print "Please Wait... Writing speech to file"
print "Result:";SpeechToWav("Hello World1","C:SPEECH1.WAV",SPSF_8kHz8BitStereo)
print "Result:";SpeechToWav("Hello World2","C:SPEECH2.WAV",SPSF_8kHz8BitStereo)
print "Press any key when SAY has finished."
print "DeInit:";SpeechDeInit()
delete memory (ptr)
wait key
end
You will, of course, need the constants file from my web site (that hasn't changed).
In order to use Speech, you need to make sure its fully working on your system first - if its not working/installed, you will need to download the system from Microsoft (the SDK is 200Mb, but the executables are 80Mb or so).
Avatar & Logo by Indi. Insert witty comment here...
