TdbfAttachementDescriptor (class)
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
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;