Delphi 中串口通讯的实现

三．SPCOMM的使用

　　下面，我们结合一个串口通讯的例子来说明SPCOMM的使用。

　　为了实现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;

发送数据