DeQueueMessage (TdbfMessageBox)

De Wiki1000
function DeQueueMessage(const iTopicName:string):TdbfMessage;

Cette procédure consomme un message de la queue des messages de la boîte.

Result Un message obtenu de la queue ou nil si aucun message n'est disponible.
iTopicName Un sujet de la queue

Exemple :

//Procedure DeQueueMessage;
var msg:TdbfMessage; box:TdbfMessageBox;
begin
  box := TdbfMessageBox.FindBox('mybox');
  if Assigned(box) then
   begin
     msg := box.DeQueueMessage('topic1');
     if Assigned(msg)
        then ShowMessage('found one')
        else showMessage('no message in queue');
   end;
end;

Voir aussi :

TdbfMessageBox (class)Développement DSM

Outils personnels