Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#2

AW: Base64/ Mime für Dateien

  Alt 13. Sep 2017, 12:23
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.

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat