Ist Komponente (TThread) freigegeben?

[CK_CK]

Hallo,
ich hab' ein kleines Problem. Und zwar habe ich eine Komponente von TThread abgeleitet.
Ich setze am Anfang der Execute-Methode den Wert FreeOnTerminate auf True, sodass der Thread sich selbst freigibt, wenn er fertig ist.

Wie kann ich jetzt im Hauptprogramm herausfinden, ob der Thread freigegeben ist?
Probiert habe ich folgendes:

Delphi-Quellcode:

if komponente = nil then...

Aber das funktioniert leider nicht :cry:

Weiß jemand Rat?

Chris

[Dani]

Der Thread könnte per Event melden, dass die Execute-Methode am Ende ist und der Thread jetzt beendet wird.
Vielleicht bringt TThread so ein Event auch schon von Haus aus mit, bin mir nicht sicher.

Delphi-Quellcode:

procedure TMyThread.Execute;
begin
...
  if Assigned(FOnThreadFinished) then FOnThreadFinished(Self); //oder so...
end;

[thkerkmann]

Hi,

schau mal nach TThread.OnTerminate

das ist das Event.

Gruss

[CK_CK]

Hi!

Vielen Dank für eure Antworten. Zur Not werde ich es wohl so machen (ist nur so unpraktisch, wenn ich für jeden Thread auch noch eine Variable erstellen muss, die anzeigt, ob er fertig ist...).

Wenn doch noch jemandem eine einfachere Methode einfällt (am liebsten wäre mir: IstFreigegeben(komponente) mit Rückgabewert Boolean), immer her damit... :stupid:

Einen schönen Abend noch,
Chris

[CK_CK]

*PUSH*
Letzter Versuch, ansonsten muss ich die Lösung mit dem Event nehmen... :cry:

Chris

[Luckie]

Setz die Variable auch auf nil, wenn du sie freigibst.

[CK_CK]

Wie meinst du das denn?
Soll ich innerhalb der Komponente in der überschriebenen Destroy-Methode Self := nil; schreiben?
Oder innerhalb der Hauptanwendung komponenze := nil;? Aber woher soll die wissen, dass der Thread fertig ist?

Oder stelle ich mich gerade blöd an? :stupid:

Chris

[Luckie]

Gibt man ein Objekt mit free frei wird das Objekt zwar aus dem Speicher entfernt, die Variable aber beinhaltet noch einen, nicht mehr gültigen, Zeiger auf einen Speicherbereich. Somit schlägt Assigned oder die Abfrage auf nil fehl und ergibt true.

Delphi-Quellcode:

  FreeAndNil(obj);

Oder

Delphi-Quellcode:

  obj.Free;
  obj := nil;

Aber da du einfach zu wenig Informationen gibst, wie das Threadobjekt erzeugt wird, was das Threadobjekt macht und wie es wieder freigegeben wird, kann man dir auch nicht so recht helfen.

[CK_CK]

Oh, entschuldigung :oops:

Also, eine genaue Beschreibung:
Ich habe einen Thread, der mit Hilfe von IdFTP eine Datei runterlädt. Die IdFTP wird im überschriebenen Create des Threads erzeugt und im überschriebenen Destroy wieder freigegeben.
Im Create des Threads setze ich außerdem die Variable FreeOnTerminate auf True. Dadurch sollte der Thread sich nach ausführen der Execute-Methode selbst freigeben.

Diesen Thread erzeuge ich im Programm dynamisch mit DL := TMyThread.Create(True); (True, damit er nicht sofort startet). Wenn ich jetzt mit einem Button z.B. den Thread anhalten will, muss ich irgendwie vorher wissen, ob er fertig ist, also habe ich folgendes versucht:

Delphi-Quellcode:

if DL <> nil then
begin
  if DL.Suspended then
    DL.Resume
  else
    DL.Suspend;
end;

Da aber, wie du bereits gesagt hast, die Objektvariable nicht auf nil gesetzt wird, wenn der Thread fertig ist, weiß ich nicht, wie ich sonst prüfen soll, ob der Thread fertig ist.

An welcher Stelle müsste ich das FreeAndNil denn verwenden? Innerhalb der Destroy-Methode des Threads bekomme ich eine AV, wenn ich FreeAndNil(Self); schreibe.

Chris

[markusj]

Vorschlag: Du legst einen Counter an, der beim Starten eines Threads inkrementiert und beim beenden dekrementiert wird.
Ist die Variable = 0, läuft kein Thread mehr.

mfG
Markus