Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.926 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: CRC32 mit DEC erzeugt stimmt nicht?

  Alt 24. Jul 2009, 14:10
hmmm, dann stimmt wohl etwas nicht


du weißt, daß Buf in diesem Fall ein UnicodeString ist?
Delphi-Quellcode:
const
  Buf = '123456789';

  result := IntToHex(CRCCalc(CRC_32CCITT, PAnsiChar(Buf)^, Length(Buf)), 4);
also ist Buf bei dir effektiv nur
Buf = AnsiString('1'#0'2'#0'3'#0'4'#0'5'); #wobei PAnsiChar und ein WideString nicht so gut passen und da sollte es eigentlich eine Meldung seitens Delphi geben


versuch mal
Delphi-Quellcode:
const
  Buf: AnsiString = '123456789';

  result := IntToHex(CRCCalc(CRC_32CCITT, PAnsiChar(Buf)^, Length(Buf)), 4);
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat