TIdDecoderUUE aus FastNet NMUUE

[marabu]

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