ReceivedMsg (TEventContext)

Syfre (discuter | contributions)
(Page créée avec « <source lang='delphi'>property receiveMsg:TdbmQueueMessage;</source> Propriété en '''lecture seule'''. Cette propriété contient une référence vers le message consomm… »)

---

Version actuelle en date du 4 février 2013 à 12:49

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;