SPcomm

代码说明：

 //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