Hier mal meine Prozeduren (der Buttons) für das Kodieren und Dekodieren:
Kodieren:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
INPUTFILE = 'C:\test.jpg';
OUTPUTFILE = 'C:\test.b64';
var
OutText: String;
begin
Base64EncodeFile(INPUTFILE, Outtext);
DeleteFile(OUTPUTFILE);
with TFileStream.Create(OUTPUTFILE, fmCreate) do
try
Write(Outtext[1], Length(Outtext));
finally
Free;
end;
end;
Dekodieren:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
const
INPUTFILE = 'C:\test.b64';
OUTPUTFILE = 'C:\out.jpg';
var
InText: String;
begin
with TFileStream.Create(INPUTFILE, fmOpenRead) do
try
Position:= 0;
SetLength(InText, Size);
Read(InText[1], Size);
finally
Free;
end;
Base64DecodeFile(InText, OUTPUTFILE); // editiert: von Text -> InText geändert
end;
Vielleicht liegt hier auch noch ein Fehler.
Gruß
Matthias