Execute (TitTask)

De Wiki1000
(Redirigé depuis Executee (TitTask))
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

La valeur de retour de la tâche doit être :

Litéral Numérique Usage Remarque
trOK 0 Succès
trInvalid 1 Invalide La tâche n'a pas de méthode Execute() valide
trFailed 2 Echec
trException 3 Exception Une exception s'est produite durant l'exécution
trRetry 4 Réessayer
trStarted 5 Démarrée


Lorsque cette tâche est déclenchée par un message, celui-ci peut être récupéré dans le contexte de la tâche.

Il est possible d'ajouter des paramètres à ce message qui seront enregistrés dans l'événement correspondant au résultat de la tâche. Ce mécanisme permet de la passage de paramètres entre tâches.

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
     // May be used in an other task triggered by this one
     //
     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