EventContext (TTaskContext) - Historique des versions

Syfre le 3 janvier 2017 à 08:12

2017-01-03T08:12:28Z

Syfre le 4 février 2013 à 10:53

2013-02-04T10:53:03Z

Syfre le 4 février 2013 à 10:51

2013-02-04T10:51:14Z

Syfre : 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é… »

2013-02-04T08:21:55Z

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é… »

Nouvelle page

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_tâche_(automate)|contexte de la tâche]].

'''Liste des propriétés:'''

{|class="wikitable"
|-
!Propriété
!Usage
|-
|[[receivedMsg (TEventContext)|receivedMsg]]
|Message consommé si l'évènement est du type file d'attente.
|}

'''Liste des méthodes:'''

{|class="wikitable"
|-
!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.receivedMsg) 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');
end
else showMessage('not in a task');
end;
</source>

{{footer|Automates}}
[[Category:Automate]]

@@ Ligne 32 : / Ligne 32 : @@
       if Assigned(UserContext.TaskContext.EventContext) then
         begin
         end
         else UserContext.TaskContext.AddMessage('No context');

@@ Ligne 41 : / Ligne 41 : @@
 {{footer|Automates}}
 [[Category:Automate]]
 [[Category:Contexte d'évènement d'automate]]

@@ Ligne 30 : / Ligne 30 : @@
     begin
       UserContext.TaskContext.AddMessage('MyProcessus.Execute');
-      if Assigned(UserContext.TaskContext.EventContext.receivedMsg) then
+      if Assigned(UserContext.TaskContext.EventContext) then
         begin
         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]]