ReceivedMsg (TEventContext)
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;