串口通信（高分），高手请进 (80分)

我要发送一组数据（有通信协议），通过CRC算法（附加算法）。请高手用DELPHI帮忙写一个模块，实现下述功能：
发送：　　　　　　　　　　　　　　接收：
地址　　　　　　　　　　　　　　　地址　　　　
功能码　　　　　　　　　　　　　　功能码　　　
寄存器地址高　　　　　　　　　　　字节个数　　　
寄存器地址低　　　　　　　　　　　数据1　　　　　　　　　　　
寄存器个数高　　　　　　　　　　　数据2　　　　
寄存器个数低　　　　　　　　　　　数据3　　　　
CRC校验码高　　　　　　　　　　　数据4　　　　
CRC校验码低　　　　　　　　　　　CRC校验码高　　　　
CRC校验码低　　　　
下面是通信协议：
1、通信接口RS485或RS232，波特率范围1200-9600。
2、仪表接线端为A, B和COM。
3、通信协议符合MODBUS规约。说明书表2中寄存器编号为寄存器地址。
4、通信信息组成：地址码-功能码-数据段-CRC校验码,一条消息连续发送和接收，字符间隔不能大于一个字符，否则认为一条新消息开始或老消息结束。信息体由十六进制数组成。.
5、数据定义：累积量为4字节十六进制定点数，瞬时量为4字节浮点数。.
6、通信命令：
功能码03-用来读取显示数据
发送 01 ;地址 回应 01 ;地址
03 ;功能码 03 ;功能码
00 ;寄存器地址高 04 ;字节个数
01 ;寄存器地址低 80 ;数据1
00 ;寄存器个数高 04 ;数据2
04 ;寄存器个数低 80 ;数据3
CRCH ;CRC校验码高 80 ;数据4
CRCL ;CRC校验码低 CRCH ;CRC校验码
CRCL ;CRC校验码低
功能码04-用来读取数设定数据和码设定数据，
寄存器个数=1读码设定；=4读数设定。
读取数设定数据
发送 01 ;地址 回应 01 ;地址
04 ;功能码 04 ;功能码
00 ;寄存器地址高 04 ;字节个数
01 ;寄存器地址低(显示地址) 80 ;数据1
00 ;寄存器个数高 04 ;数据2
04 ;寄存器个数低 80 ;数据3
CRCH ;CRC校验码高 80 ;数据4
CRCL ;CRC校验码低 CRCH ;CRC校验码
CRCL ;CRC校验码低
读取码设定数据
发送 01 ;地址 回应01 ;地址
04 ;功能码 04 ;功能码
00 ;寄存器地址高 01 ;字节个数
01 ;寄存器地址低(显示地址) 00 ;数据1
00 ;寄存器个数高 04 ;数据2 码内容
01 ;寄存器个数低 CRCH ;CRC校验码
CRCH ;CRC校验码高 CRCL ;CRC校验码低
CRCL ;CRC校验码低
功能码06-用来进行码设定
发送 01 ;地址 回应 01 ;地址
06 ;功能码 06 ;功能码
00 ;寄存器地址高 00 ;寄存器地址高
01 ;寄存器地址低(码设定地址)01 ;寄存器地址低
00 ;数据高 00 ;数据高
04 ;数据低 04 ;数据低
CRCH ;CRC校验码高 CRCH ;CRC校验码
CRCL ;CRC校验码低 CRCL ;CRC校验

功能码10H-用来数设定（如：100=86H，00H，00H，48H）
发送 01 ;地址 回应 01 ;地址
10H ;功能码 10H ;功能码
00 ;寄存器地址高 00 ;寄存器地址高
01 ;寄存器地址低(数设定地址) 01 ;寄存器地址低
00 ;寄存器个数高 00 ;寄存器个数高
04 ;寄存器个数低 04 ;寄存器个数低
04 ；数据个数 CRCH ;CRC校验码
86h ;数据1 CRCL ;CRC校验码低
00 ;数据2
00 ;数据3
48H ;数据4
CRCH ;CRC校验码高
CRCL ;CRC校验码低
7、CRC校验码计算
01 ;地址 N1 CRC=0FFFFH为初值
10 ;功能码 N2 CRCL与N1异或运算
00 ;寄存器地址高N3 CRC右移1位，若移出位为1
01 ;寄存器地址低N4 则CRC=CRC和A001H异或,
00 ;寄存器个数高N5 若移出位为0则CRC=CRC
04 ;寄存器个数低N6 右移8次完成N1计算
04 ；数据个数 N7 …
80 ;数据1 N8 CRCL与N11异或运算
04 ;数据2 N9 CRC右移1位，若移出位为1
80 ;数据3 N10 则CRC=CRC和A001H异或,
80 ;数据4 N11 若移出位为0则CRC=CRC
CRCH ;CRC校验码高 右移8次完成N11计算
CRCL ;CRC校验码低 最后得到CRC校验值

