es geht mir um die Stimme bei der Ausgabe
Code: Alles auswählen
oApp := CreateObject( "SAPI.SpVoice" )
oVoice := oApp:GetVoices()
https://msdn.microsoft.com/de-de/librar ... s.85).aspx
Code: Alles auswählen
iMax := oVoice:getProperty("Count")
FOR i := 1 TO iMax
oItem := oVoice:CallMethod("Item",i-1)
AADD(aVoice, oItem )
NEXT
https://msdn.microsoft.com/de-de/librar ... s.85).aspx unter Methods gibt es nun "GetDescription Method" (hab es auch als Property versucht)
https://msdn.microsoft.com/de-de/librar ... s.85).aspx
Code: Alles auswählen
iMax := LEN(aVoice)
FOR i := 1 TO iMax
#IFDEF Try
IF IsMethod( aVoice[i],"GetDescription")
cText := aVoice[i]:CallMethod("GetDescription")
#ELSE
IF IsMemberVar(aVoice[i],"GetDescription")
cText := aVoice[i]:getProperty("GetDescription")
#ENDIF
ENDIF
NEXT
jemand eine Idee was da schief läuft