speechlib kullanımı

public loSpeak as SAPI.SPVoice

loSpeak = CREATEOBJECT("SAPI.SPVoice")

loSpeak.Speak("This is text to speech default voice.")

loSpeak.Speak("Now will speak using available voices.")

 

FOR ix = 0 TO loSpeak.GetVoices().Count-1

    loSpeak.Voice = loSpeak.GetVoices().Item(m.ix)

    loSpeak.SPEAK("Hello there. Is it good?")

endfor

 

loSpeak.Voice = loSpeak.GetVoices("gender=female").Item(0)

loSpeak.Speak("This is 1st female voice.")

loSpeak.Speak("On the internet there are crystal clear speech engine versions."+;

"You can even define punctuations, reactions like laugh, cry..."+;

"However, I come for free and installed by default with XP!")

TEXT TO m.lcRest TEXTMERGE noshow

Besides speaking hardcoded text like this:

I can speak streams or read a complete file if you point me to the filename.

Press F4 to pause and F5 to resume.

I am aware of what a date looks like. For example today is <<DATE()>>.

For the visually impaired person I can even read them a complete form.

I mean I know what a commandbutton, combobox etc. object is.

To see what other capabilities I have like volume changing, visual user interface, pause, stop ... edit my code and check what intellisense brings after loSpeak.

You can find complete documentation about me on MSDN library.

Goodbye Chat-in. 

ENDTEXT

ON KEY LABEL F4 loSpeak.Pause

ON KEY LABEL F5 loSpeak.Resume

lcFileName = SYS(5)+CURDIR()+"deletemelater.txt"

STRTOFILE(m.lcRest, m.lcFileName)

loSpeak.Speak(m.lcFileName, 4 + 1)

* F4/F5 i eski haline getirmeyi unutmayin