DeQueueMessage (TdbfMessageBox)
<source lang='delphi'>function DeQueueMessage(const iTopicName:string):TdbfMessage;</source>
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 :
<source lang='delphi'> //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; </source>
Voir aussi :
{{#if:TdbfMessageBox (class)|
{{#if:TdbfMessageBox (class)|— TdbfMessageBox (class) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}