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

<source lang="delphi"> //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; </source>

{{#if:Boites à messages (dsm)|

{{#if:Boites à messages (dsm)|— Boites à messages (dsm) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}