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);