TdbfAttachementDescriptor (class)

De Wiki1000
(Différences entre les versions)
(→Attributs)
 
(7 révisions intermédiaires par 2 utilisateurs sont masquées)
Ligne 5 : Ligne 5 :
 
{|class="wikitable"
 
{|class="wikitable"
 
|-
 
|-
−
|[[DocumentType (TdbfAttachementDescriptor)|Document]]
+
|[[DocumentType (TdbfAttachementDescriptor)|DocumentType]]
 
|Référence vers le type du document.
 
|Référence vers le type du document.
−
|-
 
−
|[[MessageGui (TdbfAttachementDescriptor)|MessageGui]]
 
−
|
 
 
|-
 
|-
 
|[[Attachement (TdbfAttachementDescriptor)|Attachement]]
 
|[[Attachement (TdbfAttachementDescriptor)|Attachement]]
 
|Référence vers la pièce jointe
 
|Référence vers la pièce jointe
 
|-
 
|-
−
|[[DocumentFileName (TdbfAttachementDescriptor)|DocumentFileName]]
+
|[[Caption (TdbfAttachementDescriptor)|Caption]]
−
|
+
|Nom du fichier en mode stream
 
|-
 
|-
 
|[[Document (TdbfAttachementDescriptor)|Document]]
 
|[[Document (TdbfAttachementDescriptor)|Document]]
Ligne 22 : Ligne 19 :
 
|[[Content (TdbfAttachementDescriptor)|Content]]
 
|[[Content (TdbfAttachementDescriptor)|Content]]
 
|Contenu du document à rattacher
 
|Contenu du document à rattacher
 +
|-
 +
|[[DocumentPath (TdbfAttachementDescriptor)|DocumentPath]]
 +
|Chemin du document si celui-ci est un fichier
 +
|-
 +
|[[DocumentFileName (TdbfAttachementDescriptor)|DocumentFileName]]
 +
|Nom du document si celui-ci est un fichier
 +
|-
 +
|[[isFile (TdbfAttachementDescriptor)|isFile]]
 +
|le document est un fichier
 +
|-
 +
|[[isURL (TdbfAttachementDescriptor)|isURL]]
 +
|le document est une URL
 
|}
 
|}
  
Ligne 27 : Ligne 36 :
 
{|class="wikitable"
 
{|class="wikitable"
 
|-
 
|-
−
|
+
|[[SetDocumentTypeByExtension (TdbfAttachementDescriptor)|SetDocumentTypeByExtension]]
−
|
+
|Positionne le type du document
 
|}
 
|}
  
Ligne 40 : Ligne 49 :
 
Voir aussi :
 
Voir aussi :
  
−
{{Footer|Boites à messages (api)}}
+
Exemple : Envoi d'un message avec pièces jointes
 +
 
 +
<source lang="delphi">
 +
//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>
 +
 
 +
{{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 à 11: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
 
Récupérée de « https://frp.sage.fr/wiki1000/index.php?title=TdbfAttachementDescriptor_(class)&oldid=12225 »
Outils personnels