Einfrieren trotz WaitForSingleObject

[TheMiller]

Hallo,

ich habe einen MainThread, eine Container-Klasse und einen Thread. Der Thread wird aus der Containerklasse gestartet und in der Prozedur soll gewartet werden, bis der Thread zu Ende ist. Das versuche ich mittel "WaitForSingleObject" wie folgt:

Delphi-Quellcode:

procedure TContainer.SeekUpdates;
var
  Dt: TDownloadThread;
begin
  Dt:=TDownloadThread.Create(True);
  Dt.FreeOnTerminate:=True;
  Dt.FParent:=Self;
  Dt.SeekUpdates:=True;
  Dt.Resume;
  WaitForSingleObject(Dt.Handle, 1000000);
  ShowMessage('SDD');
end;

Allerdings bleibt das gesamte Programm trotzdem hängen, bis der Thread zu Ende ist. Warum ist das so?

danke

[Muetze1]

Naja, wenn du von deinem Programm aus eine lange Aufrufkette hast bis zu der TContainer.SeekUpdates Methode, dann steht er dann in der WaitForSingleObject(), bis entweder der TimeOut zuschlägt oder halt das Objekt signalisiert. Somit steht deine Anwendung im Endeffekt im (angenommenen) Button1 Click.

Mit anderen Worten: Wenn du innerhalb deiner Oberfläche auf den Thread wartest, dann ist der Thread sinnlos.

[TheMiller]

Was meinst du mit einer lann Aufrufkette? Das steht im Button1.OnCli

[Dani]

Zitat von DJ-SPM:

Allerdings bleibt das gesamte Programm trotzdem hängen, bis der Thread zu Ende ist. Warum ist das so?

Weil, wie Muetze1 schon gesagt hat, WaitForSingleObject eben wartet, bis der Thread zuende ist, bevor die nächste Codezeile (ShowMessage) ausgeführt wird. Und da TContainer.SeekUpdates vom MainThread (= VCL-Thread = Graphische Oberfläche) aufgerufen wird....

[TheMiller]

Hm... also geht das mit WaitForSingleObject so nicht. Was kann ich stattdessen benutzen?

[Dani]

Du kannst z.B. das Ereignis TThread.OnTerminate verwenden.

[TheMiller]

Also muss ich zwangsläufig in eine neue Prozedur einsteigen und kann ich an der gleichen Stelle, also beim Aufruf weitermachen, richtig?

[dominikkv]

das interessiert mich jetzt auch mal...
würde sowas gehen?

Delphi-Quellcode:

  Dt.Resume; 
  while not Dt.terminated do
    Application.Processmessages;
  ShowMessage('SDD');

[TheMiller]

Ja, aber ich denke, dass das den Vorteil eines Threads wieder zertört, weil permanent geprüft wird, ob der Thread zu Ende ist.

[Dani]

Wahrscheinlich würde es gehen, aber das istBusy Waiting

Zitat:

Also muss ich zwangsläufig in eine neue Prozedur einsteigen und kann ich an der gleichen Stelle, also beim Aufruf weitermachen, richtig?

Das verstehe ich nicht. Welche Stelle, welcher Aufruf, was für eine neue Prozedur?

€: Ja, du musst den Code, der genau dann ausgeführt werden soll, wenn der Thread beendet ist, in eine neue Prozedur packen (also OnTerminate was zuweisen).