delphi串口通信编程-木庄网络博客

本文整理自网络，侵删。
 Delphi串口通讯可以同过以下几种方式：
1.windows API函数。
2.Spocmm组件。
3.PComm库函数。
4.Mscomm控件。
1.windows API函数。
由于API函数实现起来比较麻繁，这里就不做介绍了，主要介绍其它三种方式 。
第三方组件或控件封装了API函数，简化了编程的难度，并提供详细帮助。
2.Spocmm组件。
SPcomm是专为delphi开发的组件，虽然它也是封装了windows api，但是我们可以看到它的
源代码。它提供了事件驱动的方式接收数据，在编程的时候，我们可以在OnReceiveData函
数中接收到数据，并做相应的处理，
delphi串口通信编程
SPcomm组件的主要属性：
CommName：设置通讯端口
BaudRate：设置端口波特率
StartComm：打开串口
StopComm：关闭串口
WriteCommData：向串口写数据函数
OnReceiveData：接收数据事件
3.PComm库函数。
PComm库函数
PComm 库函数是台湾MOXA公司提供的，他为用户提供了基于win32 api的开发接口。
PComm库函数分为7大类
控制函数
数据输入函数
数据输出函数
状态函数
事件驱动函数
传输文件函数
特殊设定函数
控制函数主要包括sio_open，sio_close，sio_ioct，sio_flush
sio_open（PortNum） 打开串口
sio_close（PortNum） 关闭串口
sio_ioct（PortNum， baud， mode）设置串口的工作模式，包括 波特率，数据位，停止
位，效验等
sio_flush（portNum，func）清除发送，接收缓冲区 其中func 为0清空输入 ，为1清空输
出，为2清空输入输出
数据输入函数主要包括sio_getch，sio_read
sio_getch（PortNum） 从输入缓冲区读一个字符
sio_read（PortNum，buf，len）从输入缓冲区读指定个数的字符
数据输入函数主要包括sio_putch sio_write
sio_putch（PortNum） 写一个字符到输出缓冲区
sio_write（PortNum，buf，len）写指定个数的字符到输出缓冲区
状态函数主要包括 sio_lstatus，sio_getbaud，sio_getmode
sio_lstatus（portNum）获取串口的CTS，DSR，DCD，RI线的状态
sio_getbaud（portNum）获取串口的波特率
sio_getmode（portNum）获取串口的工作模式。对应sio_ioct函数
事件函数主要包括 sio_term_irq，sio_cnt_irq
sio_term_irq（portNum，func，code） 当接收到指定字符时响应事件，func为回调函数
名，code为指定的字符
sio_cnt_irq（（PortNum，func，count） 当接收到指定个数字符时响应事件，func为回
调函数名，count接收的个数
传输文件函数主要包括sio_FtASCIIRx，sio_FtASCIITx
sio_FtASCIITx（portNum，fname，func，key） 发送一个文本文件
sio_FtASCIIRx（portNum，fname，func，Key，sec）接收一个文本文件
由PComm库提供的函数可以看出来PComm的接口还是挺丰富的。并且MOXA公司为我们提供
PComm详细的使用说明。
4.Mscomm控件。
（1）Mscomm控件是Microsoft公司提供的简化Windows下串行通信编程的AcTIveX控件，它
为应用程序提供了通过串行接口收发数据的简便方法。它提供了两种处理通信的方法：事
件驱动方式，查询方式。
1事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。在许多情况下，在事件发
生时需要得到通知，例如，在串口接收缓冲区中接收到字符等，在种情况下，可以利用 
MSComm控件的 OnComm 事件捕获并处理这些通讯事件。OnComm事件还可以检查和处理通讯
错误。在编程过程中，就可以在OnComm事件处理函数中加入自己的处理代码。这种方法的
优点是程序响应及时，可靠性高。每个MSComm控件对应着一个串行端口。如果应用程序需
要访问多个串行端口，必须使用多个 MSComm 控件。
2查询方式实质上还是事件驱动。查询方式是通过检查 CommEvent属性的值来查询事件和错
误，并做相应的处理。在有些情况下，这种方式还是显得挺便捷的。
MSComm控件的常用属性
CommPort 设置并返回通讯端口号。
SetTIngs 以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位。
PortOpen 设置并返回通讯端口的状态。也可以打开和关闭端口。
Input 从接收缓冲区返回和删除字符。
Output 向传输缓冲区写一个字符串。
编写源代码
//变量说明
var
fcomm： TFCOMM;
viewstring:string;
i:integer;
rbuf，sbuf:array［16］ 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（＄ f0）; //帧尾
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 01 F0和接收到 F0 01 FF FF 01 F0，这表示串口已
正确地发送出数据并正确地
delphi串口通信编程

相关推荐

评论