8、FL98G系列仪表浮点数据格式
4字节浮点数格式：31 30 8 7 0
数符 23位未数 8位阶码
采用IEEE标准方式，不存放最高位的1，这样23位尾数还需加上隐含的最高位的1，构成1个定点原码24位小数，即尾数为小于1，大于等于0.5的小数。最低8位为阶码，采用偏移码方式，阶码等于实际数值加上127。如：3=82H，-10=75H。

下面为crc算法：
CRC算法原理及C语言实现 －来自（我爱单片机）

摘 要 本文从理论上推导出CRC算法实现原理，给出三种分别适应不同计算机或微控制器硬件环境的C语言程序。读者更能根据本算法原理，用不同的语言编写出独特风格更加实用的CRC计算程序。
关键词 CRC 算法 C语言
1 引言
循环冗余码CRC检验技术广泛应用于测控及通信领域。CRC计算可以靠专用的硬件来实现，但是对于低成本的微控制器系统，在没有硬件支持下实现CRC检验，关键的问题就是如何通过软件来完成CRC计算，也就是CRC算法的问题。
这里将提供三种算法，它们稍有不同，一种适用于程序空间十分苛刻但CRC计算速度要求不高的微控制器系统，另一种适用于程序空间较大且CRC计算速度要求较高的计算机或微控制器系统，最后一种是适用于程序空间不太大，且CRC计算速度又不可以太慢的微控制器系统。
2 CRC简介
CRC校验的基本思想是利用线性编码理论，在发送端根据要传送的k位二进制码序列，以一定的规则产生一个校验用的监督码（既CRC码）r位，并附在信息后边，构成一个新的二进制码序列数共(k+r)位，最后发送出去。在接收端，则根据信息码和CRC码之间所遵循的规则进行检验，以确定传送中是否出错。
16位的CRC码产生的规则是先将要发送的二进制序列数左移16位（既乘以 ）后，再除以一个多项式，最后所得到的余数既是CRC码，如式（2-1）式所示，其中B(X)表示n位的二进制序列数，G(X)为多项式，Q(X)为整数，R(X)是余数（既CRC码）。
（2-1）
求CRC码所采用模2加减运算法则，既是不带进位和借位的按位加减，这种加减运算实际上就是逻辑上的异或运算，加法和减法等价，乘法和除法运算与普通代数式的乘除法运算是一样，符合同样的规律。生成CRC码的多项式如下，其中CRC-16和CRC-CCITT产生16位的CRC码，而CRC-32则产生的是32位的CRC码。本文不讨论32位的CRC算法，有兴趣的朋友可以根据本文的思路自己去推导计算方法。
CRC-16：（美国二进制同步系统中采用）
CRC-CCITT：（由欧洲CCITT推荐）
CRC-32：

接收方将接收到的二进制序列数（包括信息码和CRC码）除以多项式，如果余数为0，则说明传输中无错误发生，否则说明传输有误，关于其原理这里不再多述。用软件计算CRC码时，接收方可以将接收到的信息码求CRC码，比较结果和接收到的CRC码是否相同。

3 按位计算CRC
对于一个二进制序列数可以表示为式(3-1):
(3-1)
求此二进制序列数的CRC码时，先乘以 后（既左移16位），再除以多项式G(X)，所得的余数既是所要求的CRC码。如式(3-2)所示：
(3-2)
可以设： (3-3)
其中 为整数， 为16位二进制余数。将式(3-3)代入式(3-2)得：

