CreateMessage (TdbfMessageBox)
De Wiki1000
(Différences entre les versions)
| Ligne 18 : | Ligne 18 : | ||
|} | |} | ||
| − | Exemple | + | Exemple : Envoi d'un message |
<source lang='delphi'> | <source lang='delphi'> | ||
//Procedure CreateMessage; | //Procedure CreateMessage; | ||
| Ligne 36 : | Ligne 36 : | ||
end; | end; | ||
end; | end; | ||
| − | end;</source> | + | end; |
| + | </source> | ||
| + | |||
| + | Exemple : Attachement d'un message | ||
| + | |||
| + | <source lang='delphi'> | ||
| + | //Procedure CreateMessage2; | ||
| + | var msg:TdbfMessage; box1,box:TdbfMessageBox; | ||
| + | begin | ||
| + | box := TdbfMessageBox.FindBox('box1'); | ||
| + | if Assigned(box) then | ||
| + | begin | ||
| + | withP transaction do | ||
| + | begin | ||
| + | msg := box.CreateMessage('Some subject in a queue','Some content', nil); | ||
| + | msg.queueTopic := 'topic1'; | ||
| + | end; | ||
| + | end; | ||
| + | end; | ||
| + | </source> | ||
| + | |||
| + | {{tip|Ce message n'apparaitra pas dans l'interface de la boite à message de box1 car il s'agit d'un message envoyé par cette boite.}} | ||
Voir aussi : | Voir aussi : | ||
Version actuelle en date du 12 juillet 2011 à 12:44
function CreateMessage(const iSubject,iBody:string; lsa:TdbfAttachementDescriptorList):TdbfMessage;
Cette procédure crée un message dont l'expéditeur est la boîte.
| Result | Un objet TdbfMessage |
| iSubject | Sujet du message |
| iBody | Contenu du message |
| lsa | Liste des attachements |
Exemple : Envoi d'un message
//Procedure CreateMessage; var msg:TdbfMessage; box1,box:TdbfMessageBox; begin box := TdbfMessageBox.FindBox('mybox'); if Assigned(box) then begin withP transaction do begin // From msg := box.CreateMessage('Some subject in a queue','Some content', nil); msg.queueTopic := 'topic1'; // To box1 := TdbfMessageBox.FindBox('box1'); if Assigned(box1) then box1.AttachMessage(msg); end; end; end;
Exemple : Attachement d'un message
//Procedure CreateMessage2; var msg:TdbfMessage; box1,box:TdbfMessageBox; begin box := TdbfMessageBox.FindBox('box1'); if Assigned(box) then begin withP transaction do begin msg := box.CreateMessage('Some subject in a queue','Some content', nil); msg.queueTopic := 'topic1'; end; end; end;
|
Tip : Ce message n'apparaitra pas dans l'interface de la boite à message de box1 car il s'agit d'un message envoyé par cette boite. |
Voir aussi :
