Delphi使用Modbus常用的一些函数.docxVIP

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持. 文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持. PAGE PAGE 1 CRC-16 校验(多项式为 x16+x15+x2+1): type {CRC 校验} TDataByte = array of byte; const CRCHi: array [0..255] of byte = ( $00, $C1, $81, $40, $01, $C0, $80, $41, $01, $C0, $80, $41, $00, $C1, $81, $40, $01, $C0, $80, $41, $00, $C1,