EventContext (TTaskContext)

De Wiki1000
(Différences entre les versions)
(Page créée avec « Le contexte d'un évènement contient des informations relatives à l'évènement ayant déclenché la tâche d'automate. Ce contexte est accessible à partir de la proprié… »)
 
Ligne 30 : Ligne 30 :
 
   begin
 
   begin
 
     UserContext.TaskContext.AddMessage('MyProcessus.Execute');
 
     UserContext.TaskContext.AddMessage('MyProcessus.Execute');
     if Assigned(UserContext.TaskContext.EventContext.receivedMsg) then
+
     if Assigned(UserContext.TaskContext.EventContext) then
 
       begin
 
       begin
        aMsg := UserContext.TaskContext.EventContext.receivedMsg;
 
        UserContext.TaskContext.AddMessage('Has a message');
 
        for idx:=0 to aMsg.Count-1 do
 
          begin
 
            UserContext.TaskContext.AddMessage(aMsg.DisplayStrings[idx]);
 
          end;
 
 
       end
 
       end
       else UserContext.TaskContext.AddMessage('No message');
+
       else UserContext.TaskContext.AddMessage('No context');
 
   end
 
   end
 
   else showMessage('not in a task');
 
   else showMessage('not in a task');
Ligne 47 : Ligne 41 :
 
{{footer|Automates}}
 
{{footer|Automates}}
 
[[Category:Automate]]
 
[[Category:Automate]]
 +
[[Category:Contexte d'évènement d'automate]]

Version du 4 février 2013 à 12:51

Le contexte d'un évènement contient des informations relatives à l'évènement ayant déclenché la tâche d'automate.

Ce contexte est accessible à partir de la propriété EventContext du contexte de la tâche.

Liste des propriétés:

Propriété Usage
receivedMsg Message consommé si l'évènement est du type file d'attente.

Liste des méthodes:

Méthode Usage


//Procedure Execute;
var aMsg:TdbmQueueMessage; idx:Integer;
begin
  if Assigned(UserContext.TaskContext) then
   begin
     UserContext.TaskContext.AddMessage('MyProcessus.Execute');
     if Assigned(UserContext.TaskContext.EventContext) then
       begin
       end
       else UserContext.TaskContext.AddMessage('No context');
   end
   else showMessage('not in a task');
end;

AutomatesDéveloppement DSM





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