Wie schließe ich einen schlafenden Thread ?

[MarLe]

Hallo zusammen,

ich starte einen Thread mit Start und pausiere diesen mit Suspend.
Wenn ich diesen mit Terminate stoppen will bleibt mir der Thread aber erhalten (Taskmanager).
Vorher wieder mit Resume aufwecken und dann stoppen klappt.

Ist das die richtige Vorgehensweise ???

Gruß MarLe

(mir ist bekannt dass Suspend und Resume deprecated sind)

[himitsu]

Man legt Threads eben nicht mit Suspend lahm. :warn:
Wenn du das nicht mehr machst, dann hat sich dieses Problem automatisch gelöst.

Der Thread befindet sich dadurch in einem unsicheren Zustand, er könnte sogar das ganze Programm lahmlegen, wenn man ihn z.B. anhält, wärend er grade was im MemoryManager erledigt und dadurch die Sperre nicht mehr freigegeben wird.
Und wenn man ihn nun auch noch "hart" abschießen würde, dann bleibt dieser Zustand für immer so, vorallem da der Thread dann nix mehr aufräumen kann, wofür er aber arbeiten müßte.


Fazit:
- du machst das nicht mehr und fertig ist
- oder du läßt den Thread weiterlaufen, sagst ihm "hör auf" und er beendet sich selber

[MarLe]

... das weis ich ja dass man Suspend eigentlich nicht mehr verwenden soll.

Ich habe das Demo TThreadObject von Luckie durchgearbeitet (weil es meinen Anforderungen
ähnelt) und da tritt der Fall auf. Habe ansonsten zwar einiges gelesen und teilweise verstanden
wie man es machen soll, aber kein so schönes fertiges Beispiel zum Testen (und erweitern) gefunden.

Gruß MarLe

[DeddyH]

Du könntest einen Event nutzen, siehe CreateEvent, SetEvent und ResetEvent.

Delphi-Quellcode:

constructor TDingsThread.Create;
begin
  FEvent := CreateEvent(nil, true, true, '');
  inherited;
end;

destructor TDingsThread.Destroy;
begin
  CloseHandle(FEvent);
  inherited;
end;

Im Execute des Threads wartest Du dann auf diesen Event.

Delphi-Quellcode:

while (WaitForSingleObject(FEvent, INFINITE) = WAIT_OBJECT_0) and not Terminated do

Anhalten geht dann mit ResetEvent, Fortfahren mit SetEvent.

Delphi-Quellcode:

procedure TDingsThread.Pause;
begin
  ResetEvent(FEvent);
end;

procedure TDingsThread.ContinueWork;
begin
  SetEvent(FEvent);
end;

Wenn ich nichts Wesentliches vergessen habe, sollte das so funktionieren.

[himitsu]

Man könnte sich noch vor und nach die Schlaf-Schleife eine Variable platzieren, über welche man extern abfragen kann, ob der Thread grade arbeitet.

z.B. ein LongBool (nach LongInt gecastet), welcher über InterlockedExchange gesetzt wird. Und abfragen kann man ihn direkt, über ein ReadOnly-Property. (Lesezugriffe sind dort threadsave)

[MarLe]

Hallo zusammen,

Danke für die Tipps, habe jetzt mal versucht das Beispiel "quick and dirty" auf Events umzustellen.
Jetzt hängt sich das Ganze im Betrieb auf (keine Rückmeldung).
Beim Debuggen zählt er den Counter noch hoch, aber irgendwas stimmt mit der GUI Synchronisation scheinbar nicht.
Vielleicht hat Jemand Lust sich das mal anzuschauen.

(dass der Zugriff auf TListView nicht threadsicher ist weis ich, darauf werde ich mich anschließend stürzen)

Gruß MarLe

[Björn Ole]

Nicht TThread.Execute manuell aufrufen, sondern TThread.Start benutzen. :wink:

[DeddyH]

Bzw. TThread.Resume bei Delphi < 2009.

[himitsu]

Zitat:

Nicht TThread.Execute manuell aufrufen

Darum ist Execute auch eigentlich als Protected deklariert (strict protected wäre aber besser), damit man eigentlich garnicht erst nicht auf die Idee kommen sollte, dieses von außen direkt aufrufen zu wollen. :angle2:

[MarLe]

Aha, hab ich jetzt so umgesetzt, Danke.
Die Threads springen jetzt an, reagieren aber nicht auf Pause bzw. Stop.
Vielleicht kann noch mal Jemand eine Blick darauf werfen.

Gruß MarLe