Hi,
Ich die sprachausgabe in einen Thread verlegen:

zusammenfalten · markieren

Delphi-Quellcode:

type

  TReadThread = class(TThread)
 private
  FText: String;
 protected
  procedure Execute; override;
 public
  property Text: String read FText write FText;
end;


procedure TReadThread.Execute;
var oleVoice: OLEVariant;
begin
    oleVoice := CreateOLEObject('SAPI.SpVoice');
    oleVoice.Speak(ftext);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   ReadThread := TreadThread.Create(true);
   ReadThread.FreeOnTerminate := True;
   ReadThread.Text := 'Das ist ein Test';
   ReadThread.Resume;
end;

Jetzt bekomme ich immer einen fehler

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project PowerConsole.exe raised exception class EOleSysError with message 'CoInitialize wurde nicht aufgerufen'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Was mache ich falsch?

Mfg ReDoX

Hi,

die Fehlermeldung sagt doch bereits alles. Du musst die Prozedur "CoInitialize" aufrufen.

mfG
mirage228

Hallo,
bevor der Thread terminiert CoUninitialize nicht vergessen.

[Edit] Das hat damit zu tun, dass jeder Thread sein eigenes Apartment anmelden muss.
Das passiet mit dem Aufruf von Coinitialize.[/EDIT]

Ich habe es jetzt so

zusammenfalten · markieren

Delphi-Quellcode:

procedure TReadThread.Execute;
 var oleVoice: OLEVariant;
begin
    CoInitialize(nil);
     try
      oleVoice := CreateOLEObject('SAPI.SpVoice');
      oleVoice.Speak(ftext);
       finally
        CoUninitialize;
     end;
end;

gemacht.
Und was soll ich sagen es funktioniert
Danke!
Mfg ReDoX

Hallo ReDoX,
spricht die SAPI von Haus aus nicht Englisch? Oder hast Du eine deutsche TextToSpeech Engine.

Hallo Jens,
die SAPI spricht bei mir auch englisch aber es war ja nur ein test ,weil mir auf englisch nichts eingefallen ist .
Aber jetzt wir der text ja vom Benutzter gewählt.
Gibt es die SAPI auch auf deutsch?
Mfg ReDoX

Hallo ReDoX,
klar gibt es deutsche TextToSpeech (tts) Engines.
Sie mal auf den MS-Agent Download Seiten. Ich habe die deutsche Engine früher oft zusammen mit dem Agent verwendet. Wenn Du es erfolgreich mit dem SAPI verwenden kannst, dann bitte hier dokumentieren.

Hallo,
habe gerade harausgefunden, dass die deutsche TTS-Engine von Lernout&Hauspie, die es auf den Agent Seiten gibt für das SAPI 4.0 sind und nicht mit dem auf XP installierten SAPI 5.0 zusammenarbeiten.