TdbfAttachementDescriptor (class)
De Wiki1000
(Différences entre les versions)
(→Méthodes de classe) |
|||
| Ligne 50 : | Ligne 50 : | ||
<source lang="delphi"> | <source lang="delphi"> | ||
//Procedure SendMessageWithattachements; | //Procedure SendMessageWithattachements; | ||
| − | + | //Procedure SendMessageWithattachements; | |
| + | Var | ||
| + | vStringList : TStringList; | ||
| + | vMessageBox : TdbfMessageBox; | ||
| + | vAttachementDescriptor : TdbfAttachementDescriptor; | ||
| + | vAttachementDescriptorList : TdbfAttachementDescriptorList; | ||
begin | begin | ||
| − | + | vMessageBox := TdbfMessageBox.FindBox('mybox'); | |
| − | if Assigned( | + | if Assigned(vMessageBox) then |
begin | begin | ||
| − | + | vMessageBoxList := TdbfAttachementDescriptor.CreateList; | |
| − | // | + | |
| − | + | //Document method | |
| − | + | vAttachementDescriptor := TdbfAttachementDescriptor.Create; | |
| − | + | vAttachementDescriptor.Document := 'd:\Mes documents\Mes images\gourbeyre.jpg'; | |
| − | // | + | vAttachementDescriptorList.AddRef(vAttachementDescriptor); |
| − | + | ||
| − | + | //LoadFromFile method | |
| − | + | vAttachementDescriptor := TdbfAttachementDescriptor.Create; | |
| − | + | vAttachementDescriptor.Caption := 'avatar'; | |
| − | + | vAttachementDescriptor.Content.LoadFromFile('d:\Mes documents\Mes images\sage-avatar.jpg'); | |
| − | // | + | vAttachementDescriptor.SetDocumentTypeByExtension('.jpg'); |
| − | + | vAttachementDescriptorList.AddRef(vAttachementDescriptor); | |
| + | |||
| + | //Assignation method | ||
| + | vStringList := TStringList.Create; | ||
| + | vStringList.Add(Format('Some line : %s.', [FormatDateTime('yyyymmddhhnnsszzz', Now])); | ||
| + | vStringList.Add('Another line.'); | ||
| + | vStringList.Add('Some characters : éèçàùµ°.'); | ||
| + | vStringList.Add('End of Document.'); | ||
| + | |||
| + | vAttachementDescriptor := TdbfAttachementDescriptor.Create; | ||
| + | vAttachementDescriptor.Caption := 'data'; | ||
| + | vAttachementDescriptor.Content.AsBase64Binary := vStringList.AsBase64Binary; | ||
| + | vAttachementDescriptor.SetDocumentTypeByExtension('.txt'); | ||
| + | vAttachementDescriptorList.AddRef(vAttachementDescriptor); | ||
| + | |||
| + | //Now Send this message | ||
| + | vMessageBox.SendMessageTo('box1;box2','Some subject','Some content', vAttachementDescriptorList); | ||
end; | end; | ||
end; | end; | ||
Version du 21 juin 2018 à 12:50
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; //Procedure SendMessageWithattachements; Var vStringList : TStringList; vMessageBox : TdbfMessageBox; vAttachementDescriptor : TdbfAttachementDescriptor; vAttachementDescriptorList : TdbfAttachementDescriptorList; begin vMessageBox := TdbfMessageBox.FindBox('mybox'); if Assigned(vMessageBox) then begin vMessageBoxList := TdbfAttachementDescriptor.CreateList; //Document method vAttachementDescriptor := TdbfAttachementDescriptor.Create; vAttachementDescriptor.Document := 'd:\Mes documents\Mes images\gourbeyre.jpg'; vAttachementDescriptorList.AddRef(vAttachementDescriptor); //LoadFromFile method vAttachementDescriptor := TdbfAttachementDescriptor.Create; vAttachementDescriptor.Caption := 'avatar'; vAttachementDescriptor.Content.LoadFromFile('d:\Mes documents\Mes images\sage-avatar.jpg'); vAttachementDescriptor.SetDocumentTypeByExtension('.jpg'); vAttachementDescriptorList.AddRef(vAttachementDescriptor); //Assignation method vStringList := TStringList.Create; vStringList.Add(Format('Some line : %s.', [FormatDateTime('yyyymmddhhnnsszzz', Now])); vStringList.Add('Another line.'); vStringList.Add('Some characters : éèçàùµ°.'); vStringList.Add('End of Document.'); vAttachementDescriptor := TdbfAttachementDescriptor.Create; vAttachementDescriptor.Caption := 'data'; vAttachementDescriptor.Content.AsBase64Binary := vStringList.AsBase64Binary; vAttachementDescriptor.SetDocumentTypeByExtension('.txt'); vAttachementDescriptorList.AddRef(vAttachementDescriptor); //Now Send this message vMessageBox.SendMessageTo('box1;box2','Some subject','Some content', vAttachementDescriptorList); end; end;
