TTS in Windows?

[TurboMagic]

Danke für die ganzen Links.
Habe eine erste eigene TTS Demo erstellt und die läuft soweit mal.

[thomaskroger]

Hallo TurboMagic,
richtig toll wäre es gewesen, wenn du deine Lösung präsentiert hättest.

Alternativ hier:

Delphi-Quellcode:

procedure TFormMain.Voice(text:string);
var
  OLE_voice:OleVariant;
begin
  OLE_voice:=CreateOleObject('SAPI.SpVoice');
  OLE_voice.speak(text);
end;

Geht ab Delphi XE6 und Windows 10.

Thomas

[TurboMagic]

Zitat von thomaskroger:

Hallo TurboMagic,
richtig toll wäre es gewesen, wenn du deine Lösung präsentiert hättest.

Da geb' ich dir recht, da das aber im Rahmen meines Angestellen verhältnisses war,
ist das nicht ganz so einfach.

Aber im wesentlichen die richtige Typbibliothek importieren und es kann los gehen.

Grüße
TurboMagic

[Delphi.Narium]

Zitat von thomaskroger:

Hallo TurboMagic,
richtig toll wäre es gewesen, wenn du deine Lösung präsentiert hättest.

Alternativ hier:

Delphi-Quellcode:

procedure TFormMain.Voice(text:string);
var
  OLE_voice:OleVariant;
begin
  OLE_voice:=CreateOleObject('SAPI.SpVoice');
  OLE_voice.speak(text);
end;

Geht ab Delphi XE6 und Windows 10.

Thomas

Funktioniert auch mit Delphi 7