L'encodage MIME est une des solutions.
var
stream: TFileStream;
begin
stream := TFileStream.Create(FileName, fmOpenRead);
try
stream.Seek(0, soFromBeginning);
with TIdEncoderMIME.Create(nil) do
try
Result := Encode(stream, stream.size);
finally
Free;
end;
finally
stream.Free;
end;
end; |
(TIdEncoderMIME est dans IdCoderMIME, et fait partie des composants Indy, fourni dans les versions récentes de Delphi et téléchargeable gratuitement)
Message édité par antp le 29-05-2005 à 13:09:33
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire