Discussion :

[srvremi]

Bonjour. J'utilise le composant TXMLDocument de Delphi, et je cherche à écrire la valeur récupérée d'un TStream dans une balise.
Comment puis-je faire ?

Merci d'avance.
Rémi

[Pierre Castelain]

Il faut l'encoder dans un format texte, mime64 par exemple, comme le font les clients d'e-mail.

[srvremi]

J'ai essayé de faire l'encodage avec les composants Indy, mais je n'y arrive pas.

Pouvez-vous m'aider ?

Cordaielemnt,
Rémi

[Pierre Castelain]

C'est pourtant simple.
Voici un exemple utilisant un TButton, un TOpenDialog, un TMemo et un TidEncoderMIME :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  if OpenDialog1.Execute then
  begin
    fs:= TFileStream.Create(OpenDialog1.Filename, fmOpenRead);
    try
      Memo1.Lines.Text:= IdEncoderMIME1.Encode(fs);
    finally
      fs.Free;
    end;
  end;
end;

[srvremi]

Non ce que je veux dire, c'est que si le résultat encodé est trop grand, le texte enregistré dans la balise est tronqué donc invalide.

Rémi.