(3-4)
再设： (3-5)
其中 为整数， 为16位二进制余数，将式(3-5)代入式(3-4)，如上类推，最后得到：
(3-6)
根据CRC的定义，很显然，十六位二进制数 既是我们要求的CRC码。
式(3-5)是编程计算CRC的关键，它说明计算本位后的CRC码等于上一位CRC码乘以2后除以多项式，所得的余数再加上本位值除以多项式所得的余数。由此不难理解下面求CRC码的C语言程序。*ptr指向发送缓冲区的首字节，len是要发送的总字节数，0x1021与多项式有关。
unsigned int cal_crc(unsigned char *ptr, unsigned char len) {
unsigned char i;
unsigned int crc=0;
while(len--!=0) {
for(i=0x80; i!=0; i/=2) {
if((crc&0x8000)!=0) {crc*=2; crc^=0x1021;} /* 余式CRC乘以2再求CRC */
else crc*=2;
if((*ptr&i)!=0) crc^=0x1021; /* 再加上本位的CRC */
}
ptr++;
}
return(crc);
}
按位计算CRC虽然代码简单，所占用的内存比较少，但其最大的缺点就是一位一位地计算会占用很多的处理器处理时间，尤其在高速通讯的场合，这个缺点更是不可容忍。因此下面再介绍一种按字节查表快速计算CRC的方法。
4 按字节计算CRC
不难理解，对于一个二进制序列数可以按字节表示为式(4-1)，其中 为一个字节(共8位)。
(4-1)
求此二进制序列数的CRC码时，先乘以 后（既左移16位），再除以多项式G(X)，所得的余数既是所要求的CRC码。如式(4-2)所示：
（4-2）
可以设： (4-3)
其中 为整数， 为16位二进制余数。将式(4-3)代入式(4-2)得：
（4-4）
因为：
（4-5）
其中 是 的高八位， 是 的低八位。将式（4-5）代入式（4-4），经整理后得：
（4-6）
再设： (4-7)
其中 为整数， 为16位二进制余数。将式(4-7)代入式(4-6)，如上类推，最后得：
(4-8)
很显然，十六位二进制数 既是我们要求的CRC码。
式(4-7)是编写按字节计算CRC程序的关键，它说明计算本字节后的CRC码等于上一字节余式CRC码的低8位左移8位后，再加上上一字节CRC右移8位（也既取高8位）和本字节之和后所求得的CRC码，如果我们把8位二进制序列数的CRC全部计算出来，放如一个表里，采用查表法，可以大大提高计算速度。由此不难理解下面按字节求CRC码的C语言程序。*ptr指向发送缓冲区的首字节，len是要发送的总字节数，CRC余式表是按0x11021多项式求出的。
unsigned int cal_crc(unsigned char *ptr, unsigned char len) {
unsigned int crc;
unsigned char da;
unsigned int crc_ta[256]={ /* CRC余式表 */
0x0000, 0x1021, 0x2042, 0x3063, 0x4084, 0x50a5, 0x60c6, 0x70e7,
0x8108, 0x9129, 0xa14a, 0xb16b, 0xc18c, 0xd1ad, 0xe1ce, 0xf1ef,
0x 1231, 0x0210, 0x3273, 0x2252, 0x52b5, 0x4294, 0x72f7, 0x62d6,
0x9339, 0x8318, 0xb37b, 0xa35a, 0xd3bd, 0xc39c, 0xf3ff, 0xe3de,
0x2462, 0x3443, 0x0420, 0x1401, 0x64e6, 0x74c7, 0x44a4, 0x5485,
0xa56a, 0xb54b, 0x8528, 0x9509, 0xe5ee, 0xf5cf, 0xc5ac, 0xd58d,
0x3653, 0x2672, 0x1611, 0x0630, 0x76d7, 0x66f6, 0x5695, 0x46b4,
0xb75b, 0xa77a, 0x9719, 0x8738, 0xf7df, 0xe7fe, 0xd79d, 0xc7bc,
0x48c4, 0x58e5, 0x6886, 0x78a7, 0x0840, 0x1861, 0x2802, 0x3823,
0xc9cc, 0xd9ed, 0xe98e, 0xf9af, 0x8948, 0x9969, 0xa90a, 0xb92b,
0x5af5, 0x4ad4, 0x7ab7, 0x6a96, 0x1a71, 0x0a50, 0x3a33, 0x2a12,
0xdbfd, 0xcbdc, 0xfbbf, 0xeb9e, 0x9b79, 0x8b58, 0xbb3b, 0xab1a,
0x6ca6, 0x7c87, 0x4ce4, 0x5cc5, 0x2c22, 0x3c03, 0x0c60, 0x1c41,
0xedae, 0xfd8f, 0xcdec, 0xddcd, 0xad2a, 0xbd0b, 0x8d68, 0x9d49,
0x7e97, 0x6eb6, 0x5ed5, 0x4ef4, 0x3e13, 0x2e32, 0x1e51, 0x0e70,
0xff9f, 0xefbe, 0xdfdd, 0xcffc, 0xbf1b, 0xaf3a, 0x9f59, 0x8f78,
0x9188, 0x81a9, 0xb1ca, 0xa1eb, 0xd10c, 0xc12d, 0xf14e, 0xe16f,
0x1080, 0x00a1, 0x30c2, 0x20e3, 0x5004, 0x4025, 0x7046, 0x6067,
0x83b9, 0x9398, 0xa3fb, 0xb3da, 0xc33d, 0xd31c, 0xe37f, 0xf35e,
0x02b1, 0x1290, 0x22f3, 0x32d2, 0x4235, 0x5214, 0x6277, 0x7256,
0xb5ea, 0xa5cb, 0x95a8, 0x8589, 0xf56e, 0xe54f, 0xd52c, 0xc50d,
0x34e2, 0x24c3, 0x14a0, 0x0481, 0x7466, 0x6447, 0x5424, 0x4405,
0xa7db, 0xb7fa, 0x8799, 0x97b8, 0xe75f, 0xf77e, 0xc71d, 0xd73c,
0x26d3, 0x36f2, 0x0691, 0x16b0, 0x6657, 0x7676, 0x4615, 0x5634,
0xd94c, 0xc96d, 0xf90e, 0xe92f, 0x99c8, 0x89e9, 0xb98a, 0xa9ab,
0x5844, 0x4865, 0x7806, 0x6827, 0x18c0, 0x08e1, 0x3882, 0x28a3,
0xcb7d, 0xdb5c, 0xeb3f, 0xfb1e, 0x8bf9, 0x9bd8, 0xabbb, 0xbb9a,
0x4a75, 0x5a54, 0x6a37, 0x7a16, 0x0af1, 0x1ad0, 0x2ab3, 0x3a92,
0xfd2e, 0xed0f, 0xdd6c, 0xcd4d, 0xbdaa, 0xad8b, 0x9de8, 0x8dc9,
0x7c26, 0x6c07, 0x5c64, 0x4c45, 0x3ca2, 0x2c83, 0x1ce0, 0x0cc1,
0xef1f, 0xff3e, 0xcf5d, 0xdf7c, 0xaf9b, 0xbfba, 0x8fd9, 0x9ff8,
0x6e17, 0x7e36, 0x4e55, 0x5e74, 0x2e93, 0x3eb2, 0x0ed1, 0x1ef0
};

crc=0;
while(len--!=0) {
da=(uchar) (crc/256); /* 以8位二进制数的形式暂存CRC的高8位 */
crc<<=8; /* 左移8位，相当于CRC的低8位乘以 */
crc^=crc_ta[da^*ptr]; /* 高8位和当前字节相加后再查表求CRC ，再加上以前的CRC */
ptr++;
}
return(crc);
}
很显然，按字节求CRC时，由于采用了查表法，大大提高了计算速度。但对于广泛运用的8位微处理器，代码空间有限，对于要求256个CRC余式表（共512字节的内存）已经显得捉襟见肘了，但CRC的计算速度又不可以太慢，因此再介绍下面一种按半字节求CRC的算法。
5 按半字节计算CRC
同样道理，对于一个二进制序列数可以按字节表示为式(5-1)，其中 为半个字节(共4位)。
(5-1)
求此二进制序列数的CRC码时，先乘以 后（既左移16位），再除以多项式G(X)，所得的余数既是所要求的CRC码。如式(4-2)所示：
（5-2）
可以设： (5-3)
其中 为整数， 为16位二进制余数。将式(5-3)代入式(5-2)得：
（5-4）
因为：
（5-5）
其中 是 的高4位， 是 的低12位。将式（5-5）代入式（5-4），经整理后得：
（5-6）
再设： (5-7)
其中 为整数， 为16位二进制余数。将式(5-7)代入式(5-6)，如上类推，最后得：
(5-8)
很显然，十六位二进制数 既是我们要求的CRC码。
式(5-7)是编写按字节计算CRC程序的关键，它说明计算本字节后的CRC码等于上一字节CRC码的低12位左移4位后，再加上上一字节余式CRC右移4位（也既取高4位）和本字节之和后所求得的CRC码，如果我们把4位二进制序列数的CRC全部计算出来，放在一个表里，采用查表法，每个字节算两次（半字节算一次），可以在速度和内存空间取得均衡。由此不难理解下面按半字节求CRC码的C语言程序。*ptr指向发送缓冲区的首字节，len是要发送的总字节数，CRC余式表是按0x11021多项式求出的。
unsigned cal_crc(unsigned char *ptr, unsigned char len) {
unsigned int crc;
unsigned char da;
unsigned int crc_ta[16]={ /* CRC余式表 */
0x0000,0x1021,0x2042,0x3063,0x4084,0x50a5,0x60c6,0x70e7,
0x8108,0x9129,0xa14a,0xb16b,0xc18c,0xd1ad,0xe1ce,0xf1ef,
}

crc=0;
while(len--!=0) {
da=((uchar)(crc/256))/16; /* 暂存CRC的高四位 */
crc<<=4; /* CRC右移4位，相当于取CRC的低12位}*/
crc^=crc_ta[da^(*ptr/16)]; /* CRC的高4位和本字节的前半字节相加后查表计算CRC，
然后加上上一次CRC的余数 */
da=((uchar)(crc/256))/16; /* 暂存CRC的高4位 */
crc<<=4; /* CRC右移4位， 相当于CRC的低12位} */
crc^=crc_ta[da^(*ptr&amp;0x0f)]; /* CRC的高4位和本字节的后半字节相加后查表计算CRC，
然后再加上上一次CRC的余数 */
ptr++;
}
return(crc);
}
5 结束语
以上介绍的三种求CRC的程序，按位求法速度较慢，但占用最小的内存空间；按字节查表求CRC的方法速度较快，但占用较大的内存；按半字节查表求CRC的方法是前两者的均衡，即不会占用太多的内存，同时速度又不至于太慢，比较适合8位小内存的单片机的应用场合。以上所给的C程序可以根据各微处理器编译器的特点作相应的改变，比如把CRC余式表放到程序存储区内等。

