串口通信组件在加气机检定软件中的应用

串口通信组件在加气机检定软件中的应用Application of Serial Communication Component in Calibration Software of Gas Dispenser

张柯朱永宏周文辉

河南省计量科学研究院气体流量计量研究所

摘要在Delphi环境下，用MSComm控件实现加气机检定软件中科里奥利质量流量计与PC机的串行通信是一种十分高效的方法，而不必使用较为复杂的API函数。实例讨论串口通信协议和串行通信软件的编程实现，实践证明该方式有助于增加开发效率，适应性强、便于维护。

关键词Delphi；MSComm控件；串行通信；加气机检定软件；

Abstract This is an efficient way to realize serial communication of coriolis mass flowmeter with computer under Delphi environment in Microsoft Communications control Component，without using more difficult API function。Taking an example to discuss the programming implementation of serial communication protocol and serial communication software，practice shows that this method is helpful to increased development efficiency，meanwhile，this method is strong adaptability，and convenient maintenance。

Keywords Delphi；Microsoft Communications control Component；serial communication；calibration software of Gas Dispenser

引言

加气机检定装置中，科里奥利质量流量计的变送器作为下位机负责接收现场测量数据并处理发送数据给PC机，并且响应PC机的指令，PC机作为上位机，负责接收科里奥利质量流量计经变送器发送的测控数据，处理并存储数据，软件界面友好、易用。在上位机与下位机的实时通信过程中，串口端口的操作、数据的发送，命令的返回对通信的方便快捷稳定提出较高的要求。

Delphi是一种面向对象的编程语言，开发出的软件界面友好易用，Visual Basic下的MSComm 控件是较好的选择，能开发出稳定性高、易维护的串口通信程序，而不必使用较为繁琐的API 函数，大大增加了程序编制的效率。Microsoft公司提供的串行通信编程的ActiveX组件

----MSComm（Microsoft Communications Control）可以用来创建全双工的、事件驱动的和高效使用的通信程序。该组件在Visual Basic、Visual C++和Delphi环境下均能方便使用，实现诸如串行端口连接、发送命令、交换数据、监视串行端口输入数据等一系列功能。

1、组件的安装

Delphi的串行通信组件默认不会出现在组件面板里，因此需要使用MSComm组建之前，首先要把它添加到组件面板中。。

在Delphi的集成开发环境中，选择菜单“Component”中“Import ActiveX Control”命令，在

“Import ActiveX”中选择“Microsoft Comm Control 6.0 （V ersion 1.1）”项，制定相关参数后，单击“Install”按钮，完成组件的安装。

每个使用的MSComm组件对应一个串行端口，如果程序需要访问多个串行端口，须使用多个MSComm组件。

2、组件的属性和使用

CommPort：设置或返回通信端口号；

Input：返回并删除接收缓冲区中的数据流；

InputLen：设置并返回Input属性从接收缓冲区读取的字符数；

MSComm组件的属性很多，此处仅列举本文用到的几个重要属性。

MSComm组件提供两种处理通信的方式：事件驱动方式和查询方式。事件驱动方式相当于一般程序设计中的中断，当串口发生事件或者错误时，MSComm组件产生OnComm事件，用户程序可以捕获该事件并作出相应处理。查询方式是指对用户程序中设计定时或者非定时的查询，检查CommEvent的属性的值查询时间和错误。

MSComm组件设计的步骤通常为：初始化串口→打开串口→数据传输→关闭串口。

部分实例代码及注释附下：

（1）初始化串口

MsComm1.Settings:=’9600,n,8,1’; //波特率为9600bps，无校验位，数据位为8 位，停

止位为1位

MSComm1.InputMode:=1; //以二进制方式接收数据

https://www.360docs.net/doc/2b10657843.html,mPort:=2; //COM2上连接有一个调制解调器

MSComm1.InBufferCount:=0; //清空读取缓冲区

MSComm1.OutBufferCount:=0; //清空发送缓冲区

MSComm1. InputLen:=0; //读取接收缓冲区的所有数据

MSComm1.RThreshold:=0；//查询方式处理通信

（2）打开串口

MSComm1.PortOpen:=True;

（3）关闭串口

MSComm1.PortOpen:=False;

3、应用实例

以下通过加气机检定软件中MSComm组件的应用来实现PC机与科里奥利质量流量计的数据通讯。

加气机检定系统的硬件结构示意图如下所示：

图1 系统硬件结构

结构主要分为：主机硬件、分机硬件（包括传感器）和接口三部分组成。PC机为上位机，通讯方式采用串行总线结构，程序流程图如图所示。

图2 程序流程图

根据RS-232／RS-485的特性，采用端口COM1，9600 bps，奇校验，8位数据位，2位停止位方式传输数据。由于RS-485接口支持多终端，当具有多个设备时，数据发送方式在发送的数据帧中要标明下层设备的地址。本检定装置仅有一台终端设备，故不考虑以上情况。

（1）串口初始化

https://www.360docs.net/doc/2b10657843.html,mPort := 1; //使用Com1端口

MsComm1.InputLen := 1000; //设置Input一次从接收缓冲区读取字节数为1000

MSComm1.Settings:=’9600,0,8,2’

MSComm1.PortOpen := True; //确认端口已经打开

Except

Application.MessageBox('打开端口错误.','提示',64);

MSComm1.InputMode:=ComInputModeText; //设置接受数据模式为二进制方式

MSComm1.RThreshold:=1; //设置每接收到1个字节就产生一个OnComm事件（2）数据读取存储

结合SQL数据库，打开端口表，完成下位机与PC机数据的传输和存储。

procedure TForm1.FormShow(Sender: TObject);

begin

with Data.ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('Select * from 端口表');

deleteLoghc;

data.G_Con.Open();

data.G_Rst.SQL.Clear;

data.G_Rst.SQL.Add('select * from T_path');

data.G_Rst.ExecSQL;

data.G_Rst.Open;

if not data.G_Rst.Eof then

begin

g_path:=data.G_Rst.FieldV alues['path1'];

end;

（3）串口关闭

If (MSComm.PortOpen) then

MSComm.PortOpen:=False; //判断端口如果未开，则关闭端口。

4、结束语

MSComm控件在Delphi中的使用较为高效快捷。该控件成功应用于加气机检定装置软件系统的编制开发，PC机为上位机，其中通信模块采用本文介绍的方法编制，取得较好的实用效果。实践证明MSComm控件是Delphi开发串行通信程序的一个很好工具，极大提高了软件编制的效率。

参考文献

[1]、朱东芹、郑瑶等.Delphi典型控制应用[M]，北京，电子工业出版社，2011.

[2]、张世生，尹呈良. 基于Delphi的PC机RS-232串口通信[J]，信息技术与自动化，2005（5）：87-88