Sprachausgabe funktioniert nur im Debug-Modus

[luke2]

OK, Danke Chemiker. Dann werde ich mal suchen.

[grizzly]

Hier habe ich was gefunden: http://stackoverflow.com/questions/3...text-to-speech

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  voice: OLEVariant;
  SavedCW: Word;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  SavedCW := Get8087CW;
  Set8087CW(SavedCW or $4);
  voice.speak('Hello World!', 0); // Funktioniert nur, solange hier 0 steht
  Set8087CW(SavedCW);
end;

Das speak im obigen Beispiel funktioniert nur, solange es nicht asynchron (Parameter 1 statt 0) aufgerufen wird, weil das Objekt am Ende der Prozedur aufgeräumt wird, noch bevor der Rechner zu Sprechen begonnen hat. Also ganz so wie hier im Beispiel sollte man es nicht umsetzen

Müßte man nicht eigentlich beim Programmstart noch ein CoInitialize(nil) machen?

Gruß
Michael

[luke2]

Super, Vielen Dank grizzly, damit funktioniert es

[rollstuhlfahrer]

Zitat von grizzly:

Müßte man nicht eigentlich beim Programmstart noch ein CoInitialize(nil) machen?

CoInitialize / OleInitialize übernimmt die VCL für dich. Solange du also die VCL benutzt, brauchst du dich um sowas nicht zu kümmern.

Bernhard

[luke2]

Funktioniert doch nicht so ganz, nach ein paar Aufrufen kommt der gleiche Fehler...

[Peter1999]

Hast du dir das Tutorial schon einmal angesehen CLICK ?
Das funktioniert bei mir super, auch unter Win7 64bit.

Viele Grüße...

[luke2]

Leider auch damit der gleiche Fehler...

[Peter1999]

Also ich habe jetzt gefühlte 100mal auf "vorlesen" geklickt und es gab kein Problem bei diesem Beispiel.
Bei den beiden ursprünglichen Posts hatte ich das Problem aber auch, so wie du es beschrieben hast.