我弄了一个算法，就是算出高低位来。
是这样写得不知道对不对？
请富翁们帮忙看一下了

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Function CRC_Check(HexStr:String): string;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

Function TForm1.CRC_Check(HexStr:String): string;
var
Check :integer;
Check_Height,Check_low :Byte;
L,j,m,n,i:integer;
Achar:Char;
k :array [1..2] of Byte;
RxBuf : array[1..30] of Byte;
begin
L:= length(HexStr);
j := 1 ;
n := 1 ;
HexStr := UpperCase(HexStr) ;
for i := 1 to L do
begin
achar := HexStr;
if (achar>='A') and (achar<='F') then
k[j] := ord(achar)-ord('A') + 10
else if (achar >= '0') and (achar <= '9') then
k[j] := ord(achar)-ord('0')
else
j := 0 ;
if j=2 then
begin
m := k[1]*16 + k[2] ;
j := 1 ;
RxBuf[n] :=m;
n := n+1 ;
end ;
j:= j+1 ;
end;
Check:=$FFFF;
//CRC校验
for i:=1 to n-1 do
begin
Check:= Check Xor Rxbuf;
for j:=1 to 8 do
begin
if odd(Check ) then
begin
Check:=Check shr 1;
Check:=Check xor $A001;
end
else
Check:=Check shr 1;
end;

