您正在看的DELPHI是:Delphi中串口通讯的实现。 iewstring:="";

　　commflg:=true;

　　for i:=1 to 6 do

　　begin

　　if not fcomm.comm1.writecommdata(@sbuf[i],1) then

　　begin

　　commflg:=false;

　　break;

　　end;

　　sleep(2); {发送时字节间的延时}

　　viewstring:=viewstring+inttohex(sbuf[i],2)+" ";

　　end;

　　viewstring:="发送"+viewstring;

　　fcomm.memo1.lines.add(viewstring);

　　fcomm.memo1.lines.add("");

　　if not commflg then messagedlg("发送失败!",mterror,[mbyes],0);

　　end;

　　procedure TFCOMM.btn_sendClick(Sender: TObject);{发送按钮的点击事件}

　　begin

　　sbuf[1]:=byte($f0); {帧头}

　　sbuf[2]:=byte($01); {命令号}

　　sbuf[3]:=byte($ff);

　　sbuf[4]:=byte($ff);

　　sbuf[5]:=byte($01);

　　sbuf[6]:=byte($0f); {帧尾}

　　senddata;{调用发送函数}

　　end;

　　接收过程

　　procedure TFCOMM.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;

　　BufferLength: word);

　　var

　　i:integer;

　　begin

　　viewstring:="";

　　move(buffer^,pchar(@rbuf^),bufferlength);

　　for i:=1 to bufferlength do

　　viewstring:=viewstring+inttohex(rbuf[i],2)+" ";

　　viewstring:="接受"+viewstring;

　　memo1.lines.add(viewstring);

　　memo1.lines.add("");

　　end;

　　如果memo1上显示发送F0 01 FF FF 0F 和 接受F0 01 FF FF F0

　　这表示串口已正确的发送出数据并正确的接受到数据，串口通讯成功。