Prüfen auf ITask.Status

[TigerLilly]

Ich habe in einem TForm so was:

Code:

Task : ITask;
....
Task:=TTask.Run();

Beim Schließen des Formulars möchte ich prüfen, ob der Task läuft, um ihn abzubrechen:

Code:

if Task.Status = TTaskStatus.Running then
  Task.Cancel;

1) Das geht aber nur, wenn der Task läuft, wenn er gar nicht gestartet wurde, kann ich nicht auf Task.Status zugreifen. Wie kann ich prüfen, ob es den Task gibt?
2) Das Beenden des Tasks dauert uU ein bisschen - wie kann ich warten, bis der Task beendet ist?

Danke für Erleuchtung!

[Der schöne Günther]

Was heißt "nicht auf Status zugreifen können"? Wenn er noch nicht gestartet wurde ist er entweder

Delphi-Quellcode:

TTaskStatus.Created

oder

Delphi-Quellcode:

TTaskStatus.WaitingToRun

.

"Warten bis der Task beendet ist" entspricht

Delphi-Quellcode:

WaitFor(..)

:

Delphi-Quellcode:

const
   runningStates = [TTaskStatus.Running, TTaskStatus.WaitingForChildren];
begin
   if Assigned(asyncRefreshTask) then
      begin
         asyncRefreshTask.Cancel();
         try
            if (asyncRefreshTask.Status in runningStates) then
               asyncRefreshTask.Wait(delayTimeMs);
         except
            // make a smug face
         end;
         asyncRefreshTask := nil;
      end;
end;

[Rollo62]

Oder mit TEvent als Koordinator ...
http://docwiki.embarcadero.com/RADSt...o_Be_Completed

[TigerLilly]

Zitat:

Zitat von Der schöne Günther (Beitrag 1480343)

Was heißt "nicht auf Status zugreifen können"? Wenn er noch nicht gestartet wurde ist er entweder

Delphi-Quellcode:

TTaskStatus.Created

oder

Delphi-Quellcode:

TTaskStatus.WaitingToRun

.

"Warten bis der Task beendet ist" entspricht

Delphi-Quellcode:

WaitFor(..)

:

Delphi-Quellcode:

const
   runningStates = [TTaskStatus.Running, TTaskStatus.WaitingForChildren];
begin
   if Assigned(asyncRefreshTask) then
      begin
         asyncRefreshTask.Cancel();
         try
            if (asyncRefreshTask.Status in runningStates) then
               asyncRefreshTask.Wait(delayTimeMs);
         except
            // make a smug face
         end;
         asyncRefreshTask := nil;
      end;
end;

Prüfen mit Assigned ist natürlich eine Lösung, da hast recht.
Wait nach Cancel liefert: EOperationCancelled with message 'Vorgang abgebrochen'. Wait wartet nur auf nicht abgebrochene Tasks. Dein
Try/Except schluckt diese Exception.
Und: Sobald Cancel aufgerufen wird, ist der Status des Tasks Canceled.