Syfre le 12 décembre 2011 à 10:53

2011-12-12T10:53:26Z

Syfre : Page créée avec « procedure CreateMessage(const iTopic,iSubject,iBody:string; iRefObject:TitObject); Cette procédure crée un message et l'insère dans une que… »

2011-07-13T08:09:39Z

Page créée avec « <source lang='delphi'>procedure CreateMessage(const iTopic,iSubject,iBody:string; iRefObject:TitObject);</source> Cette procédure crée un message et l'insère dans une que… »

Nouvelle page

<source lang='delphi'>procedure CreateMessage(const iTopic,iSubject,iBody:string; iRefObject:TitObject);</source>

Cette procédure crée un message et l'insère dans une queue.

{|class="wikitable"
|-
|iTopic
|Nom de file d'attente
|-
|iSubject
|Sujet du message
|-
|iBody
|Contenu du message
|-
|iRefObject
|Objet référence
|}

{{info|cette procédure gère la transaction}}

Exemple :

<source lang='delphi'>
//Procedure inQueueMessage;
var msg:TdbfMessage; box1,box:TdbfMessageBox;
begin
box := TdbfMessageBox.FindBox('mybox');
if Assigned(box) then
begin
box.InqueueMessage('queueName','subject','some body text',self);
end;
end;
</source>

Voir aussi :

* [[DeQueueMessage_(TdbfMessageBox)|Consommation d'un message]]
* [[Classe file d'attente (stereotype)|File d'attente]]

{{Footer|TdbfMessageBox (bam)}}
[[category:TdbfMessageBox]]

@@ Ligne 1 : / Ligne 1 : @@
-<source lang='delphi'>procedure CreateMessage(const iTopic,iSubject,iBody:string; iRefObject:TitObject);</source>
+<source lang='delphi'>procedure InQueueMessage(const iTopic,iSubject,iBody:string; iRefObject:TitObject; lsa:TdbfAttachementDescriptorList);</source>
 Cette procédure crée un message et l'insère dans une queue.
@@ Ligne 16 : / Ligne 16 : @@
 |iRefObject
 |Objet référence
 |}
@@ Ligne 29 : / Ligne 32 : @@
    if Assigned(box) then
     begin
-      box.InqueueMessage('queueName','subject','some body text',self);
+      box.InqueueMessage('queueName','subject','some body text',self,nil);
     end;
 end;

InQueueMessage (TdbfMessageBox) - Historique des versions

Syfre le 12 décembre 2011 à 10:53

Syfre : Page créée avec « procedure CreateMessage(const iTopic,iSubject,iBody:string; iRefObject:TitObject); Cette procédure crée un message et l'insère dans une que… »