TIdDecoderUUE aus FastNet NMUUE

[Jelly]

Ich habe mit den Fastnet Komponenten den Inhalt einer Datei UUencoded, und möchte den nun eigentlich über die TIdDecoderUUE Komponte aus Indy 10 wieder dekodieren, ich krieg aber einfach nur die nichtsaussagekräftige Fehlermeldung "Fehler bei Bereichsprüfung". Hier mein Code zum Decodieren:

Delphi-Quellcode:

procedure Decode ;
var
 SL : TStringList ;
 s : string ;
begin
     SL := TStringList.create ;
     SL.loadfromfile('c:\temp\uue.txt') ;
     s := SL.text ;
     SL.text := UUEDec.DecodeString(s) ;
     SL.Savetofile ('c:\temp\uue_decoded.txt') ;
     SL.free ;
end;

Wieso klappt das so nicht? Liegts an meiner Dekodierroutine oder daran, dass Fastnet und Indy unterschiedlich kodieren... Wobei, das Kodieren über die Indy spuckt mir den gleichen Fehler aus... Also irgendwie handhab ich die Indy Kompos wohl falsch.

[Jelly]

Lang ists her, muss das Thema aber nochmals aufrollen. Als Zwischenlsung hatte ich die Fastnet Komponente auch in Delphi 6 benutzt, um zu encoden und decoden. Mit Delphi 2006 gibts die Kompos aber nicht mehr, und ich muss wohl auf die Indy zugreifen. Aber wie schon vor 4 Monaten, ich krieg mit den Indys nix kodiert oder dekodiert.

[marabu]

Hallo Tom,

wo ist das Problem? Bei mir ist zwar Indy9 installiert, aber die Coder sollten sich in Indy10 nicht geändert haben:

Delphi-Quellcode:

begin
  IdEncoderUUE.FillChar := '=';
  IdDecoderUUE.FillChar := '=';
  ShowMessage(IdDecoderUUE.DecodeString(IdEncoderUUE.Encode('Hallo Jelly')));
end;

Grüße vom marabu

[Jelly]

Das Beispiel klappt bei mir jetzt auch... Aber ich will eigentlich eine ganze Datei encoden:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var
 FS : TFileStream ;
begin
      IdEncoderUUE.FillChar := '=';
      IdDecoderUUE.FillChar := '=';
      Showmessage (IdEncoderUUE.Encode('Hallo Marabu')) ;   // Klappt

      FS := TFileStream.Create(txtFilename.text,fmOpenRead);
      try
        IdEncoderUUE.Encode(FS) ;
      finally
        FS.Free;
      end;
end;

Da krieg ich nur eine Range Check Error

[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

[Jelly]

Mir ist noch Folgendes bei deinem ersten Beispiel aufgefallen:

Showmessage (IdEncoderUUE.Encode('Hallo Marabu')) ; Bis zu einer Länge von 64 Zeichen klappt das Encoden. Geht's darüber hinaus, gibts die Range Check Error

Ich stolper immer wieder über die Indy Komponenten... Kennt vielleicht jemand eine Alternative fürs UUEncoden und Decoden.

[marabu]

We are not amused.

Versuche es mal mit den Routinen von Bob Swart - sind zwar schon 5 Jahre alt, aber da wird sich wohl nicht soviel geändert haben. Oder besuche mal sakura in der CodeLib: klick

marabu