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?

markieren

Delphi-Quellcode:

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

Getestet mit Delphi XE und Delphi 2007.

Hallo luke2,

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

Bis bald Chemiker

Ja, ich benutze Win7 (x64). Schade.

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

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

OK, Danke Chemiker. Dann werde ich mal suchen.

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

markieren

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

Hallo Luke2,

Zitat von luke2:

Ja, ich benutze Win7 (x64). Schade.

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

anbei eine funktionierende Applikation (D7) mit Source die mit Win7 64Bit einwandfrei funktioniert.

axel

axellang, beim Ausführen dieser Anwendungen fliegen mir leider diverse OLE-Fehler um die Ohren.
Peter, das Beispiel funktioniert bei mir jetzt auf einmal auch, evtl. lag es daran, dass ich direkt SPVoice1.speak() aufgerufen habe und die Komponente nicht zur Laufzeit erstellt habe, kA...

Danke für die Hilfe.

Hallo,

ich habe mir das noch nicht angesehen, aber ist die Sprachausgabe auf Deutsch?

Bis bald Chemiker

Hallo,

Zitat von luke2:

axellang, beim Ausführen dieser Anwendungen fliegen mir leider diverse OLE-Fehler um die Ohren.
Peter, das Beispiel funktioniert bei mir jetzt auf einmal auch, evtl. lag es daran, dass ich direkt SPVoice1.speak() aufgerufen habe und die Komponente nicht zur Laufzeit erstellt habe, kA...

Danke für die Hilfe.

im zip sind mehrere Anwendungen, verwende die TextToSpeech und **TextToSpeechAnimated. Die anderen sind für die Computer-Sprachsteuerung und zum vorlesen eines Word Dokuments gedacht, da fliegen auch mir ein paar OLE-Fehler um die Ohren.

In der TextToSpeech u. in der TextToSpeechAnimated wird gezeigt wie Text aus einem Memo gelesen und das eben gesprochene Wort markiert wird. Außerdem, wird die TTS Engine Phonetik und der entsprechende Eintrag zu der installierten Stimme in der Reg. angezeigt.

Geschwindigkeit der Stimme kann angepasst werden usw...

** TextToSpeechAnimated, zeigt wie das Gesprochen noch mit einem Avatar animiert werden kann. Das Zip entpacken und erst dann starten, da der Img Ordner (im Zip) vorhanden sein muss.

Also nicht die Anwendung aus dem Zip heraus starten!!

Habe es hier bei uns auf mehreren 7even/Vista/XP 32/64 getestet und es funktioniert einwandfrei.

Axel