Delphi Modbus RTU CRC16校验码

最新推荐文章于 2024-10-04 15:04:01 发布

book_gwbasic

最新推荐文章于 2024-10-04 15:04:01 发布

阅读量975

点赞数

分类专栏： delphi

delphi 专栏收录该内容

2 篇文章 0 订阅

订阅专栏


function CheckCrc16(const ABuf; ALen: Integer): Boolean;
var
  uwTemp: WORD;
  i, j: BYTE;
  P: PByte;
begin
  Result := False;

  P := PByte(@ABuf);

  uwTemp := $FFFF;
  for i := 1 to ALen do
  begin
    uwTemp := uwTemp xor P^;
    for j := 1 to 8 do
    begin
      if (uwTemp and 1) = 1 then
        uwTemp := (uwTemp shr 1) xor $A001
      else
        uwTemp := uwTemp shr 1
    end;
    Inc(P);
  end;

  if P^ = BYTE(uwTemp) then
  begin
    Inc(P);
    if P^ = BYTE(uwTemp shr 8) then
    begin
      Result := True;
    end
  end
end;