InQueueMessage (TdbfMessageBox)
De Wiki1000
(Différences entre les versions)
(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… ») |
|||
| Ligne 1 : | Ligne 1 : | ||
| − | <source lang='delphi'>procedure | + | <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. | Cette procédure crée un message et l'insère dans une queue. | ||
| Ligne 16 : | Ligne 16 : | ||
|iRefObject | |iRefObject | ||
|Objet référence | |Objet référence | ||
| + | |- | ||
| + | |lsa | ||
| + | |Liste de pièces jointes | ||
|} | |} | ||
| Ligne 29 : | Ligne 32 : | ||
if Assigned(box) then | if Assigned(box) then | ||
begin | begin | ||
| − | box.InqueueMessage('queueName','subject','some body text',self); | + | box.InqueueMessage('queueName','subject','some body text',self,nil); |
end; | end; | ||
end; | end; | ||
Version actuelle en date du 12 décembre 2011 à 11:53
procedure InQueueMessage(const iTopic,iSubject,iBody:string; iRefObject:TitObject; lsa:TdbfAttachementDescriptorList);
Cette procédure crée un message et l'insère dans une queue.
| iTopic | Nom de file d'attente |
| iSubject | Sujet du message |
| iBody | Contenu du message |
| iRefObject | Objet référence |
| lsa | Liste de pièces jointes |
|
Note : cette procédure gère la transaction |
Exemple :
//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,nil); end; end;
Voir aussi :
