Bild/File -> Base64

[JSB]

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

[Klaus01]

Guten Morgen,

kennst Du die base64 Unit von sakura?

Grüße
Klaus

[JSB]

Nein, kannte ich nicht...

Die ist ziemlich Interessant.. :shock:

Assembler und so...

Wenn ich mir das anschau, komme ich mir ganz schön klein und doof vor... :duck:
Ich verstehe quasi NULL. Werde trotzdem mal einen Tieferen Blick wagen.