Hola,alguien puede ayudarme a convertir este codigo c++ a delphi Berlin,gracias de antemano.
cpp
unsigned int CRTable[256] =[0x00000000L, 0x77073096L, 0xEE0E612CL,...] //--------------------------------------------------------------------------------------------- unsigned int CRC(void *pData, size_t iLen) { unsigned int uiCRC32 = 0xFFFFFFFF; unsigned char *pszData = (unsigned char*)pData; for (size_t i = 0; i<iLen; ++i) uiCRC32 = ((uiCRC32 >> 8) & 0x00FFFFFF) ^ CRTable[(uiCRC32 ^ (unsigned int)*pszData++) & 0xFF]; return (uiCRC32 ^ 0xFFFFFFFF); }
Esto es lo que podido hacer lo siguiente (pero no estoy seguro con los tipos de datos).
delphi
CRCTable: Array [0 .. 255] of DWORD = ($00000000, $77073096,....) //----------------------------------------------------- function CRC(pData: Pointer; iLen: size_t): integer; var uiCRC32: cardinal; pszData: ^Pchar; I: Integer; begin pszData^ := pData; for I := 0 to iLen do uiCRC32 := ((uiCRC32 shr 8) and $00FFFFFF) xor CRTable[(uiCRC32 xor ..???..) and $FF]; result := (uiCRC32 xor $FFFFFFFF); end;