ExternalThread Delphi 2009

[schmitzpm]

Hi,

ich weiß, dieses Problem wurde bereits von jemand anderem mal gepostet, aber dessen eigene Lösung bringt mich nicht weiter da ich bereits mit inherited arbeite.


Ist jemand anders vielleicht auch schon über ein TThread Problem in D2009 gestolpert? Ich verwende eine eigene Thread Klasse die von TThread ableitet ist.

Wenn ich nun FFileChanged.Terminate aufrufe, bekomm ich die neue Exception SThreadExternalTerminate aus Classes.pas um die Ohren gehauen ("Ein extern ersteller Thread kann nicht beendet werden").

Das liegt am Property ExternalThread - welches aber read-only ist.

Selbst wenn ich mit folgendem Code

Delphi-Quellcode:

constructor TThreadFileChanged.Create(AWatchFile: String);
begin
   inherited Create(False);
   WatchFile:= AWatchFile;
   FreeOnTerminate := True;
   Priority := tpIdle
end;

Wenn ich den neuen Thread benutze frage ich extra nach ExternalThread ab.
Auch wenn der Wert True ist wird dies ignoriert und Terminate (dann mit Fehler) durchlaufen.

Delphi-Quellcode:

if FFileChanged.ExternalThread = True
then begin
   Exit;
end;

FFileChanged.Terminate;

Ich verwende den Thread in einem Editor mit mehreren Tab-Reitern um zu prüfen ob sich eine Datei durch ein anderes Programm verändert hat.
Beim Wechsel des Tabs schalte ich den Thread aus und danach wieder an.
Erst nach mehrfachem Hin-und Herschalten tritt das Problem dann auf.


Hat jemand eine Idee?