TThread gibt beim Beenden Speicherleck

[Schokohase]

Dafür gibt es schon eine extra Methode

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..

nämlich

Delphi-Quellcode:

Thread.Free;

- ja, so einfach

[Zacherl]

Zitat:

Zitat von Schokohase (Beitrag 1426816)

Dafür gibt es schon eine extra Methode [..] - ja, so einfach

Oh, ist das schon immer so gewesen?

@HolgerX:
Du hast recht, es war auch nicht die

Delphi-Quellcode:

.Terminated()

Methode, sondern

Delphi-Quellcode:

.TerminatedSet()

oder sowas in der Art. Kann leider grade nicht nachschauen. Hintergrund des Überschreibens war, dass meine Threads oft auf Events reagieren und die entsprechende Wait Methode blockiert ja. Im

Delphi-Quellcode:

.TerminatedSet()

habe ich dann noch das Event signaled. Da vorher dann auch Terminated gesetzt wurde, kann ich meine Schleife dann direkt beenden und muss nicht erst warten, bis das Event "zufällig" wieder auslöst.

[mjustin]

Zitat:

Zitat von Schokohase (Beitrag 1426816)

Dafür gibt es schon eine extra Methode
nämlich

Delphi-Quellcode:

Thread.Free;

- ja, so einfach

Seit ich diesen Hinweis gelesen habe bin ich kein Freund von TThread.Free mehr:

Zitat:

NEVER call Free() on a thread that has not been signaled to terminate yet. DO NOT rely on the thread destructor calling Terminate() and WaitFor() for you. ALWAYS call them explicitally in your own code instead. Plenty of people have run into problems over the years by freeing a running thread and letting the destructor do the termination. It just does not work correctly, and is not the right place to handle this anyway. – Remy Lebeau

[peterbelow]

Zitat:

Zitat von DieDolly (Beitrag 1426802)

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.

Du mußt auf eine Art und Weise warten, die es erlaubt, den Thread auch aufzuwecken, wenn er sich vorzeitig beenden soll.
Das klassische Konstrukt dafür verwendet einen TSimpleEvent. Den erzeugst Du im Constructor der Thread-Klasse bevor Du den inherited constructor aufrufst (nur wichtig in alten Delphi-Versionen). In der Execute-Methode wartest Du dann auf den Event, in deinem Fall mit einem Timeout, der deiner Sleep-Zeit entspricht. Dann überschreibst Du Terminate als

inherited;
WaitEvent.setEvent;

Der Rückgabewert von TSimpleEvent.Waitfor sagt Dir, ob die Methode zurückgekehrt ist weil der Event ausgelöst wurde oder der Timeout abgelaufen ist.