Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Threads Suspend -> Resume ... wo gehts weiter? (https://www.delphipraxis.net/52241-threads-suspend-resume-wo-gehts-weiter.html)

Olli 26. Aug 2005 10:51

Re: Threads Suspend -> Resume ... wo gehts weiter?
 
Zitat:

Zitat von Luckie
Normalerweiser erzeugt man das Thread-Objekt um angahltenen Zustand, setzt dann die Eigenschaften, unteranderem eben auch FreeOnTerminate, und ruft dann die Methode Resume auf.

Und aus der Execute-Methode kann man das dann wes Grundes nicht tun (FreeOnTerminate setzen)? Ist doch allemale besser es von dort zu tun, als erst Suspended zu starten, dann zu setzen und dann wieder auzuwecken, oder?

Luckie 26. Aug 2005 11:14

Re: Threads Suspend -> Resume ... wo gehts weiter?
 
In Delphi in a nutshell steht, dass wenn man den Konstruktor überschreibt, man die Thread-Instanz im Angehaltenenzustand erzeugen soll, damit er nicht schon los läuft bevor alles initialisiert wurde.

Sähe dann so aus:
Delphi-Quellcode:
constructor TSomeThread(Param1, Param2: TFoobar; OnTerminate: TNotifyEvent);
begin
  inherited Create(True); // create suspended
 
  Self.OnTermiante = OnTerminate;
  FreeOnTerminate := True;

  Resume; // und Thread starten
end;

Olli 26. Aug 2005 11:51

Re: Threads Suspend -> Resume ... wo gehts weiter?
 
Zitat:

Zitat von Luckie
In Delphi in a nutshell steht, dass wenn man den Konstruktor überschreibt, man die Thread-Instanz im Angehaltenenzustand erzeugen soll, damit er nicht schon los läuft bevor alles initialisiert wurde.

So macht das Sinn. Aber dies erledigt ja der Konstruktor. Und der kann auch ganz transparent für den Benutzer am Ende den Thread wieder aufwecken (so wie du es machst) oder eben nicht. Man sollte hier vielleicht besser zwischen "Benutzer" und "Entwickler" der Klasse unterscheiden. Für den Benutzer ist es transparent. Der Entwickler hat dafür gesorgt. Bsp:
Delphi-Quellcode:
constructor TSomeThread(Param1, Param2: TFoobar; OnTerminate: TNotifyEvent; bSuspended: Boolean = False);
begin
  inherited Create(True); // create suspended
 
  Self.OnTerminate = OnTerminate;
  FreeOnTerminate := True;

  if (not bSuspended) then
    Resume(); // und Thread starten
end;
:zwinker: ...


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:57 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