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 :