Ich versuche mein Mainform beweglich zu halten, nachdem ich ein Programm starte, das sehr lange zum fertigstellen braucht.
Daher habe ich das Programm in einem TTask in den Hintergrund geschickt.
Das Problem ist nur, dass ich abfragen muss, wann der Prozess beendet ist.
Es wird immer wieder beschrieben, dass man mit WaitFoAll auf die Beendigung aller Tasks warten kann.
Das funktioniert bei mir aber nicht, er bleibt in der WaitForAll Abfrage für immer stecken.
Daher habe ich es mit einer separaten Variable gemacht um die Beendigung abzufragen, das funktioniert auch.
Aber warum funktioniert das WaitForAll bzw. WaitForAny nicht, das ist dafür doch gedacht ???
Hier mein Code:
Delphi-Quellcode:
Verz: String;
j, AktLine: Integer;
StartFolder, ProgPath: String;
StartTime: TTime;
LTaskRun: boolean;
tasks: array of ITask;
implementation
{$R *.dfm}
// *****************************************************************************
procedure TForm1.Button1Click(Sender: TObject);
var
lstatus: boolean;
begin
lStatus:=False;
LTaskRun := true;
Setlength(tasks, 1);
tasks[0] := TTask.Create(
procedure
begin
DirList;
end);
tasks[0].Start;
lstatus := TTask.WaitForAll(tasks);
ShowMessage('Nach WaitAll');
repeat
application.ProcessMessages;
until not LTaskRun;
end;
Wenn ich das WaitforAll rausnehme funktioniert alles wie gewünscht.
Einen 2ten Task aufmachen versuche ich erst wenn ich es mit einem vernüftig hinbekommen habe.
Dann kommt auch noch das Sychronize mit rein.
Ein Schritt nach dem anderen.
Wärend im Hintergrund eine Liste in einem Grid eingfügt wird oder in eine
DB, soll das Hauptfenster nicht "Programm ausgelastet" anzeigen und noch verschiebbar sein.