TTask.WaitForAll hängt

[Smiley]

Weil ich wissen will wann der Task beendet ist.
Besser wäre es natürlich ich bekäme einen event der mir sagt, dass der Task fertig ist.
Das ist aber erst der nächste Schritt.
wie das geht habe ich noch nicht gefunden.

[stahli]

So ganz konkret kann ich jetzt nicht helfen, aber hier mal 3 Videos zu Threads & Co:

https://youtu.be/WOc89TF8l-8
https://youtu.be/Jhcpgjs1uPA
https://youtu.be/0p7kbE8TkWI

Im ersten sind Tasks explizit mit als Thema aufgeführt.

(Werde ich mir auch gleich nochmal anschauen. Ich war sowieso gerade auf der Suche nach interessanten Programmier-Videos. )

[Schokohase]

Also Wait heißt übersetzt Warten und genau das passiert.

Der Aufruf WaitForAll oder WaitForAny ist blockierend.
Diese Repeat Schleife kannst du ersatzlos streichen, denn wenn du da hin kommst dann ist schon alles vorbei.

[Smiley]

Das ist schon klar Schokohase, dafür war es auch gedacht, das Repeat habe ich lediglich nicht gelöscht, aber dorthin komme ich ja nie, genau das ist ja das Problem.
Das WaitForAll wartet eben unendlich, auch wenn der Task lange abgelaufen ist, zum Reppeat komme ich ja gar nicht.

Danke Stahli für die Links, das erste Video von Bernd Ua kannte ich noch nicht, das ist ganz gut.
Das von Daniel war auch gut beschäftigt sich aber hauptsächlich nur mit dem Deadlock und Synchronize, bei Bernd Ua ist etwas mehr Code zu sehen.

[Luckie]

Zitat von Smiley:

Weil ich wissen will wann der Task beendet ist.

Aber der Code wird doch erst ausgeführt, wenn die ShowMessage angezeigt wird. Und da ist der Task schon fertig. Der Code wird ja linear abgearbeitet.

[Smiley]

Zum showmessage komme ich nicht, da er ja in waitforall hängen bleibt.
Man könnte hier zu beginn von der Clickroutine den Butto auf disabled stellen und nach waitforall auf enabled, dann erkennt man einen Sinn in der Abfrage

[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.