Hallo!

In einem Dienst von mir unterbreche ich einen Thread mit Thread.Suspend. Wenn ich den Thread jetzt mit Thread.Resume weiterlaufen lassen will, wird die Execute Methode verständlicherweise nicht neugestartet sondern dort fortgesetzt, wo ich den Thread unterbrochen habe. Wie kann ich aber erreichen, dass Execute von vorne neu durchlaufen wird, wenn ich den Thread fortsetze?
Ich habe die Methode Resume einfach wie folgt überschrieben:

markieren

Delphi-Quellcode:

procedure TMonitor.Resume;
begin
  self.Suspended:=false;
  Execute;
end;

Ist das eine praktikable Lösung?

das geht so gar nicht.
durch
suspendet := False; läuft der Thread weiter und durch
Execute(); wird die Execute-Methode im Context des aufrufers ausgeführt.

Dein Thread läuft also weiter und die Execute-Methode läuft in deinem hauptthread.

Okay, das hab ich auch grad gemerkt

Weißt du eine Möglichkeit das zu realisieren?

Ich würde sagen du musst deinen Thread terminieren (am besten dann mit FreeOnTerminate freigeben) dann neu erzeugen und dann wieder starten.
Weil wenn du deinen Thread einfach mitten drinnen abbrichst und zum anfangen springen lässt dann könnte des zu speicherleaks und fehler führen.

Okay, danke für die schnelle Antwort. Dachte es geht auch anders, aber dann werde ich es so machen!

LG Manzoni

du musst es so machen wie bei allem anderen auch (unabhängig ob thrad oder nicht)

zusammenfalten · markieren

Delphi-Quellcode:

procedure TYourThread.Execute();
begin
  while not(Terminated) do
  begin
    //Thread Start-Code
    needrestart := False;
    while not(needrestart) and not(Terminated) do
    begin
      //dein zeugs
    end;
  end;
end;

markieren

Delphi-Quellcode:

Thread.NeedRestart := True;
Thread.Resume;

Du musst also einfach nur dafür sorgen das er wieder ein dem Quelltext des Begins der Execute-Methode vorbei kommt.

Okay! Danke Dir! So ähnlich habe ich es jetzt auch gelöst...

Ich halte es für keine gute Idee, einen Thread mit Suspend/Resume zu stoppen / starten, denn man weiss ja gar nicht, was er gerade macht.

Ich mache das immer mit Semaphoren / Events:

markieren

Delphi-Quellcode:

Procedure TMyThread.Execute;
Begin
  While Not Terminated do
    Case WaitForsingleObject (MySempahore, INFINITE) of
      WAIT_OBJECT_0 : _ExecuteTask;
      WAIT_ABANDONED : Terminated := True;
      WAIT_TIMEOUT:;
    End;
End;

Wenn ich nun die Semaphore auf 0 setze, dann wird erstmal der Task beendet (was ja eterministisch ist) und der Thread wartet genau da, wo ich ihn haben will...