Auf Beendigung von Thread warten

[Eclipticon]

Hi,

wenn ich mit Multithreading arbeite, mache ich das meist nach folgendem Schema:

Code: Alles auswählen

type TMyForm: class(TForm)
  // ...
  MyTestThread: TTestThread;
end;
 
procedure TMyForm.Button1Click(Sender:TObject);
begin
  if not Assigned(MyTestThread) then begin
    MyTestThread := TTestThread.Create(True);
    MyTestThread.FreeOnTerminate := False;
    MyTestThread.OnTerminate := @TestThreadTerminate;
    // ...
   MyTestThread.Start;
  end;
end;
 
procedure TMyForm.Button2Click(Sender:TObject);
begin
  if Assigned(MyTestThread) then
    MyTestThread.Terminate;
end;
 
procedure TMyForm.TestThreadTerminate(Sender: TObject);
begin
  if (Assigned(MyTestThread.FatalException) and (MyTestThread.FatalException is Exception)) then
    // ...
  FreeAndNil(MyTestThread);
end;
 
procedure TMyForm.FormDestroy(Sender: TObject);
begin
  // ...
  if Assigned(MyTestThread) then
  begin
    MyTestThread.Terminate;
    while Assigned(MyTestThread) do
      Application.ProcessMessages;
  end;
  //...
end;

Funktioniert auch wunderbar.

Meine Frage ist: Kann ich Application.ProcessMessages zu Verarbeiten der Messages (und damit meins Verstaendnisses nach auch der OnTerminate-Message) auch in einer Konsolenanwendung, einem Systemservice oder aus deinem Thread heraus, der nicht der Main Thread ist, verwenden? Wenn nein, welche Alternativen habe ich?

Danke!

[theo]

Schon mal so probiert?
http://lazarus-ccr.sourceforge.net/docs ... itfor.html

Aber wenn es nur um die Programmbeendung geht, brauchst du mMn nicht unbedingt darauf warten.
MyTestThread.OnTerminate := Nil;
sollte reichen.

[Eclipticon]

Schon mal so probiert?
http://lazarus-ccr.sourceforge.net/docs ... itfor.html

Dann muesste ich aber das Free aus dem OnTerminate rausnehmen, weil sonst mein Thead schon nil sein koennte, wenn ich WaitFor ausloese ...

Code: Alles auswählen

MyTestThread.Terminate;
MyTestThread.WaitFor;
FreeAndNil(MyTestThread);
 

in Button2Click geht natuerlich auch, aber da Terminate relativ lange brauchen kann (greift in diesem Fall auf Hardware zurueck), ist das nicht ideal.

Aber wenn es nur um die Programmbeendung geht, brauchst du mMn nicht unbedingt darauf warten.
MyTestThread.OnTerminate := Nil;
sollte reichen.

Ich glaube, ich kann nicht ganz folgen ...

[theo]

Ich glaube, ich kann nicht ganz folgen ...

Warum willst du überhaupt auf den Thread warten, wenn du das Prog. sowieso beendest?

[Eclipticon]

Ich glaube, ich kann nicht ganz folgen ...

Warum willst du überhaupt auf den Thread warten, wenn du das Prog. sowieso beendest?

Weil ich gern ein paar Dinge sauber beenden moechte (z.B. Ressourcen freigeben).

[mschnell]

Dann kannst Du auch myThread.Waitfor verwenden und danach myThread.Free machen. Oder ?

(myThread.FreeOnTerminate darf dann natürlich nicht gesetzt sein. )

-Michael