Testing WIN10 System.Speech

[stanl]

Code (WINBATCH) Select Expand



;Winbatch 2018B - Win10 Voices
;==================================================================
ObjectClrOption("useany","System.Speech")
oSpeech = ObjectClrNew( "System.Speech.Synthesis.SpeechSynthesizer")
oVoices=oSpeech.GetInstalledVoices()


voices="Name,Gender,Age,Culture,Description,ID":@CRLF
isVoice=0
ForEach v in oVoices
   oV=v.VoiceInfo
   n=oV.Name
If StrIndex(n,"David",0,@FWDSCAN)>0 ;or pick your own
   n1=n
   isVoice=1
Endif
   g=oV.Gender
a=OV.Age
c=OV.Culture
d=oV.Description
i=oV.Id
voices = voices:n:",":g:",":a:",":c:",":d:",":i:",":@CRLF
Next
Message("Voices",voices)


If isVoice
   oSpeech.SelectVoice(n1)
talk="I want my MTV!":n1
oSpeech.Speak(talk)
Endif
oVoices=0
oSpeech=0
Exit
;==================================================================