end;
Check_Low:=HiByte(Check);
Check_Height:=LoByte(Check);
Result:=IntToHex(Check_Height,2)+' '+IntToHex(Check_Low,2);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.text :=CRC_Check(Edit1.Text);
end;

end.

现在还讨论什么CRC的速度问题啊？现在的CPU都是P4 1.7G，没关系的

//以下程序我已用多年，不华丽但实用，但：
//Modbus协议有两种，一种为RTU方式，另一种为ASCII方式
//下面程序是ASCII方式，用循环效验LRC，你的是RTU方式，CRC效验，
//ASCII方式字节树多一倍，速度慢
//你自己看看，改改吧
//正规Modbus协议以“:”冒号开头，你的？？？？？？？？
//以下程序适合：Modicon PLC


===========================================================================
//reg=40001---41900
//str=返回命令串，设置积存器用
function GetSetPLCReg(reg:WORD;value:WORD;var str:string):Boolean;
var
tem,sum:BYTE;
begref,a,tmpqty:WORD;
begin
Result:=False;
SetLength(str,17);
if (reg<40001) or (reg>41900) then exit;
str[1]:=':';
str[2]:='0';
str[3]:='1';
str[4]:='0';
str[5]:='6';
a:=reg-40001;
begref:=a;
sum:=1+6+begref div 256 + begref mod 256 + value div 256 + value mod 256;
sum:=(sum XOR $ff)+1;
tem:=begref div 4096;
if tem<10 then str[6]:=Chr(tem+$30)
else str[6]:=Chr(tem+$37);
begref:=begref mod 4096;
tem:=begref div 256;
if tem<10 then str[7]:=Chr(tem+$30)
else str[7]:=Chr($37+tem);
begref:=begref mod 256;
tem:=begref div 16;
if tem<10 then str[8]:=Chr(tem+$30)
else str[8]:=Chr(tem+$37);
begref:=begref mod 16;
tem:=begref;
if tem<10 then str[9]:=Chr(tem+$30)
else str[9]:=Chr(tem+$37);
tmpqty:=value;
tem:=tmpqty div 4096;
if tem<10 then str[10]:=Chr(tem+$30)
else str[10]:=Chr(tem+$37);
tmpqty:=tmpqty mod 4096;
tem:=tmpqty div 256;
if tem<10 then str[11]:=Chr(tem+$30)
else str[11]:=Chr(tem+$37);
tmpqty:=tmpqty mod 256;
tem:=tmpqty div 16;
if tem<10 then str[12]:=Chr(tem+$30)
else str[12]:=Chr(tem+$37);
tmpqty:=tmpqty mod 16;
tem:=tmpqty;
if tem<10 then str[13]:=Chr(tem+$30)
else str[13]:=Chr(tem+$37);
tem:=sum div 16;
if tem<10 then str[14]:=Chr(tem+$30)
else str[14]:=Chr(tem+$37);
tem:=sum mod 16;
if tem<10 then str[15]:=Chr(tem+$30)
else str[15]:=Chr(tem+$37);
str[16]:=#13;
str[17]:=#10;
//str[18]:=#0;
Result:=True;
end;

