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