INDY POP3

[itashadow]

danke das scheint mir für ein anderes Problem sehr nützlich zu sein

aber ich hab jetzt die lösung für mein problem:

in der IDCoder3to4:

Delphi-Quellcode:

procedure TIdDecoder4to3.Decode(const AIn: string; const AStartPos: Integer = 1; const ABytes: Integer = -1);
var
  LIn : TIdBytes;
  LOut: TIdBytes;
begin
  try
    if (AIn <> '') and (strstrcount(AIn,#0) = 0)  then begin
      SetLength(LIn, 0); // Delphi 7.1 first edition warning bug
      SetLength(LOut, 0); // Delphi 7.1 first edition warning bug
      LIn := ToBytes(AIn); // if in dotnet, convert to serialisable format

      LOut := InternalDecode(LIn, AStartPos, ABytes);
      // Write out data to stream
      TIdStreamHelper.Write(FStream,LOut,ABytes);
    end;
    except;
  end;
end;

hab festegestellt das er beim Base64 Decodieren einmal zu oft in die Prozedur geht und beim letzten mal
AIn den wert "#0'==='" hat.

wofür steht eigentlich das #0?

naja so läuft es erst einmal

jetzt muss ich nur noch verschlüsseln können