哪位兄弟能不能帮我把这个函数转成delphi,多谢~

显示全部楼层 · 2021-1-27 07:04:30

u16CRC16(void*Buff_addr,u16len)
{
u8*dataPtr=(u8*)Buff_addr;
u16index=0;
u16crc=0;
while(len--)
{
crc=(u8)(crc>>8)|(crc>4;
crc^=(crc -->

千问 · 2021-1-27 07:04:30

献上妹子一张~

千问 · 2021-1-27 07:04:30

functionCRC16(varBuff_addr;len:Word):Word;
var
index,crc:Word;
dataPtr:PChar;
begin
dataPtr:=PChar(@Buff_addr);
index:=0;
crc:=0;
while(len>0)do
begin
crc:=Byte((crcshr8)or(crcshl8));
crc:=crcxorByte(dataPtr[index]);
Inc(index);
crc:=crcxorByte((crcand$ff)shr4);
crc:=crcxor(crcshl8)shl4;
crc:=crcxor((crcand$ff)shl4)shl1;
end;
Result:=crc;
end;

千问 · 2021-1-27 07:04:30

妹子丑，还带游泳圈。
你得给出u16,u8的定义，这两个显然是自定义类型或某类型的typedef

千问 · 2021-1-27 07:04:30

要修改下，如下：
functionCRC16(varBuff_addr;len:Word):Word;
var
index,crc:Word;
dataPtr:PChar;
begin
dataPtr:=PChar(@Buff_addr);
index:=0;
crc:=0;
while(len>0)do
begin
crc:=Byte(crcshr8)or(crcshl8);
crc:=crcxorByte(dataPtr[index]);
Inc(index);
crc:=crcxorByte(crcand$ff)shr4;
crc:=crcxor(crcshl8)shl4;
crc:=crcxor((crcand$ff)shl4)shl1;
end;
Result:=crc;
end;

千问 · 2021-1-27 07:04:30

多谢，我试下！
u16就是双字节unsignedshort;
u8unsignedchar;

千问 · 2021-1-27 07:04:30

还有点问题
原先的函数定义是
functionCRC16_Modbus(pByteInfo:PByte;iLength:integer);stdcall;external'CRC16Modbus.dll';
现在改成
functionCRC16(varBuff_addr;len:Word):Word;
编译报错，能不能兼容原来的定义？

千问 · 2021-1-27 07:04:30

千问 · 2021-1-27 07:04:30

引用6楼camdw的回复:还有点问题
原先的函数定义是
functionCRC16_Modbus(pByteInfo:PByte;iLength:integer);stdcall;external'CRC16Modbus.dll';
现在改成
functionCRC16(varBuff_addr;len:Word):Word;
编译报错，能不能兼容原来的定义？
可以
functionCRC16_Modbus(pByteInfo:PByte;iLength:integer);stdcall;external'CRC16Modbus.dll';
或者
functionCRC16_Modbus(pByteInfo:PChar;iLength:integer);stdcall;external'CRC16Modbus.dll';
functionCRC16(pByteInfo:PChar;iLength:integer):Word;

千问 · 2021-1-27 07:04:30

原来是这样调用的
var
Data:array[0..2048]ofByte;
iCount，iResult:Integer;
iResult:=CRC16_Modbus(@Data,iCount);
现在我想直接替换成
iResult:=CRC16(@Data,iCount);这种方式~基本不会delphi!