TThread gibt beim Beenden Speicherleck

[DieDolly]

Stark vereinfacht habe ich folgende Threadklasse.
Erstellt wird die mit einem Aufruf von TTest.Run (passiert bei Programmstart und sieht schöner aus als irgendwas anonymes oder mit lokal deklarierten Klassenvariablen). Die private Deklaration von TestThread brauche ich extern nicht, deswegen private.

Das Sleep 10 Sekunden ist zum Testen da.
Wenn ich das Programm innerhalb der ersten 10 Sekunden schließe, bekomme ich einen Memory Leak.

Wie lässt sich das beheben, ohne am grundlegenden Aufbau der Klasse was zu ändern?
Der Thread soll bei Programmstart erzeugt werden aber erst noch warten, bis er seine Arbeit macht.

Delphi-Quellcode:

unit UTestThread;

interface

uses
 System.Classes, System.SysUtils;

type
 TTestThread = class(TThread)
 private
  {Private-Deklarationen}
 public
  {Public-Deklarationen}
  constructor Create;
 protected
  procedure Execute; override;
 end;

type
 TTest = record
 private
  class var TestThread: TTestThread;
 public
  class procedure Run; static;
 end;

implementation

constructor TTestThread.Create;
begin
 inherited Create;

 FreeOnTerminate := True;
end;

class procedure TTest.Run
begin
 TestThread := TTestThread.Create;
end;

procedure TTestThread.Execute;
begin
  Sleep(10000);
  
  GewinneImLotto;
end;

end.

[Zacherl]

Es gibt die Methode Thread.WaitFor() , die du verwenden kannst, um vor Terminierung des Programms auf das Ende des Threads zu warten.

[DieDolly]

Kann man den Thread auch einfach terminieren?
Ich dachte an sowas. Aber das gibt wieder eine Fehlermeldung, wenn der Thread nicht mehr existiert.

Sollten diese beiden Vergleiche nicht eigentlich greifen, wenn der Thread schon lange fertig ist?

Delphi-Quellcode:

// FormDestroy

if Assigned(TTestThread.TestThread) and (TTestThread.TestThread <> nil) then
  TTestThread.TestThread.Terminate;

Zitat:

'Ein extern erstellter Thread kann nicht beendet werden'

(Thread ist schon beendet und diese Meldung kommt im FormDestroy).

[Zacherl]

.Terminate() solltest du grundlegend immer vermeiden. Das erzeugt nämlich seinerseits Memory Leaks, wenn der Thread noch Speicher reserviert hat, den er nicht mehr freigeben kann. Ist beim Programmende allerdings im Grunde so oder so egal. Deine Bedingung trifft nicht zu, da .FreeOnTerminate := true zwar den Thread freigibt, nicht aber die Referenz (deine Variable) auf nil setzt.

Ich persönlich würde auf .FreeOnTerminate := true verzichten und beim Programmende (z.B im OnClose des MainForms) die .WaitFor() Methode nutzen und danach den Thread selbstständig mit .Free() freigeben. Du kannst zusätzlich auch noch Thread.Terminated() überschreiben und dort eine private Statusvariable setzen. Für den Fall, dass der Thread Aufgaben in einer Schleife bearbeitet, kannst du dann dieses interne Feld als zusätzliche Schleifenbedingung nutzen.

[DieDolly]

Zitat:

Deine Bedingung trifft nicht zu,

Wenn ich in die Bedingung ein showmessage('X') schreibe, wird mir das bei Programmende angezeigt, obwohl der Thread schon komplett durch ist.

[Zacherl]

Zitat von DieDolly:

Zitat:

Deine Bedingung trifft nicht zu,

Wenn ich in die Bedingung ein showmessage('X') schreibe, wird mir das bei Programmende angezeigt, obwohl der Thread schon komplett durch ist.

Ja, genauer gesagt trifft die Bedingung immer zu. Gründe siehe einen Post weiter oben.

[DieDolly]

Idee zu WaitFor:
ich setze von Extern ein Flag das sagt, dass das Sleep unterbrochen werden kann. Das werte ich dann hier aus

Delphi-Quellcode:

 i := 0;

   while i < 5000 do
    begin
     Inc(i);
     Sleep(1);

     if FlagXYZ then
      Break;
    end;

