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.
...
...