TTask.WaitForAll hängt

[Smiley]

procedure TForm1.Button1Click(Sender: TObject);
var
lstatus: boolean;

begin
lStatus:=False;
LTaskRun := true;
Setlength(tasks, 1);
Button1.enabled:=False;

tasks[0] := TTask.Create(
procedure
begin
DirList; // Hier ist das Prgramm das lange braucht und im Hintergrund läuft
end);
tasks[0].Start;

lstatus := TTask.WaitForAll(tasks);
// Hier kommt man nie hin.
Button1.enabled:=True;

end;

[Smiley]

Habe mir jetzt alle Videos angesehen,
Das zeite Video von Olaf Monien https://youtu.be/Jhcpgjs1uPA ist das Beste für meine Zwecke um mit TTask zu arbeiten.
Das dritte von Daniel Wolf ist auch sehr gut (kannte ich schon) beschreibt aber mehr nur die Problematik Synchronisierung und der Deadlock vermeidung.

Danke Stahli für die Links

Ich weiß zwar noch nicht warum das mit dem WaitforAll nicht funktioniert, vermute aber dass es an einer anderen Stelle eingesetzt wird und normalerweis so auch nicht benutzt wird.
Davon ist in den Videos auch nicht die Rede.

[Luckie]

Bleibt eventuell DirList hängen? Wie sieht der Code dazu aus?

[Smiley]

Nein, wenn ich das WaitForAll weglasse funktioniert alles problemlos.

[Heuman]

Hallo,
wenn ich es richtig gelesen habe wird ja auch nur ein Task gestartet.

[Schokohase]

Ohne den Code von DirList zu kennen, können wir nur mutmassen.

Es könnte sich hier um einen DeadLock handeln, der durch das Blockierende Verhalten TTask.WaitForAll zum Tragen kommt und es dann funktioniert wenn das Besagte eben entfernt wird.

Wird irgendwo von DirList ein TThread.Synchronize aufgerufen? Dann ist das die Ursache für den DeadLock.

Zitat von Heuman:

Hallo,
wenn ich es richtig gelesen habe wird ja auch nur ein Task gestartet.

Ja, und jetzt?

[Heuman]

[QUOTE=Schokohase;1443023]Ohne den Code von DirList zu kennen, können wir nur mutmassen.

wie geschrieben, falsch gelesen.

Gruß

[p80286]

Zitat von Smiley:

Nein, wenn ich das WaitForAll weglasse funktioniert alles problemlos.

Na dann ist doch gut!

Oder meinst Du, daß die Oberfläche nicht einfriert und irgendwann die gewünschten Daten zur Verfügung stehen?

Da ich TTask nicht kenne kann ich nur beschreiben wie ich das mit TTHread gelöst hätte.
Da wird als letzte Aktion vor dem selbstmord des Threads eine "Endmessage" gesandt. dann weiß das Programm, daß ein Thread beendet wurde und gut ist.

Gruß
K-H