Dann WaitFor und Free. Wäre das eine Möglichkeit?

[Zacherl]

Ja genau, so in der Art. Mit dem Überschreiben von .Terminated geht es noch ein wenig eleganter. Dann musst du beim Programmende .Terminate(); .WaitFor(); .Free(); aufrufen. Das FreeOnTerminate darfst du dann aber auf keinen Fall verwenden, weil es sonst wieder sein kann, dass der Thread bereits automatisch zerstört wurde.

[DieDolly]

Muss bei überschriebenen Terminate das inherited dann raus? Weil sonst gibt es ja wieder die Probleme die du erwähntest.

Delphi-Quellcode:

 public
  procedure Terminate; // nicht virtuell
 end;

procedure TTestThread.Terminate;
begin
 inherited;

 BreakSleep := True;
end;

Edit
klappt bis jetzt wunderbar. Das Problem im Großen und Ganzen war tatsächlich FreeOnTerminate.

[HolgerX]

Hmm..

Zitat von Zacherl:

.Terminate() solltest du grundlegend immer vermeiden. Das erzeugt nämlich seinerseits Memory Leaks, wenn der Thread noch Speicher reserviert hat, den er nicht mehr freigeben kann. Ist beim Programmende allerdings im Grunde so oder so egal. Deine Bedingung trifft nicht zu, da .FreeOnTerminate := true zwar den Thread freigibt, nicht aber die Referenz (deine Variable) auf nil setzt.

Ich persönlich würde auf .FreeOnTerminate := true verzichten und beim Programmende (z.B im OnClose des MainForms) die .WaitFor() Methode nutzen und danach den Thread selbstständig mit .Free() freigeben. Du kannst zusätzlich auch noch Thread.Terminated() überschreiben und dort eine private Statusvariable setzen. Für den Fall, dass der Thread Aufgaben in einer Schleife bearbeitet, kannst du dann dieses interne Feld als zusätzliche Schleifenbedingung nutzen.

Aus meiner Sicht ist das Blödsinn!!!

Zitat aus der Delphi Hilfe (hier D6):

Zitat:

TThread.Terminate

Die Methode Terminate signalisiert die Beendigung eines Threads. Dazu wird die Eigenschaft Terminated auf True gesetzt.

procedure Terminate;

Beschreibung

Terminate setzt die Eigenschaft Terminated des Thread auf True und signalisiert, daß der Thread so bald wie möglich beendet werden sollte. Im Gegensatz zu der Windows-API-Methode TerminateThread, die den Thread sofort beendet, fordert die Methode Terminate den Abbruch des Thread nur an. Dadurch kann der Thread vor seiner Beendigung noch erforderliche Aufräumarbeiten durchführen.

Die Methode Execute eines Threads sowie alle von Execute aufgerufenen Methoden sollten die Eigenschaft Terminated regelmäßig abfragen und die Ausführung gegebenenfalls beenden.



TThread.Terminated

Die Eigenschaft Terminated zeigt an, ob der Thread eine Aufforderung zum Beenden erhalten hat.

property Terminated: Boolean;

Beschreibung

Die Methode Execute des Threads sollte ebenso wie alle Methoden, die von Execute aufgerufen werden, die Eigenschaft Terminated abfragen und gegebenenfalls die Ausführung beenden. Die Methode Terminate setzt die Eigenschaft Terminated auf True.

Die Methode Terminate bietet ein Verfahren, einen Thread kontrolliert abzubrechen, wobei allerdings die Kooperation des Execute-Codes Voraussetzung ist.

Somit braucht hier nichts 'Überschrieben' werden, weil TThread.Terminate mit der Abfrage nach 'Terminated' in der Execute Methode genau das macht was notwendig ist!

Somit statt 'FreeOnTerminate := True;' einzubauen, einfach das 'Terminated' abfragen...

Zum Beenden eines Threads im Destroy (ohne FreeOnTerminate := True) somit das

Delphi-Quellcode:

Thread.Terminate;  // Dem Thread 'signalisieren' dass er sich beenden soll (Sprich alles in Execute beenden und raus)
Thread.WaitFor;    // Warten, bis Execute abgeschlossen
Thread.Free;       // Thread freigeben..