ReceivedMsg (TEventContext)

De Wiki1000
property receiveMsg:TdbmQueueMessage;

Propriété en lecture seule.

Cette propriété contient une référence vers le message consommé lorsque l'évènement est du type file d'attente.

Cette propriété est du type TdbmQueueMessage.

Exemple :

//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;
Outils personnels