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
Caption	Nom du fichier en mode stream
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;

— Boites à messages (dsm) — Développement DSM —