Execute (TitTask)

De Wiki1000
(Différences entre les versions)
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 à 15: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





Whos here now:   Members 0   Guests 0   Bots & Crawlers 1
 
Outils personnels