TThread Suspend und Resume

[Codehunter]

Hallo zusammen!

Ich ärgere mich mal wieder mit der Threadprogrammierung herum, ist für mich immer noch steiniges Neuland ^^

Ich habe ein TThread-Objekt, das in der Execute-Prozedur eigentlich alles macht was ich will. Allerdings nur beim ersten Resume. Ein zweites Resume führt nicht wieder zur Ausführung des Execute-Codes. Das TThread-Objekt wurde Suspended erzeugt und FreeOnTerminate ist FALSE.

Ich möchte den Thread so verwenden, dass er praktisch die meiste Zeit schlafend im Hintergrund liegt. Ab und zu werden durch Nutzeraktion bestimmte Aufgaben erstellt, die der Thread im Hintergrund abarbeitet. Eine Interaktion mit dem Mainthread findet nicht statt.

Delphi-Quellcode:

procedure TmyThreadObject.Execute;
var
  E: TmyAction;
begin
  try
    while (not Terminated) and (Actions.Count > 0) do begin
      E:= Actions[0];
      // Do some Code
    end;
  finally
    Suspend;
  end;
end;

Oder mache ich hier einen Denkfehler und TThreads lassen sich gar nicht auf diese Weise "recyclen" so dass ich das Threadobjekt prinzipiell freen und bei Vorliegen neuer Actions (nicht im Sinne von TAction verstehen) ein neuer Thread erzeugt wird?

Grüße
Cody

[himitsu]

Die Execute-Methode wird nur einmal ausgeführt.
Ist die durch, dann ist der Thread fertig und kann nicht wieder neu gestartet werden.

Fazit: Eine Schleife einbauen
Grund: Das zweite Resume setzt den Thread nach dem "Suspend" fort und der Thread beendet sich dann, da er danach nichts mehr zu tun hat.


Aber ich würde eher vom Pausieren abraten und stattdessen irgendein "WaitFor" da hin tun und dann mit Events abeiten. (Thread wartet, bis Event gefeuert wird)

[Codehunter]

Zitat von himitsu:

Die Execute-Methode wird nur einmal ausgeführt.
Ist die durch, dann ist der Thread fertig und kann nicht wieder neu gestartet werden.

Fazit: Eine Schleife einbauen
Grund: Das zweite Resume setzt den Thread nach dem "Suspend" fort und der Thread beendet sich dann, da er danach nichts mehr zu tun hat.

Aber ich würde eher vom Pausieren abraten und stattdessen irgendein "WaitFor" da hin tun und dann mit Events abeiten. (Thread wartet, bis Event gefeuert wird)

Also mit Pausieren funktionierts jetzt bei mir ganz gut, die Schleife war ja schon da:

Delphi-Quellcode:

procedure TmyThreadObject.Execute;
var
   E: TmyAction;
begin
  while not Terminated do begin
    if Actions.Count = 0 then begin
      Sleep(1000);
      Continue;
    end;
    E:= Actions[0];
    // Do some Code
  end;
end;

Was sind denn jetzt die Vor- und Nachteile von Sleep und WaitFor?

EDIT: Die Vorgehensweise innerhalb der Execute-Methode erinnert mich inzwischen stark an die Entwicklung von Systemdiensten, die man auch in eine bedingte Schleife schickt.

[dGeek]

Delphi-Quellcode:

if Actions.Count = 0 then begin
      Sleep(1000);
      Continue;

Warum kein ...

Delphi-Quellcode:

while Actions.Count = 0 then begin
      Sleep(1000);

[stahli]

Zitat von Codehunter:

Was sind denn jetzt die Vor- und Nachteile von Sleep und WaitFor?

Mit einem Event kannst Du von außen triggern, dass der nächste Durchlauf erfolgen soll. Bis dahin ruht der Thread.

[OlafSt]

Mit anderen Worten:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject)
begin
   MyThread.Terminate;
   MyThread.WaitFor;
end;

Beinhaltet der Thread ein Sleep(1000); wartet dein Thread eine Sekunde. Gnadenlos und völlig egal, was um ihn herum für ein Zampano abgeht. Der Aufruf von Terminate in obigem Beispiel würde also eine Sekunde blockieren, weil der Thread nicht eher reagieren kann. Der Benutzer wiederum denkt: "Mal wieder abgestürzt" und läßt sich zu Chaos-Handlungen hinreißen.

Besser wäre

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject)
begin
   MyThread.Terminate;
   MyThread.SetEvent(MyThreadEvent);
   MyThread.WaitFor;
end;

Der Thread wartet nun auf den Event mit einem Timeout von einer Sekunde. Durch diesen Winkelzug hast du dein Sekunden-Sleep, bekommst den Thread aber sofort terminiert.

[himitsu]

Zitat von Codehunter:

Delphi-Quellcode:

procedure TmyThreadObject.Execute;
var
   E: TmyAction;
begin
  while not Terminated do begin
    if Actions.Count = 0 then begin
      Sleep(1000);
      Continue;
    end;
    E:= Actions[0];
    // Do some Code
  end;
end;

Ich hoffe Actions ist eine TThreadList?

[dGeek]

Ich mache es immer so:

Delphi-Quellcode:

while not Terminated do
 begin
  if bThreadSollSchlafen then
   Sleep(1000);

  if bThreadBeenden then
   begin
    // Beende den Thread
   end else
    begin
     // Führe Code aus, der ausgeführt werden muss.
    end;
 end;

Soweit ich weis, sind Resume und Suspended doch veraltet.

[stahli]

Ich schließe mich himi an.
Falls Du damit nicht zurecht kommst, kann ich mal etwas zusammenstellen.
Habe das kürzlich auch erstmalig und erfolgreich eingesetzt.

[dGeek]

Das mit dem WaitFor würde mich jetzt aber auch interessieren.
Denn dann wird nicht mehr soviel Energie verbraten als mit den Sleeps.