Text-to-speech API?

3 Antworten

Mit VBScript habe ich einst die SAPI.SPVoice eingebunden

Sub Speak(sText)
  Wscript.CreateObject("SAPI.SpVoice").speak sText
End Sub

Du kannst dir die verfügbaren Sprachen / Stimmen wie folgt auflisten:

Sub ShowVoices()
  Dim sMsg : sMsg = ""
  Dim Stimme
  Dim Stimmen

Set Stimmen = Wscript.CreateObject("SAPI.SpVoice") For Each Stimme in Stimmen.GetVoices() sMsg = sMsg & Stimme.GetDescription() & vbCrLf Next MsgBox sMsg
Set Stimme = Nothing End Sub
Woher ich das weiß:Berufserfahrung – Programmierer

Kostenfrei wirds schwierig. Da gibts kaum was brauchbares.