EventContext (TTaskContext)

De Wiki1000
(Différences entre les versions)
 
Ligne 32 : Ligne 32 :
 
     if Assigned(UserContext.TaskContext.EventContext) then
 
     if Assigned(UserContext.TaskContext.EventContext) then
 
       begin
 
       begin
 +
        aMsg := UserContext.TaskContext.EventContext.ReceivedMsg;
 
       end
 
       end
 
       else UserContext.TaskContext.AddMessage('No context');
 
       else UserContext.TaskContext.AddMessage('No context');

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