TdbfAttachementDescriptor (class)
De Wiki1000
(Différences entre les versions)
(→Méthodes) |
|||
Ligne 45 : | Ligne 45 : | ||
Voir aussi : | Voir aussi : | ||
+ | |||
+ | Exemple : Envoi d'un message avec pièces jointes | ||
+ | |||
+ | <source lang="delphi"> | ||
+ | //Procedure SendMessageWithattachements; | ||
+ | var box:TdbfMessageBox; desc:TdbfAttachementDescriptor; lsa:TdbfAttachementDescriptorList; | ||
+ | begin | ||
+ | box := TdbfMessageBox.FindBox('mybox'); | ||
+ | if Assigned(box) then | ||
+ | begin | ||
+ | lsa := TdbfAttachementDescriptor.CreateList; | ||
+ | // | ||
+ | desc := TdbfAttachementDescriptor.Create; | ||
+ | desc.Document := 'd:\Mes documents\Mes images\gourbeyre.jpg'; | ||
+ | lsa.AddRef(desc); | ||
+ | // | ||
+ | desc := TdbfAttachementDescriptor.Create; | ||
+ | desc.Caption := 'avatar'; | ||
+ | desc.Content.LoadFromFile('d:\Mes documents\Mes images\sage-avatar.jpg'); | ||
+ | desc.SetDocumentTypeByExtension('.jpg'); | ||
+ | lsa.AddRef(desc); | ||
+ | // | ||
+ | box.SendMessageTo('box1;box2','Some subject','Some content', lsa); | ||
+ | end; | ||
+ | end; | ||
+ | </source> | ||
{{Footer|Boites à messages (api)}} | {{Footer|Boites à messages (api)}} | ||
[[category:Classes frameworks]] | [[category:Classes frameworks]] | ||
[[category:Boîtes à messages]] | [[category:Boîtes à messages]] |
Version du 12 juillet 2011 à 09:11
Sommaire |
Introduction
La classe TdbfAttachementDescriptor est une classe non persistante utilisée pour décrire un document rattaché à un message (BAM).
Attributs
DocumentType | Référence vers le type du document. |
Attachement | Référence vers la pièce jointe |
Document | Document à rattacher |
Content | Contenu du document à rattacher |
DocumentPath | Chemin du document si celui-ci est un fichier |
DocumentFileName | Nom du document si celui-ci est un fichier |
isFile | le document est un fichier |
isURL | le document est une URL |
Méthodes
SetDocumentTypeByExtension | Positionne le type du document |
Méthodes de classe
Voir aussi :
Exemple : Envoi d'un message avec pièces jointes
//Procedure SendMessageWithattachements; var box:TdbfMessageBox; desc:TdbfAttachementDescriptor; lsa:TdbfAttachementDescriptorList; begin box := TdbfMessageBox.FindBox('mybox'); if Assigned(box) then begin lsa := TdbfAttachementDescriptor.CreateList; // desc := TdbfAttachementDescriptor.Create; desc.Document := 'd:\Mes documents\Mes images\gourbeyre.jpg'; lsa.AddRef(desc); // desc := TdbfAttachementDescriptor.Create; desc.Caption := 'avatar'; desc.Content.LoadFromFile('d:\Mes documents\Mes images\sage-avatar.jpg'); desc.SetDocumentTypeByExtension('.jpg'); lsa.AddRef(desc); // box.SendMessageTo('box1;box2','Some subject','Some content', lsa); end; end;