sbuf[1]:=byte($f0);//帧头sbuf[2]:=byte($01);//命令号sbuf[3]:=byte($ff);sbuf[4]:=byte($ff);sbuf[5]:=byte($01);sbuf[6]:=byte($f0);//帧尾senddata;//调用发送函数end;//接收过程procedureTFCOMM.Comm1ReceiveData(Sender:TObject;Buffer:Pointer;BufferLength:Word);vari:integer;beginviewstring:='';move(buffer^,pchar(@rbuf^),bufferlength);fori:=1tobufferlengthdoviewstring:=viewstring+inttohex(rbuf[i],2)+'';viewstring:='接收'+viewstring;memo1.lines.add(viewstring);memo1.lines.add('');end;
如果memo1上显示发送F001FFFF01F0和接收到F001FFFF01F0,这表示串口已正确地发送出数据并正确地接收到数据,则串口通信成功.