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;