//str=读输入线圈、输出线圈、保持寄存器
function GetReadPLC(cd:WORD;qty:WORD;var str:string):Boolean;
var
tem,sum,mbcode:BYTE;
begref:WORD;
//i,j,k:integer;
begin
Result:=False;
SetLength(str,17);
str[1]:=':';
str[2]:='0';
str[3]:='1';
str[4]:='0';
if cd<10000 then
begin
cd:=cd-1;
if cd>2000 then exit;
mbcode:=1;
str[5]:='1';
end
else if cd<20000 then
begin
cd:=cd-10001;
if cd>256 then exit;
mbcode:=2;
str[5]:='2';
end
else if cd>40000 then
begin
cd:=cd-40001;
if cd>1900 then exit;
mbcode:=3;
str[5]:='3';
end
else exit;
begref:=cd;
//a:=cd;
sum:=1+mbcode+begref div 256+begref mod 256+qty div 256+qty mod 256;
sum:=(sum Xor $ff)+1;
tem:=begref div 4096;
if tem<10 then str[6]:=Chr(tem+$30)
else str[6]:=Chr(tem+$37);
begref:=begref mod 4096;
tem:=begref div 256;
if tem<10 then str[7]:=Chr(tem+$30)
else str[7]:=Chr($37+tem);
begref:=begref mod 256;
tem:=begref div 16;
if tem<10 then str[8]:=Chr(tem+$30)
else str[8]:=Chr(tem+$37);
begref:=begref mod 16;
tem:=begref;
if tem<10 then str[9]:=Chr(tem+$30)
else str[9]:=Chr(tem+$37);
begref:=qty;
tem:=begref div 4096;
if tem<10 then str[10]:=Chr(tem+$30)
else str[10]:=Chr(tem+$37);
begref:=begref mod 4096;
tem:=begref div 256;
if tem<10 then str[11]:=Chr(tem+$30)
else str[11]:=Chr($37+tem);
begref:=begref mod 256;
tem:=begref div 16;
if tem<10 then str[12]:=Chr(tem+$30)
else str[12]:=Chr(tem+$37);
begref:=begref mod 16;
tem:=begref;
if tem<10 then str[13]:=Chr(tem+$30)
else str[13]:=Chr(tem+$37);
tem:=sum div 16;
if tem<10 then str[14]:=Chr(tem+$30)
else str[14]:=Chr(tem+$37);
tem:=sum mod 16;
if tem<10 then str[15]:=Chr(tem+$30)
else str[15]:=Chr(tem+$37);
str[16]:=#13;
str[17]:=#10;
//str[18]:=#0;
Result:=True;
end;

