Hallo
DP!
Ich nutze die WorkerThreadPool-Variante von alzaimar =>
http://www.delphipraxis.net/93835-wo...ntergrund.html
Um die Abarbeitung der Queue zu Pausieren oder das Programm zu beenden setze ich die PoolSize auf 0.
Daraufhin passiert folgendes:
Delphi-Quellcode:
Begin
iCurrentPoolSize := PoolSize;
// Falls alle Threads beendet werden sollen (beim Programmende), müssen wir
// die Threads per Hand explizit freigeben, das dies sonst im Hintergrund
// u.U. erst dann passiert, wenn die Classes-Finalisierung abgeschlossen
// ist. Und das wäre gar nicht gut.
If Value = 0 Then
For i := iCurrentPoolSize - 1 Downto Value Do
fThreadPool[i].FreeOnTerminate := False;
// Threads beenden (z.B. Beendigung anfordern)
For i := iCurrentPoolSize - 1 Downto Value Do
fThreadPool[i].Terminate;
// Alle Threads prüfen nach dem aktuellen Job, ob sie beendet wurden
For i := 0 To iCurrentPoolSize - 1 Do
fJobList.Break;
// Beim Programmende warten wir, bis die Threads mit ihrem aktuellen Job fertig
// sind
If Value = 0 Then
For i := iCurrentPoolSize - 1 Downto Value Do
fThreadPool[i].Free;
SetLength(fThreadPool, Value);
If Value > 0 Then
For i := iCurrentPoolSize To Value - 1 Do
Begin
fThreadPool[i] := TWorkerThread.Create(i, fJobList);
fThreadPool[i].OnJobNotify := Notify;
{$IFDEF DebugUnit}
fThreadPool[i].OnAction := fOnAction;
{$ENDIF}
End
End;
Dort wo jetzt steht "beim Programmende warten wir" sehe ich nichts was wartet, das irgendwo gewartet wird, sehe ich aber daran das das Programm sich aufhängt bis alle laufenden Threads durch sind.
Das Verhalten das sie laufende Aufgaben abarbeiten finde ich eigentlich sogar ganz gut, aber das das Programm freezed stört mich.
Ein kleiner Dialog der zeigt "xyz Threads laufen noch" oder auch nur "Threads werden beendet..." würde mir total reichen (ohne das Freezen natürlich)
Die Lösung müsste irgendwie in der Art aussehen:
Sind schon alle Threads beendet?
Nein -> Anzeigen, Processmessages, 1000 millisekunden warten
Ja -> Fertig.
Irgendwie finde ich aber keinen Ansatzpunkt wo ich eine Lösung entwickeln könnte, vielleicht kann mich hier ja einer in die richtige Richtung schubsen..
Das wirkliche Problem ist eigentlich das ich nichts sehe was das Programm blockiert.
Danke fürs Lesen
!