ReceivedMsg (TEventContext)

De Wiki1000
Révision datée du 4 février 2013 à 10:49 par Syfre (discussion | 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… »)
(diff) ← Version précédente | Voir la version actuelle (diff) | Version suivante → (diff)

<source lang='delphi'>property receiveMsg:TdbmQueueMessage;</source>

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 :

<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>