TdbfAttachementDescriptor (class)

De Wiki1000
(Différences entre les versions)
(Attributs)
 
(3 révisions intermédiaires par 2 utilisateurs sont masquées)
Ligne 10 : Ligne 10 :
 
|[[Attachement (TdbfAttachementDescriptor)|Attachement]]
 
|[[Attachement (TdbfAttachementDescriptor)|Attachement]]
 
|Référence vers la pièce jointe
 
|Référence vers la pièce jointe
 +
|-
 +
|[[Caption (TdbfAttachementDescriptor)|Caption]]
 +
|Nom du fichier en mode stream
 
|-
 
|-
 
|[[Document (TdbfAttachementDescriptor)|Document]]
 
|[[Document (TdbfAttachementDescriptor)|Document]]
Ligne 50 : Ligne 53 :
 
<source lang="delphi">
 
<source lang="delphi">
 
//Procedure SendMessageWithattachements;
 
//Procedure SendMessageWithattachements;
var box:TdbfMessageBox; desc:TdbfAttachementDescriptor; lsa:TdbfAttachementDescriptorList;
+
Var
 +
  vStringList                : TStringList;
 +
  vMessageBox                : TdbfMessageBox;  
 +
  vAttachementDescriptor    : TdbfAttachementDescriptor;
 +
  vAttachementDescriptorList : TdbfAttachementDescriptorList;
 
begin
 
begin
   box := TdbfMessageBox.FindBox('mybox');
+
   vMessageBox := TdbfMessageBox.FindBox('mybox');
   if Assigned(box) then
+
   if Assigned(vMessageBox) then
 
   begin
 
   begin
     lsa := TdbfAttachementDescriptor.CreateList;
+
     vMessageBoxList := TdbfAttachementDescriptor.CreateList;
     //
+
   
     desc := TdbfAttachementDescriptor.Create;
+
     //Document method
     desc.Document := 'd:\Mes documents\Mes images\gourbeyre.jpg';
+
     vAttachementDescriptor := TdbfAttachementDescriptor.Create;
     lsa.AddRef(desc);
+
     vAttachementDescriptor.Document := 'd:\Mes documents\Mes images\gourbeyre.jpg';
     //
+
     vAttachementDescriptorList.AddRef(vAttachementDescriptor);
     desc := TdbfAttachementDescriptor.Create;
+
   
     desc.Caption := 'avatar';
+
     //LoadFromFile method
     desc.Content.LoadFromFile('d:\Mes documents\Mes images\sage-avatar.jpg');
+
     vAttachementDescriptor := TdbfAttachementDescriptor.Create;
     desc.SetDocumentTypeByExtension('.jpg');
+
     vAttachementDescriptor.Caption := 'avatar';
     lsa.AddRef(desc);
+
     vAttachementDescriptor.Content.LoadFromFile('d:\Mes documents\Mes images\sage-avatar.jpg');
     //
+
     vAttachementDescriptor.SetDocumentTypeByExtension('.jpg');
     box.SendMessageTo('box1;box2','Some subject','Some content', lsa);
+
     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;
 
</source>
 
</source>
  
{{Footer|Boites à messages (api)}}
+
{{Footer|Boites à messages (dsm)}}
 
[[category:Classes frameworks]]
 
[[category:Classes frameworks]]
 
[[category:Boîtes à messages]]
 
[[category:Boîtes à messages]]
 +
[[category:TdbfAttachementDescriptor]]

Version actuelle en date du 22 juin 2018 à 10:23

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
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





Whos here now:   Members 0   Guests 1   Bots & Crawlers 0
 
Outils personnels