Execute (TitTask)

Syfre (discuter | contributions)
(Page créée avec « <source lang='delphi'>function Execute(var aReason:string):boolean;</source> <source lang='delphi'>function Execute(var aReason:string):Integer;</source> <source lang='del... »)
Modification suivante →

---

Version du 18 janvier 2017 à 14:57

function Execute(var aReason:string):boolean;

function Execute(var aReason:string):Integer;

function Execute:boolean;

function Execute:Integer;

Cette fonction doit être supportée par la classe tâche.

Différentes signatures sont supportées.

aReason	Une information sur l'erreur
Result	Le résultat de la tâche

Exemple :

//Function Execute(var aReason:string):boolean;
var aMsg:TdbmQueueMessage; idx:Integer; S:string;
begin
  // Add messages to the log
  ProgressMessage('HelloWorld');
  ProgressMessage(Format('uneChaine:%s',[uneChaine]));
 
  if Assigned(UserContext.TaskContext) and Assigned(userContext.TaskContext.EventContext) then
   begin
     userContext.TaskContext.AddMessage('Task context');
     //
     aMsg := userContext.TaskContext.EventContext.ReceivedMsg;
     if Assigned(aMsg) then
      begin
        userContext.TaskContext.AddMessage('Task context message');
        for idx:=0 to aMsg.Count-1 do
         begin
           S := aMsg.DisplayStrings(idx);
           UserContext.TaskContext.AddMessage(S);
         end;
      end;
 
     // Add parameters to the message
     aMsg.AddParameter('Task1.uneChaine',uneChaine);
     aMsg.AddParameter('Task1.unEntier',unEntier);
     aMsg.AddParameter('Task1.uneDate',uneDate);
     aMsg.AddParameter('Task1.unMontant',unMontant.Value);
   end
   else ProgressMessage('no task context');
 
  aReason := '';
  Result := True;
end;

Voir aussi

— Classe_tâche_(stereotype) — Développement DSM —