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é… »)
 
 
(2 révisions intermédiaires par un utilisateur sont masquées)
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;
+
         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 42 :
 
{{footer|Automates}}
 
{{footer|Automates}}
 
[[Category:Automate]]
 
[[Category:Automate]]
 +
[[Category:Contexte de tâche d'automate]]
 +
[[Category:Contexte d'évènement d'automate]]

Version actuelle en date du 3 janvier 2017 à 09:12

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
         aMsg := UserContext.TaskContext.EventContext.ReceivedMsg;
       end
       else UserContext.TaskContext.AddMessage('No context');
   end
   else showMessage('not in a task');
end;

AutomatesDéveloppement DSM

Outils personnels