Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Rechenintensiven Thread aufräumen (https://www.delphipraxis.net/182668-rechenintensiven-thread-aufraeumen.html)

himitsu 10. Nov 2014 12:00

AW: Rechenintensiven Thread aufräumen
 
Beim Beenden des Programms und Auswertung der Speicherlecks, müssten die Threads noch laufen und daher ist auch noch deren Speicher reserviert.
Erst nach Beenden/Freigeben/Entladen aller Delphi-Units und danach, beim Beenden des Prozesses, werden auch die restlichen Threads von Windows abgeschossen.

Aber im grunde stimme ich dem zu: selber die Threads beenden und sich danach das Programm beenden lassen.

Dejan Vu 11. Nov 2014 04:52

AW: Rechenintensiven Thread aufräumen
 
Zitat:

Zitat von Sir Rufo (Beitrag 1279269)
...
Delphi-Quellcode:
Constructor TCalcThread.Create(Codec: TCodecType; Bitmap: TBitmap;
   OnCalcDone: TOnCalcDone);
Begin
   fSize := -1;              // ungültigen Wert vorgeben
   fCodec := Codec;          // Codec merken
   fOnCalcDone := OnCalcDone; // Zeiger auf Ereignis merken
   fBitmap := TBitmap.Create; // TBitmap anlegen
   fBitmap.Assign( Bitmap ); // Bild kopieren

   Inherited Create( False ); // Thread erstellen
   Priority := tpIdle;       // geringe Priorität
   FreeOnTerminate := True;  // Instanz selbst freigeben <- hmmm, nicht geschickt
End;
...

Gibt es einen bestimmten Grund, vom Pattern 'erst den Basiskonstruktor aufrufen' abzuweichen?

Weiterhin sollte der Threadersteller klar zwischen Konstruktor und Parametrierung unterscheiden. Imho ist es ein 'No Go', einem Konstruktor gleich Events mit zu übergeben. Ich würde zwischen Instantiierung, Parametrierung und Aufruf unterscheiden.

Delphi-Quellcode:
myThread := TmyThread.Create('stuff that cannot be changed');
myThread.OnCalcDone := OnCalcDone;
myThread.Start;
Imho ist der Aufrufer derjenige, der den Event an den Eventhandler flanscht. Das kann man natürlich auch noch vereinfachen:
Delphi-Quellcode:
Procedure TMyStuff.RunThread('stuff that cannot be changed');
var
  thread : TMyThread;
begin
  thread := TmyThread.Create('stuff that cannot be changed');
  thread.OnCalcDone := OnCalcDone;
  thread.Start;
end;
Der Eventhandler 'CalcDone' ist auch überflüssig, denn er wird eh nur am Ende des Threads aufgerufen. Da könnte man ja auch gleich das 'OnTerminate'-Ereignis nehmen, das eh im Aufruferkontext aufgerufen wird, ergo wäre das Synchronize auch überflüssig.


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:25 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz