AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Sprachausgabe in Thread

Ein Thema von iphi · begonnen am 27. Feb 2020 · letzter Beitrag vom 27. Feb 2020
Antwort Antwort
iphi

Registriert seit: 13. Feb 2009
233 Beiträge
 
Delphi 7 Personal
 
#1

Sprachausgabe in Thread

  Alt 27. Feb 2020, 09:19
Delphi-Version: 7
Hallo,

ich versuche einen Thread zu schreiben, der einen String per Sprachausgabe ausgibt, aber ich bekomme beim Aufruf die EOIeException "CoInitialize wurde nicht aufgerufen", obwohl ich das explizit aufrufe.

Hier mein Thread-Code:
Delphi-Quellcode:
unit UThreadSpeak;

interface

uses
  Classes, ComObj, SysUtils, ActiveX;

type
  TSpeak = class(TThread)
  private
    { Private declarations }
    txt: string;
    stimme: Olevariant;
    destructor Destroy; override;
  protected
    procedure Execute; override;
  public
    constructor Create(text: string);
  end;

implementation

{ TSpeak }

constructor TSpeak.Create(text: string);
begin
inherited Create(true);
txt:=text;
FreeOnTerminate:=true;
CoInitialize(nil);
Stimme:=CreateOleObject('SAPI.SpVoice');
Suspended:=false;
end;

destructor TSpeak.Destroy;
begin
CoUninitialize;
inherited destroy;
end;

procedure TSpeak.Execute;
begin
  Stimme.speak(txt);
end;

end.
  Mit Zitat antworten Zitat
BerndS
Online

Registriert seit: 8. Mär 2006
Ort: Jüterbog
110 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Sprachausgabe in Thread

  Alt 27. Feb 2020, 09:23
Ich würde es mal so versuchen.
Code:
procedure TSpeak.Execute;
begin
  CoInitialize(nil);
  try
    Stimme.speak(txt);
  finally
    CoUninitialize;
  end;
end;
Bernd
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.147 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Sprachausgabe in Thread

  Alt 27. Feb 2020, 09:27
Genau das. Setz dir doch einfach mal einen Haltepunkt im Debugger - Dann siehst du nur Execute auch wirklich das ist was im Thread ausgeführt wird. Create nicht, das wird natürlich im Kontext des Threads ausgeführt der Create auch aufruft.
  Mit Zitat antworten Zitat
iphi

Registriert seit: 13. Feb 2009
233 Beiträge
 
Delphi 7 Personal
 
#4

AW: Sprachausgabe in Thread

  Alt 27. Feb 2020, 09:29
Danke, alles klar!
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
35.458 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Sprachausgabe in Thread

  Alt 27. Feb 2020, 09:48
Jupp, Create ist noch im startenden Thread und Destroy ... mal hier und mal da. (entsprechend FreeOnTerminate)
Nur Execute läuft im Thread und was "nur" in den Thread gehört, gehört auch nur dort rein.

Delphi-Quellcode:
inherited Create(true);
//und
Suspended:=false;
Brauchst nicht.
Wenn Suspended, dann wird der Thread sowieso erst im AfterCreate gestartet, also immer erst nach dem Create.
inherited Create(False); reicht also.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (27. Feb 2020 um 09:52 Uhr)
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
2.405 Beiträge
 
Delphi 10.3 Rio
 
#6

AW: Sprachausgabe in Thread

  Alt 27. Feb 2020, 10:20
Schonmal das versucht ?
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf