delphi-smpcomm代码实例（3）

为了实现PC与单片机8051之间的通讯，首先要调通它们之间的握手信号，假定它们之间的通讯协议是，PC到8051一帧数据6个字节, 8051到PC一帧数据也为6个字节,当PC发出（F0,01,FF,FF,01,F0）后能收到这样一帧（F0,01,FF,FF,01,F0），表示 数据通信握手成功，两者之间就可以按照协议相互传输数据。在PC方要发送及接受数据需要以下步骤：

1.创建一个新的工程COMM.DPR，把窗体的NAME属性改为FCOMM，把窗体的标题改为测试通讯，添加控件。

　　对COMM1(黑色矩形围住的控件)进行属性设计，设波特率4800，校验位无，字节长度_8，停止位_1，串口选择COM1。Memo1中将显示发送和接受的数据。选择File/Save As将新的窗体存储为Comm.pas。

2．编写源代码

变量说明

var

FCOMM: TFCOMM;

Viewstring:string;

i:integer;

rbuf,sbuf:array[1..6] of byte;

打开串口

procedure TFCOMM.FormShow(Sender: TObject);

begin

comm1.StartComm;

end;

关闭串口

procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction);

begin

comm1.StopComm;

end;

发送数据

自定义的发送过程

procedure senddata;

var

i:integer;

commflg:boolean;

begin

viewstring:='';

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

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