TdbfAttachementDescriptor (class)
De Wiki1000
(Différences entre les versions)
m (a renommé TdbfAttachementDescriptor (bam) en TdbfAttachementDescriptor (class)) |
(→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 | |
| + | vStringList : TStringList; | ||
| + | vMessageBox : TdbfMessageBox; | ||
| + | vAttachementDescriptor : TdbfAttachementDescriptor; | ||
| + | vAttachementDescriptorList : TdbfAttachementDescriptorList; | ||
begin | begin | ||
| − | + | vMessageBox := TdbfMessageBox.FindBox('mybox'); | |
| − | if Assigned( | + | if Assigned(vMessageBox) then |
begin | 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; | ||
end; | end; | ||
</source> | </source> | ||
| − | {{Footer|Boites à messages ( | + | {{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;