//对应答串进行解析
function CheckPLCData(str:string):integer;
var
tem,tem1,sum,mbcode:BYTE;
tmpqty:WORD;
i,j,k:integer;
str1 : string;
begin
if strlen(Pchar(str))=0 then
begin
result:=-1; //no data
exit;
end;

if strlen(Pchar(str))<13 then
begin
result:=1; //字少 err
exit;
end;


if str[1]<>':' then
begin
for i:=1 to strlen(Pchar(str))-10 do
if str=':' then Break;
if i>=strlen(Pchar(str))-10 then
begin
result:=2; //字首err
exit;
end;
Str1:=Copy(str,i,strlen(Pchar(str)));
str:=Str1;
end;
if (str[1]<>':') or (str[2]<>'0') or
(str[3]<>'1') then
begin
result:=2; //字首err
exit;
end;

if str[4]<>'0' then
begin
result:=9; //异常应答
exit;
end;

//功能码
mbcode:=Byte(str[5])-$30;
//计算字节数
if str[6]> '9' then tem:=byte(str[6])-$37
else tem:=byte(str[6])-$30;
if str[7]> '9' then tmpqty:=tem*16+byte(str[7])-$37
else tmpqty:=tem*16+byte(str[7])-$30;
sum:=1+mbcode+tmpqty;
tmpqty:=tmpqty*2;
if strlen(Pchar(str))<(11+tmpqty) then
begin
result:=3; //字尾err
exit;
end;
if (str[11+tmpqty]<>#10) or (str[10+tmpqty]<>#13) then
begin
result:=6; //少cr err
exit;
end;
j:=0;
if mbcode=3 then
begin
SetLength(TheTempData,tmpqty div 4);
i:=8;
while True do
begin
if str> '9' then tem:=byte(str)-$37
else tem:=byte(str)-$30;
if str[i+1]> '9' then tem:=tem*16+byte(str[i+1])-$37
else tem:=tem*16+byte(str[i+1])-$30;

if str[i+2]> '9' then tem1:=byte(str[i+2])-$37
else tem1:=byte(str[i+2])-$30;
if str[i+3]> '9' then tem1:=tem1*16+byte(str[i+3])-$37
else tem1:=tem1*16+byte(str[i+3])-$30;
sum:=sum+tem+tem1;
TheTempData[j]:=tem*256+tem1;
inc(j);
i:=i+4;
if i>tmpqty+7 then break;
end;
if str> '9' then tem:=byte(str)-$37
else tem:=byte(str)-$30;
if str[i+1]> '9' then tem:=tem*16+byte(str[i+1])-$37
else tem:=tem*16+byte(str[i+1])-$30;
sum:=sum+tem;
if sum<>0 then
begin
Result:=4; //LRC err
Exit;
end;
end
else
if mbcode<3 then
begin
SetLength(TheTempData,tmpqty * 4);
i:=8;
while True do
begin
if str> '9' then tem:=byte(str)-$37
else tem:=byte(str)-$30;
if str[i+1]> '9' then tem:=tem*16+byte(str[i+1])-$37
else tem:=tem*16+byte(str[i+1])-$30;
sum := sum+tem;
for k:=0 to 7 do
begin
if ($ff and ((1 shl k) and tem)) >0 then
TheTempData[j]:=1
else TheTempData[j]:=0;
inc(j);
end;
i:=i+2;
if i>tmpqty+7 then break;
end;
if str> '9' then tem:=byte(str)-$37
else tem:=byte(str)-$30;
if str[i+1]> '9' then tem:=tem*16+byte(str[i+1])-$37
else tem:=tem*16+byte(str[i+1])-$30;
sum:=sum+tem;
if sum<>0 then
begin
Result:=4; //LRC err
Exit;
end;
end
else
begin
Result:=5; //code err
Exit;
end;
Result:=0;
end;

这个问题好，现象详细.
先收藏了，以后好好研究！