Indy, corps du message dans un blob

Bonjour,

j'ai établi selon la langue un certain nombre de courriers types
Mon problème c'est comment charger ce courrier !

Question principale
Mon dernier code hier soir
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 var BodyStream : TStream; ... with Datas.CourrierType do begin Active := False; MailBody.Clear; ParamByName('ID').AsInteger := Datas.QFactures.FieldByName('LANGUE').AsInteger; Active := True; IdMsg.Subject := FieldByName('SUJET').AsString; IdMsg.Subject := StringReplace(IdMsg.Subject, '<piece>', NomFichier, [rfReplaceAll, rfIgnoreCase]); BodyStream:=TStream.Create; try BodyStream := CreateBlobStream(FieldByName('Contenu'), bmRead); BodyStream.Position:=0; ContenuMsg.PlainText.LoadFromStream(BodyStream); finally BodyStream.Free; end; Active := False; end; ..
Ce code ne fonctionne pas j'obtiens un "TPF0TStateSaver" alors que je devrais avoir

Citation:

Hello World
Bonjour le monde

Je continue mes investigations mais si quelqu'un entre temps à une idée, je prends ;)

En question subsidiaire
Pour envoyer un fichier contenu dans un blob ceci fonctionne
Code:

1 2 with ContenuMsg.Attachments.Add(AStream, 'application/pdf', '1') do FileName:=NomFichier;
même si je ne comprends pas trop le dernier paramètre, j'ai mis '1' dans la chaine mais NULL aurait peut-être été tout pareil, à quoi peut bien correspondre AContentID et si j'ajoutais une autre pièce que se passerait-il si la valeur était identique ?

je n'ai pas tout compris mais le ContentID permet d'identifier une pièce jointe à l'intérieur d'un mail HTML, par exemple le logo sera référencé par une balise <img src="CID:XXX">

Merci Paul,
Pour ce qui est du ContentID donc s'il s'agit d'un fichier joint (pdf) je ne mettrai rien (NULL)

Je butte plus sur le contenu
en fait je veux remplacer

Code:

ContenuMsg.Html.Add('Hello World');

par un texte contenu dans un blob

Code:

ContenuMsg.Html.LoadFromStream(monblob);

seulement, quand je tente de le faire via
Code:

1 2 3 4 5 6 7 8 BodyStream:=TStream.Create; try BodyStream := CreateBlobStream(FieldByName('Contenu'), bmRead); BodyStream.Position:=0; ContenuMsg.HTML.LoadFromStream(BodyStream); finally BodyStream.Free; end;
ou directement

Code:

ContenuMsg.HTML.LoadFromStream(CreateBlobStream(FieldByName('Contenu'), bmRead));

je n'ai pas le texte escompté, pire, j'ai des fuites de mémoires dans le premier cas un TStream, dans la seconde un BlobStream
bref quelque chose cloche !
Je viens d'avoir l'idée de mettre le texte dans un TStringlist histoire de voir où ça coince

1 pièce(s) jointe(s)

J'ai fini par m'en sortir !
Pour ceux que ça intéresse voilà comment
tout d'abord une image pour expliquer
Pièce jointe 461276
Cette partie test fonctionne correctement
Le truc auquel je n'avais pas pris garde c'est que le texte qui ne voulais pas sortir se trouve en fait dans un TMSFMXRichEditor que je sauvegarde dans mon fichier de cette manière :
Code:

1 2 3 4 5 6 Stream := CreateBlobStream(FieldByname('Contenu'), bmwrite); try TMSFMXRichEditor.SaveToStream(Stream); finally Stream.Free; end; ;
c'est peut être là mon erreur, j'aurai peut-être dû sauvegarder ainsi
Code:

1 2 3 // A tester FieldByName('CONTENU').asString:=TMSFMXRichEditor.ContentAsHTML;
Toujours est-il que pour l'instant je ne sauve pas un "texte" mais un objet !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 var BodyStream : TStream; RichText :TTMSFMXRichEditor; .... BodyStream:=TStream.Create; RichText:=TTMSFMXRichEditor.Create(Self); try BodyStream:=CreateBlobStream(FieldByname('CONTENU'),bmread); RichText.LoadFromStream(BodyStream); ContenuMsg.Html.Add(RichText.ContentAsHTML()); finally RichText.Free; BodyStream.Free; end; ....
J'ai ainsi mon texte (avec la couleur) dans le corps du message

ne serais-ce pas plutôt

Code:

1
2
3
4
5
6
7
8
 
// BodyStream:=TStream.Create;
                 BodyStream := CreateBlobStream(FieldByName('Contenu'), bmRead);
               try
                 ContenuMsg.HTML.LoadFromStream(BodyStream);
               finally
                 BodyStream.Free;
               end;

Oui, à force de faire des essais, j'en ai oublié des suppressions :oops:

Sinon même si c'est après coup, formation à l'extérieur oblige
"TPF0TStateSaver" c'est le début d'un DFM Binaire "TPF0" + ClassName ... surement issu du SaveToStream que tu as fini par changer en ContentAsHTML

Bonjour,
Je n'aurais jamais pensé à ça, merci je ne connaissais pas ce truc de TFP0
Cela dit j'ai certainement à creuser du côté de cette sauvegarde certes elle prouve que l'on peut stocker des objets Delphi mais moi je voulais surtout le seul contenu HTML