Sprachausgabe funktioniert nur im Debug-Modus

[luke2]

Hi,

Der folgende Code zur Sprachausgabe funktioniert im Debug-Modus problemlos und wenn man die exe-Datei direkt aus dem Explorer startet gibt es eine "ungültige Gleitkommadivision" bzw. eine "Division durch Null" als Fehler.

Kann mir jemand sagen warum das so ist und wie ich diesen Fehler beheben kann?

Delphi-Quellcode:

var
  voice: OLEVariant;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.speak('Hello World!', 0);
end;

Getestet mit Delphi XE und Delphi 2007.

[Chemiker]

Hallo luke2,

verwendest Du Win 7, so gibt es Probleme, unter XP (oder XP-Mode) sollte es eigentlich funktionieren.

Bis bald Chemiker

[luke2]

Ja, ich benutze Win7 (x64). Schade.

Gibt es auch unter Win7 die Möglichkeit einer stabilen Sprachausgabe?

[Chemiker]

Hallo luke2,

ich habe das nicht weiter verfolgt, weil es nicht möglich war eine deutsche Ausgabe mit Win 7 zu realisieren(oder nicht so einfach), allerdings kann sich das Mittlerweile geändert haben.

Bis bald Chemiker

[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 :thumb:

[rollstuhlfahrer]

Zitat:

Zitat von grizzly (Beitrag 1114968)

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...