资 源 简 介
//for i:=0 to BufferLength-1 do
// begin
// rstr:=rstr+IntToHex(Byte(Pointer(integer(Buffer)+i)^),2)+" ";
Move(buffer^, Rev, 32); //将接收到缓存区的数据转移到数组中
// rstr:=rstr+String(Rev);
for i:=0 to 31 do
rstr:=rstr+inttohex(Rev[i],2)+" ";
// showmessage(rstr);
rstr:=DateTimeToStr(Now)+"接收数据: "+rstr+#13;
Memo1.Lines.Add(rstr);
Memo1.Lines.Add(#13);
// 数据解析
{ case rev[0] of
$20: // 变量1
begin
case Rev[1] of
$00:
begin
if(Rev[2]=$AA)and
