Base64/ Mime für Dateien

[Redeemer]

Meine Methode (oder besser gesagt MemoryStreams) benutzt man so:

Delphi-Quellcode:

var
  Input, Output: TMemoryStream;
begin
  Input := TMemoryStream.Create;
  Output := TMemoryStream.Create;
  try
    Input.LoadFromFile('meinedatei.bin');
    Base64EncodeStream(Input, Output);
    Output.SaveToFile('meinedatei.txt');
  finally
    Input.Free;
    Output.Free;
  end;
end;