Delphi 中串口通讯的实现 |
|
elphi 是新一代可视化开发工具，它 存在 性能 壮大、简便易用和代码执行速度快等特色，是 寰球公认的 快捷 利用开发工具技术的先驱者，它越来越在构架企业信息系统方面 施展着主要作用 。因为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 这 示意串口已正确的发送出数据并正确的 承受到数据，串口通讯 顺利 。 |
