Delphi-PRAXiS - Delphi Text to Speech

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Delphi Text to Speech (https://www.delphipraxis.net/97054-text-speech.html)

Hallo,
ich habe folgendes Problem. Ich möchte dass mein Programm einen Text vorliest, der in einer Memo steht.
Leider bekomme ich dies nur in englischer Sprache hin. Wie mache ich das in deutsch und was brauche ich dafür?

Delphi-Quellcode:

			procedure TForm2.BitBtn1Click(Sender: TObject);

var voice: Olevariant;

begin

 voice := CreateOleObject('SAPI.SpVoice');

 voice.speak('Hello World',0);

end;

Re: Text to Speech

Hi,

Da bist du nicht der einzige, der sich das fragt. Ich selbst frage mich, ob es mit SAPI 5.x überhaupt möglich ist (ich habe MS Sam, MS Mary und noch sonen Mann, aber die können alle nur Englisch, mehr habe ich nicht gefunden). Wenn nicht, musst du SAPI 4 verwenden.

Da musst du die dir SAPI 4 und die deutschen Speech-Engines herunterladen. Dummerweise gibts die

Downloadseite für MS Agent, du auch nur TTS herunterladen konntest, nicht mehr.

Dann würdest du unter AxtiveX importieren nach irgendwas mit TextToSpeech suchen. Bei mir gibts das komischerweise zweimal, einmal mit TTextToSpeech und einmal mit TDirectSS, jedoch ist auf den meisten anderen Computern nur TDirectSS verfügbar.

Mfg
FAlter
[edit] [uel]-Tag? [/edit]