Thread mit OLEVariant

[ReDoX]

Hi,
Ich die sprachausgabe in einen Thread verlegen:

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? :gruebel:

Mfg ReDoX

[mirage228]

Hi,

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

mfG
mirage228

[Jens Schumann]

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]

[ReDoX]

Ich habe es jetzt so

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 :thumb:
Danke!
Mfg ReDoX

[Jens Schumann]

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

[ReDoX]

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

[Jens Schumann]

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.

[Jens Schumann]

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.