Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#1

XE2: TThread.Start erzeugt Exception

  Alt 11. Feb 2012, 14:28
Hallo,

in einem Projekt das ich aus Delphi 7 in XE2 portiert habe, erzeuge und starte ich einen Thread so:

Delphi-Quellcode:
  //Thread erzeugen
  MD_Thread := TDatenThread.Create;

  //Priorität festlegen
  MD_Thread.Priority := tpNormal;

  //Thread nach dem Freigeben selbstständig löschen lassen
  MD_Thread.FreeOnTerminate := true;

  //Thread starten
  MD_Thread.Resume;
Unter XE2 wird "Resume" als veraltet angewarnt und man solle "Start" benutzen".

Wenn ich aber nun "Resume" durch "Start" tausche, dann erhalte ich eine Exception:
Zitat:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt NCUpgradeReader.exe ist eine Exception der Klasse EThread mit der Meldung 'Start kann für einen laufenden oder unterbrochenen Thread nicht aufgerufen werden' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
Klick ich dann auf "Fortsetzen" so läuft der Thread an und alles wird wie gewohnt abgearbeitet.

Nun frag ich mich, warum das Start eine Exception schmeisst?
Da bleib ich dann doch lieber bei "Resume".

[Edit]
Argl!

Im constructor von TDatenThread war create(false) drin.
Deswegen wurde der Thread sofort gestartet. Dann muss er natürlich bei "Start" eine Exception schmeissen

Delphi-Quellcode:
constructor TDatenThread.Create;
begin
  inherited Create(false);

  //StringList erzeugen
end;
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<

Geändert von Helmi (11. Feb 2012 um 14:40 Uhr)
  Mit Zitat antworten Zitat