« 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

<source lang="delphi"> //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; </source>

{{#if:Automates|

{{#if:Automates|— Automates |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — 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]]