Zitat von
Aljoscha:
Vielen Dank für die Antwort!
Das werde ich auch noch probieren, aber jetzt würde ich gerne erstmal den Fehler bei der Base64-codierung finden
Ich habe immernoch nicht herausgefunden, warum es am Ende 4 Bytes mehr sind
Ohne jetzt genauer geschaut zu haben, wird die codierte Datei offensichtlich um 4 Byte größer, wenn sich die Länge nicht durch 3 teilen lässt.
Delphi-Quellcode:
//Ausschnitt aus der Base64-Unit
function CalcEncodedSize(InSize: Cardinal): Cardinal;
begin
// no buffers passed along, calculate outbuffer size needed
Result := (InSize
div 3)
shl 2;
if ((InSize
mod 3) > 0)
then Inc(Result, 4);
end;