Base64/ Mime für Dateien

[sakura]

Warum nutzt Du nicht die TIdEncoderMIME Klasse der Indy-Unit IdCoderMIME? Damit geht es recht einfach und schnell.

Delphi-Quellcode:

  FileToEncode := TFileStream.Create(aFileNameSource, fmOpenRead);
  FileAsBase64 := TFileStream.Create(aFileNameDest, fmCreate);
  try
    idCodec64.Encode(FileToEncode, FileAsBase64);
  finally
    FileAsBase64.Destroy;
    FileToEncode.Destroy;
  end;

Bei mir dauern 80 MB etwas mehr als 4 Sekunden.

......