Delphi中串口
通信的实现Delphi是一种具有功能强大,简便易用和代码执行速度快等优点的可视化快速应用开发工具,它在构架企业信息
系统方面发挥着越来越重要的作用,许多
程序员愿意选择Delphi作为开发工具编制各种应用程序.但是,美中不足之处是Delphi没有自带的串口通信控件,在它的帮助
文档里也没有提及串口通信,这就给编制通信程序的开发人员带来许多不便.目前,利用Delphi实现串口通信的
常用的方法有3种:一是利用控件,如MSCOMM控件和SPCOMM控件;二是使用API函数;三是调用其他串口通信程序.其中利用API编写串口通信程序较为复杂,需要掌握大量的通信知识.相比较而言,利用SPCOMM控件则相对较简单,并且该控件具有丰富的与串口通信密切相关的属性及事件,提供了对串口的各种操作,而且还支持多线程.下面本文结合实例详细介绍SPCOMM控件的使用.SPCOMM的安装1.选择下拉菜单Component中的InstallComponent选项,在Unitfilename处填写SPCOMM控件所在的路径,其他各项可用默认值,点击OK按钮.2.安装后,在System控件面板中将出现一个红色控件COM.现在就可以像Delphi自带控件一样使用COM控件了.SPCOMM的属性,方法和事件1.属性●CommName:表示COM1,COM2等串口的名字;●BaudRate:根据实际需要设定的波特率,在串口打开后也可更改此值,实际波特率随之更改;●ParityCheck:表示是否需要奇偶校验;●ByteSize:根据实际情况设定的字节长度;●Parity:奇偶校验位;●StopBits:停止位;●SendDataEmpty:这是一个布尔型属性,为true时表示发送缓存为空,或者发送队列里没有信息;为false时表示发送缓存不为空,或者发送队列里有信息.2.方法●Startcomm方法用于打开串口,当打开失败时通常会报错.错误主要有7种:⑴串口已经打开;⑵打开串口错误;⑶文件句柄不是通信句柄;⑷不能够安装通信缓存;
⑸不能产生事件;⑹不能产生读进程;⑺不能产生写进程;●StopComm方法用于关闭串口,没有返回值;●WriteCommData(pDataToWrite:PChar;dwSizeofDataToWrite:Word)方法是个带有布尔型返回值的函数,用于将一个字符串发送到写进程,发送成功返回true,发送失败返回false.执行此函数将立即得到返回值,发送操作随后执行.该函数有两个参数,其中pDataToWrite是要发送的字符串,dwSizeofDataToWrite是发送字符串的长度.3.事件●OnReceiveData:procedure(Sender:TObject;Buffer:Pointer;BufferLength:Word)ofobject当有数据输入缓存时将触发该事件,在这里可以对从串口收到的数据进行处理.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)后8051能收到一帧(F0,01,FF,FF,01,F0),表示数据通信握手成功,两者之间就可以按照协议相互传输数据.创建一个新的工程COMM.DPR,把窗体的NAME属性定为FCOMM,把窗体的标题定义为测试通信,添加相应的控件.1.设定COMM1属性:●波特率:4800;●奇偶校验位:无;●字节长度:8;●停止位:1;●串口:COM1.
Memo1中将显示发送和接收的数据.将新的窗体存储为Comm.pas.2.编写
源代码//变量说明varfcomm:TFCOMM;viewstring:string;i:integer;rbuf,sbuf:array[16]ofbyte;//打开串口procedureTFCOMM.FormShow(Sender:TObject);begincomm1.StartComm;end;//关闭串口procedureTFCOMM.FormClose(Sender:TObject;varAction:TCloseAction);begincomm1.StopComm;end;//自定义发送数据过程proceduresenddata;vari:integer;
commflg:boolean;beginviewstring:='';commflg:=true;fori:=1to6dobeginifnotfcomm.comm1.writecommdata(@sbuf[i],1)thenbegincommflg:=false;break;end;//发送时字节间的延时sleep(2);viewstring:=viewstring+inttohex(sbuf[i],2)+'';end;viewstring:='发送'+viewstring;fcomm.memo1.lines.add(viewstring);fcomm.memo1.lines.add('');ifnotcommflgthenmessagedlg('发送失败!',mterror,[mbyes],0);end;//发送按钮的点击事件procedureTFCOMM.Btn_sendClick(Sender:TObject);begin