Bei Indy9 bekomme ich da ein Problem mit dem FillChar - er wird ignoriert. Musste die Peitsche schwingen:
Delphi-Quellcode:
const
Filler = '==';
var
fs: TFileStream;
ms: TMemoryStream;
s: String;
begin
fs := TFileStream.Create(ChangeFileExt(ParamStr(0), '.dpr'), fmOpenRead);
ms := TMemoryStream.Create;
ms.CopyFrom(fs, fs.Size);
fs.Free;
ms.WriteBuffer(Filler[1], 3 - ms.Size mod 3);
ms.Position := 0;
s := IdEncoderUUE.Encode(ms, ms.Size);
ms.Free;
ShowMessage(IdDecoderUUE.DecodeString(s));
end;
Allerdings kommt auch der Decoder aus dem Tritt und dafür ist mir noch keine Lösung eingefallen.
marabu