Delphi 中串口通讯的实现

======================================================
注：本文源代码点此下载
======================================================

delphi 中串口通讯的实现

delphi 是新一代可视化开发工具,它具有功能强大、简便易用和代码执行速度快等特点,是全球公认的快速应用开发工具技术的先驱者,它越来越在构架企业信息系统方面发挥着重要作用。由于delphi 这些显著特点,许多程序员选择delphi作为开发工具编制各种应用程序。但是,令人惋惜的是delphi没有自带串口通讯的控件,在它的帮助文档里也没有提及串口通讯,这就给编制通讯程序的开发人员带来众多麻烦,影响了开发进度,下面就这一技术进行讨论。

用delphi 实现串口通讯,常用的几种方法为:使用控件如mscomm和spcomm,使用api函数或者在delphi 中调用其它串口通讯程序。利用api编写串口通信程序较为复杂,需要掌握大量通信知识,其优点是可实现的功能更强大,应用面更广泛,更适合于编写较为复杂的低层次通信程序。相比较而言,利用spcomm控件则相对较简单,该控件具有丰富的与串口通信密切相关的属性及事件,提供了对串口的各种操作。

使用控件这一方法容易掌握,而spcomm支持多线程,所以spcomm控件的应用更加广泛。结合实例详细介绍spcomm的使用。

一.spcomm控件的安装

1.选择下拉菜单component的第二项install component 。

图1

弹出图1所示的窗口,在unit file name 处填写控件spcomm控件所在路径,其它可用默认值,点击ok按纽。

2.安装成功后,system控件面板中将出现一个红色控件comm。现在使用comm控件可以象delphi自带控件一样使用.。

二.spcomm的主要属性,方法和事件

1.属性

commname:填写com1,com2…等串口的名字,在打开串口前,必须填写好此值。

baudrate:设定波特率9600,4800等,根据实际需要来定,在串口打开后也可更改波特率,实际波特率随之更改。

paritycheck:奇偶校验。

bytesize:字节长度_5,_6,_7,_8等,根据实际情况设定。

parity:奇偶校验位

pbits:停止位

senddataempty:这是一个布尔属性,为true时表示发送缓存为空,或者发送队列里没有信息;为false时表示表示发送缓存不为空,或者发送队列里有信息。

2.方法

startcomm过程用于打开串口,当打开失败时通常会报错,错误主要有7种:

⑴串口已经打开 ;

⑵打开串口错误 ;

⑶文件句柄不是通讯句柄;

⑷不能够安装通讯缓存;

⑸不能产生事件 ;

⑹不能产生读进程;

⑺不能产生写进程;

stopcomm过程用于关闭串口,没有返回值。

函数writecommdata(pdatatowrite: pchar;dwsizeofdatatowrite:word ): boolean 用于发送一个字符串到写线程,发送成功返回true,发送失败返回false, 执行此函数将立即得到返回值,发送操作随后执行。函数有两个参数,其中 pdatatowrite是要发送的字符串,dwsizeofdatatowrite 是发送的长度。

3.事件

onreceivedata : procedure (sender: tobject;buffer: pointer;bufferlength: word) of object

当输入缓存有数据时将触发该事件,在这里可以对从串口收到的数据进行处理。buffer中是收到的数据,bufferlength是收到的数据长度。

onreceiveerror : procedure(sender: tobject; eventmask : dword)

当接受数据时出现错误将触发该事件。

三.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;

发送数据

自定义的发送过程

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

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

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/