Hallo,
ich möchte gerne ein Bild (oder eine andere Datei) in Base64 wandeln.
Ich habe zwar ein bisschen was zu Base64 gefunden, allerdings nichts was mir weiterhelfen konnte.
Ich habe bislang versucht die Datei/das Bild in ein Stream zu laden, um dann das ganze in Base64 zu wandeln. Allerdings bricht er bei einem Null-Bit ab. Ich habe das Programm als Anhang dabei.
Code:
Delphi-Quellcode:
var fs: TFileStream;
s :AnsiString;
...
fs.Position := 0;
SetLength(s,fs.Size);
Memo1.Lines.Add('s:' + inttostr((length(s) div 1024)));
Memo1.Lines.Add('fs:' + inttostr((fs.Size) div 1024));
fs.ReadBuffer(s[1],fs.Size);// .ReadBuffer(s,fs.Size);
encoder.Encode(s);
memo1.Lines.Add(s);
re.Lines.Text := s;
Bei "encoder" handelt es sich um die Komponente TIdEncoderMIME
Kennt nicht jemand eine einfachere Lösung die vor allen Dingen funktionier?
Danke im Voraus...