Konu: speechlib kullanımı
speechlib dll kullanımı hakkında yardım edermisiniz. yada ingilizce bir kelime yada metni
sesli telefuzunu yapabileceğim yöntem hakkında yardımlarınızı bekliyorum
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Com / Dcom ve OLE » speechlib kullanımı
speechlib dll kullanımı hakkında yardım edermisiniz. yada ingilizce bir kelime yada metni
sesli telefuzunu yapabileceğim yöntem hakkında yardımlarınızı bekliyorum
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
bu da benden (ms agent gerekiyor):
SET Classlib TO (HOME()+"ffc\_agent.vcx") addi
PUBLIC msagent
msagent=CREATEOBJECT("_agent")
msagent.load("Peedy","Peedy.acs")
msagent.setActiveAgent("Peedy")
msagent.show(680,400)
msagent.activeagent.LanguageID="&H0409"
msagent.speak("Hello")
fox4um » Com / Dcom ve OLE » speechlib kullanımı