« EventContext (TTaskContext) » : différence entre les versions

Version du 4 février 2013 à 10: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;

— Automates — Développement DSM —

@@ Ligne 30 : / Ligne 30 : @@
     begin
       UserContext.TaskContext.AddMessage('MyProcessus.Execute');
-      if Assigned(UserContext.TaskContext.EventContext.receivedMsg) then
+      if Assigned(UserContext.TaskContext.EventContext) then
         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
-        else UserContext.TaskContext.AddMessage('No message');
+        else UserContext.TaskContext.AddMessage('No context');
     end
     else showMessage('not in a task');
@@ Ligne 47 : / Ligne 41 : @@
 {{footer|Automates}}
 [[Category:Automate]]
+[[Category:Contexte d'évènement d'automate]]