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