ＣＯＭ(Ｃｏｍｐｏｎｅｎｔ Ｏｂｊｅｃｔ Ｍｏｄｅｌ)组件技术是构造二进制兼容软件的规范，通过它可以建立能够相互传输数据的组件，其服务器－客户机结构非常适合工控软件应用程序的开发。由于工控软件不仅包括ＰＣ机上的ＨＭＩ（人－机界面）程序，还包括与各种基于ＩＳＡ或ＰＣＩ总线的数据采集卡进行数据交换的程序，这部分程序对开发人员的硬件水平要求较高，而且开发难度较大，与ＨＭＩ程序是相互独立的所以可以把工控软件分成两部分，即把ＨＭＩ程序作为客户机端程序，把与硬件进行数据交换的程序作为服务器端程序。基于这种思想，本文将服务器－客户机结构应用到现场总线控制系统的组态软件中，着重介绍客户机和服务器的功能及实现。首先介绍现场总线控制系统的组成。

１ 系统组成

现场总线控制系统主要由ＰＣ机、ＩＳＡ或ＰＣＩ总线智能适配器、智能测控模块、组态软件、ＨＭＩ软件、ＣＯＭ服务器、用户软件等构成。

现场总线系统中所有信息的传递都是双向的，ＣＯＭ服务器介于智能适配器和上位机软件之间，负责完成数据的传输。上位机软件相当于客户机端应用软件，它使用ＣＯＭ服务器提供的接口来操作适配器，对适配器进行初始化及向特定单元写入和读出数据。

由于在Ｗｉｎｄｏｗｓ保护模式下不能直接访问存储器，所以需要编写ＶｘＤ驱动程序将物理地址转换成线性地址，然后ＣＯＭ就可以象使用ＤＬＬ一样调用ＶｘＤ的函数，完成对ＩＳＡ或ＰＣＩ总线智能适配器的操作。 从测控模块到上位机软件自下而上的数据传输完成了用户对测控模块的监测；而上层软件通过ＣＯＭ将数据送往适配器，再由适配器送往测控模块，实现了用户对测控模块工作参数的设置及工作状态的管理。图１给出了系统软件结构框图。

２ 组态软件的功能

现场总线控制系统组态软件是一套基于Ｗｉｎｄｏｗｓ ９８和Ｗｉｎｄｏｗｓ ２０００平台（或更高版本）、用于快速构造和生成上位机监控系统的组态软件，它提供了从数据采集到数据处理、远程控制、报警处理、报表输出等实际工程问题的完整解决方案。它使用ＣＯＭ服务器提供的接口与适配器进行数据交换，是ＣＯＭ客户机端的程序。

３ ＣＯＭ组件技术

组件是完成一定功能的软件块，可以被其它程序使用，而且容易替换。为了使每个人编写的组件具有可移植性，必须建立一个标准，保证其兼容性和可互换性。ＣＯＭ正是这样一种标准，遵循ＣＯＭ规则就可以建立能够相互交换数据的组件。

在现场总线控制系统中，ＣＯＭ组件服务器负责组态软件等上位机软件与智能适配器之间的数据传输，因为适配器通过ＣＡＮ现场总线与测控模块连接，所以对适配器的操作就是对模块的监测与控制。 ＣＯＭ服务器提供的接口中有适配器初始化、模块检查、向模块发送数据及读取模块数据等函数。下面着重介绍数据发送接收格式及如何编写这４个有代表性的函数。

３．１ 适配器初始化函数

只有适配器初始化成功后，才能进行其它操作。由于在Ｗｉｎｄｏｗｓ保护模式下不能直接访问适配器，ＣＯＭ程序需要调用ＶｘＤ程序将存储器对应的物理地址转换成线性地址指针ｌｐＢａｓｅＡｄｄｒｅｓｓ，这样对适配器的操作就转换成对以该指针为首地址的数组的操作。向这个数组的０ｘ３Ｆ０、０ｘ３Ｆ１和０ｘ３Ｆ８单元分别写入上位机节点号以及适配器与模块间的通信波特率和适配器程序规定的命令字０ｘＣ６（表示适配器初始化），等待几十ｍｓ后，如果适配器接收到上面的数据并做出适当的反应，它会将０ｘ３Ｆ８单元清零，这就表示初始化适配器成功；如果该单元不为零，则初始化失败。

３．２ 数据传输格式

适配器初始化成功后，就可以同它交换数据了。下面简单说明一下发送数据和接收数据的格式。

适配器初始化得到的线性地址指针ｌｐＢａｓｅＡｄｄｒｅｓｓ的１～５单元分别存放上位机节点号、模块节点号、保留字、发送或接收字节长度及模块操作的命令字。ｌｐＢａｓｅＡｄｄｒｅｓｓ[６]～ｌｐＢａｓｅＡｄｄｒｅｓｓ[２５６]存放所要发送的数据；从ｌｐＢａｓｅＡｄｄｒｅｓｓ[０ｘ１０６]单元开始存放接收到的数据。ｌｐＢａｓｅＡｄｄｒｅｓｓ[０ｘ３Ｆ８]存放操作适配器的命令字，适配器根据这个单元内容进行处理，如果是０ｘＣ６，则初始化适配器和模块上的ＣＡＮ控制器；如果是０ｘＣ７，则将数组里的数送给模块上的Ｅ２ＰＲＯＭ，模块收到数据后根据ｌｐＢａｓｅＡｄｄｒｅｓｓ[５]的命令字进行相应处理如果是０ｘＢ０，则按照接收到的数据配置模块工作状态；如果是０ｘＡ５，则将此时的测量值送到适配器上，由ＣＯＭ程序读出。
３．３ 模块检查函数

适配器初始化成功后，还要检查适配器与下面的测控模块是否连接好或者是否存在组态软件要组态的模块，也就是要进行模块检查操作。模块检查的命令字是０ｘＡＤ，向数组的１～５单元分别写入上位机节点号、模块节点号、保留字、发送数据长度和模块检查命令字０ｘＡＤ，向０ｘ３Ｆ８单元写入０ｘＣ７（表示向适配器写入数据），等待几十ｍｓ后，如果０ｘ３Ｆ８单元清零而且０ｘ１００单元被置为０ｘＡＡ，表示该模块存在而且可以通信否则，表明该模块不存在或者硬件上有问题。

３．４ 写适配器数据函数

在确定了网络中存在哪些可通信的模块之后，就可以向它们发送数据并进行配置。为了实现向适配器发送数据，总共编写了４个函数、ＳｅｎｄＤａｔａ([ｉｎ]ＢＹＴＥ ＳｅｎｄＢｕｆ[２５６])、ＳｅｎｄＦｉｎｉｓｈ([ｉｎ]ＢＯＯＬ ｂＦｉｎｉｓｈ)、ＦｉｎｉｓｈＱｕｅｒｙ([ｏｕｔ]ＢＯＯＬ*ｂＦｉｎｉｓｈ)和ＲｅｃｅｉｖｅＲｅｓｕｌｔ([ｏｕｔ]ＢＯＯＬ*ｂＳｅｎｄＦｉｎｉｓｈ)。ＳｅｎｄＤａｔａ负责把一个模块所需要发送的数据以数组的形式放到服务器的一个二维数组（Ｒｏｏｍ[６４][２５６]）里，每个模块的数据作为一行。由于向适配器发送数据后，要等待一段时间判断模块是否接收成功，所以在ＳｅｎｄＦｉｎｉｓｈ中开启辅助线程来发送数据并等待结果，这样可不占用ＣＯＭ主程序的时间，使客户调用接口函数后能立即返回，执行其它操作。ＦｉｎｉｓｈＱｕｅｒｙ查询数据发送是否结束。ＲｅｃｅｉｖｅＲｅｓｕｌｔ弹出一个非模式对话框，显示哪些模块接收到数据，哪些没有。

３．５ 读适配器数据函数

除了向适配器发送数据，还可以从适配器上读取模块传上来的数据。读取数据的命令字是０ｘＡ５。实现该任务的函数是ＧｅｔＰＶ([ｉｎ]ＢＹＴＥ ｂＤｅｓＮｏｄｅ，[ｏｕｔ]ｆｌｏａｔ ｖａｌｕｅ[８])，个参数是模块节点号，第二个参数是返回的测量值数组。

这里，ＣＯＭ是用ＡＴＬ编写的本地服务器，ＣＯＭ对象的线程是套间线程。接口定义了６个函数，ＣＯＭ程序流程图如图２所示。

 

ＣＯＭ对象接口的函数声明以及适配器初始化的程序如下：

ＣＯＭ接口定义：

ｉｎｔｅｒｆａｃｅ ＩＮＣａｒｄＷｏｒｋ ： ＩＤｉｓｐａｔｃｈ
{
[ｉｄ(１) ，ｈｅｌｐｓｔｒｉｎｇ("适配器初始化函数，返回值为是否成功")]
ＨＲＥＳＵＬＴ ＮＣａｒｄＩｎｉｔ（[ｉｎ]ＢＹＴＥ ｂＳｒｃＮｏｄｅ，[ｉｎ]ＢＹＴＥ
ｂＩｎｔｒＡｄｄ，[ｉｎ]ＢＹＴＥ ｂＲａｔｅ，[ｉｎ]ｌｏｎｇ ｂＳｅｇｍｅｎｔＡｄｄ，[ｏｕｔ]
ＢＯＯＬ*ｆｌａｇ）；
[ｉｄ（２），ｈｅｌｐｓｔｒｉｎｇ（"将客户端传送的数组赋值给Ｒｏｏｍ[][]"）]
ＨＲＥＳＵＬＴ ＳｅｎｄＤａｔａ（[ｉｎ]ＢＹＴＥ ＳｅｎｄＢｕｆ[２５６]； [ｉｄ（３），ｈｅｌｐｓｔｒｉｎｇ（"启动多线程"）
ＨＲＥＳＵＬＴ ＳｅｎｄＦｉｎｉｓｈ（[ｉｎ]ＢＯＯＬ ｂＦｉｎｉｓｈ）；
[ｉｄ（４）， ｈｅｌｐｓｔｒｉｎｇ（"此函数返回值表示数据是否已向下位机发送完毕，同时可显示哪些模块未被配置，通常在此函数前先用ＦｉｎｉｓｈＱｕｅｒｙ（[ｏｕｔ]ＢＯＯＬ*ｂＦｉｎｉｓｈ）查询发送是否完毕"）]
ＨＲＥＳＵＬＴ ＲｅｃｅｉｖｅＲｅｓｕｌｔ（[ｏｕｔ]ＢＯＯＬ *ｂＳｅｎｄＦｉｎｉｓｈ）；
[ｉｄ（５），ｈｅｌｐｓｔｒｉｎｇ（"此函数返回值表示数据是否已向下位机发送完毕，"真"表示发送完毕"）]
ＨＲＥＳＵＬＴ ＦｉｎｉｓｈＱｕｅｒｙ（[ｏｕｔ]ＢＯＯＬ*ｂＦｉｎｉｓｈ）； [ｉｄ（６），ｈｅｌｐｓｔｒｉｎｇ（"网络检查，用来在发送数据前检测是否有该节点 存在"）]
ＨＲＥＳＵＬＴ ＮｅｔＣｈｅｃｋ（[ｉｎ]ＢＹＴＥ ｓｏｕｒ，[ｉｎ]ＢＹＴＥ ｄｅｓ，[ｉｎ]ＢＹＴＥ ｔｙｐｅ，[ｏｕｔ]ＢＯＯＬ *ｆｌａｇ）；
[ｉｄ（７），ｈｅｌｐｓｔｒｉｎｇ（"读取模块的测量值"）]
ＨＲＥＳＵＬＴ ＧｅｔＰＶ（[ｉｎ]ＢＹＴＥ ｂＤｅｓＮｏｄｅ，[ｏｕｔ]ｆｌｏａｔ ｖａｌｕｅ[２５６]）；
}

适配器初始化函数：
＃ｉｎｃｌｕｄｅ ＜ｃｏｎｉｏ．ｈ＞
＃ｉｎｃｌｕｄｅ ″ｗｉｎｉｏｃｔｌ．ｈ″
／／包含其它头文件
．．．．．．．．．
ＳＴＤＭＥＴＨＯＤＩＭＰ ＣＮＣａｒｄＷｏｒｋ：：ＮＣａｒｄＩｎｉｔ（ＢＹＴＥ ｂＳｒｃＮｏｄｅ，ＢＹＴＥ ｂＩｎｔｒＡｄｄ，ＢＹＴＥ ｂＲａｔｅ，ｌｏｎｇ ｂＳｅｇｍｅｎｔＡｄｄ，ＢＯＯＬ *ｆｌａｇ）
{
ＮＣａｒｄＣｔｒｌ ｃａｒｄｃｔｒｌ； ／／ＮｃａｒｄＣｔｒｌ类的函数调用ＶｘＤ函数
ｅｘｂＳｒｃＮｏｄｅ＝ｂＳｒｃＮｏｄｅ； ／／给上位机节点赋值
ｅｘｂＲａｔｅ＝ｂＲａｔｅ； ／／下位机与适配器间的通信波特率
ＢＯＯＬ ｔｒａｎｓｆｅｒｓｉｇｎ； ／／初始化是否成功标志
ＤＷＯＲＤ ｄｗＳｅｇｍｅｎｔａｄｄｒｅｓｓ＝ｂＳｅｇｍｅｎｔＡｄｄ；
／／适配器段地址
ＨＡＮＤＬＥ ｈＤｅｖｉｃｅ＝ＮＵＬＬ； ／／指向线性指针对句柄
ｌｐＢａｓｅＡｄｄｒｅｓｓ＝（ＰＢＹＴＥ）ｃａｒｄｃｔｒｌ．ＭａｐＬｉｎｅａｒＡｄｄｒｅｓｓ（ｄｗＳｅｇｍｅｎｔａｄｄｒｅｓｓ，０ｘ４００，ｈＤｅｖｉｃｅ）；
／／调用ＶｘＤ函数，获得指向ＩＳＡ总线物理地址的线性地址指针
ｃａｒｄｃｔｒｌ．ＵｎＭａｐＬｉｎｅａｒＡｄｄｒｅｓｓ（ｌｐＢａｓｅＡｄｄｒｅｓｓ，ｈＤｅｖｉｃｅ）；
／／关闭ＶｘＤ
／／调用适配器初始化函数
＿ｏｕｔｐ（０ｘ３１０，０ｘ０１）； ／／打开邮箱锁
ｌｐＢａｓｅＡｄｄｒｅｓｓ[０ｘ３Ｆ０]＝ｂＳｒｃＮｏｄｅＮｕｍｂｅｒ； ／／上位机节点号
ｌｐＢａｓｅＡｄｄｒｅｓｓ[０ｘ３Ｆ１]＝ｂＲａｔｅ； ／／波特率
ｌｐＢａｓｅＡｄｄｒｅｓｓ[０ｘ３Ｆ８]＝０ｘＣ６； ／／适配器初始化命令字
ＤｒｖＤｅｌａｙ（２０，ｆａｌｓｅ）； ／／延时２０ｍｓ
．．．．．．．．．．．． ／／初始化后其它操作
＿ｏｕｔｐ（０ｘ３１０，００）； ／／关闭邮箱锁
ｒｅｔｕｒｎ Ｓ＿ＯＫ；

４ 虚拟设备驱动程序
ＶｘＤ是虚拟设备驱动程序（Ｖｉｒｔｕａｌ Ｄｅｖｉｃｅ Ｄｒｉｖｅｒ）的缩写，中间的ｘ表示某一设备。它能够无限制地访问所有硬件设备、自由地检测操作系统的数据结构（如描述符和页表）以及访问任何内存位置。

本文中，ＶｘＤ将ＩＳＡ总线对应的物理地址转换成一段线性地址，供应用程序使用。ＶｘＤ的开发工具是ＶｔｏｏｌｓＤ，转换时用的函数为ＭａｐＰｈｙｓＴｏＬｉｎｅａｒ。以下是部分程序代码：

／／定义结构体
ｔｙｐｅｄｅｆ ｓｔｒｕｃｔ ＿ＭａｐＤｅｖＲｅｑｕｅｓｔ
{
ＰＶＯＩＤ ｍｄｒ＿ＰｈｙｓｉｃａｌＡｄｄｒｅｓｓ； ＤＷＯＲＤ ｍｄｒ＿ＳｉｚｅＩｎＢｙｔｅｓ；
ＰＶＯＩＤ ｍｄｒ＿ＬｉｎｅａｒＡｄｄｒｅｓｓ；ＷＯＲＤ ｍｄｒ＿Ｓｔａｔｕｓ；
}ＭＡＰＤＥＶＲＥＱＵＥＳＴ，*ＰＭＡＰＤＥＶＲＥＱＵＥＳＴ；

＃ｉｎｃｌｕｄｅ ＜ｖｔｏｏｌｓｃｐ．ｈ＞
／／包含其它头文件
．．．．．．．．．．．．．．．．．．．．．．
ＤＷＯＲＤ ＬａｄｒｖＤｅｖｉｃｅ：：ＯｎＷ３２ＤｅｖｉｃｅＩｏＣｏｎｔｒｏ（ＰＩＯＣＴＬＰＡＲＡＭＳ ｐＤＩＯＣＰａｒａｍｓ）
{
ＰＭＡＰＤＥＶＲＥＱＵＥＳＴ ｐＲｅａ； ／／自己定义的结构体
ｓｗｉｔｃｈ（ｐＤＩＯＣＰａｒａｍｓ－＞ｄｉｏｃ＿ＩＯＣｔｌＣｏｄｅ）
{
ｃａｓｅ ＤＩＯＣ＿ＯＰＥＮ：
ｃａｓｅ ＤＩＯＣ＿ＣＬＯＳＥＨＡＮＤＬＥL：ｂｒｅａｋ：
ｃａｓｅ ＭＤＲ＿ＳＥＲＶＩＣＥ＿ＭＡＰ：
ｐＲｅｑ＝*（ＰＭＡＰＤＥＶＲＥＱＵＥＳＴ*）ｐＤＩＯＣＰａｒａｍｓ－＞
ｄｉｏｃ＿ＩｎＢｕｆ；
ｐＲｅｑ－＞ｍｄｒ＿ＬｉｎｅａｒＡｄｄｒｅｓｓ＝ＭａｐＰｈｙｓＴｏＬｉｎｅａｒ
（ｐＲｅｑ－＞ｍｄｒ＿ＰｈｙｓｉｃａｌＡｄｄｒｅｓｓ，ｐＲｅｑ－＞ｍｄｒ＿ＳｉｚｅＩｎＢｙｔｅｓ，０）；
ｉｆ（ｐＲｅｑ－＞ｍｄｒ＿ＬｉｎｅａｒＡｄｄｒｅｓｓ＝＝ＮＵＬＬ）
ｐＲｅｑ－＞ｍｄｒ＿Ｓｔａｔｕｓ＝ＭＤＲ＿ＳＴＡＴＵＳ＿ＥＲＲＯＲ；
ｅｌｓｅ
ｐＲｅｑ－＞ｍｄｒ＿Ｓｔａｔｕｓ＝ＭＤＲ＿ＳＴＡＴＵＳ＿ＳＵＣＣＥＳＳ；
ｂｒｅａｋ
ｃａｓｅ ＭＤＲ＿ＳＥＲＶＩＣＥ＿ＵＮＭＡＰ： ｂｒｅａｋ；
ｄｅｆａｕｌｔ
ｒｅｔｕｒｎ ＥＲＲＯＲ＿ＩＮＶＡＬＩＤ＿ＦＵＮＣＴＩＯＮ；
}
ｒｅｔｕｒｎ ＤＥＶＩＯＣＴＬ＿ＮＯＥＲＲＯＲ；
}
在现场总线控制系统中使用ＣＯＭ组件技术，不仅可以使数据传输部分的功能独立于客户端程序减小开发难度，而且使其可以被任何支持二进制代码的程序如Ｅｘｃｅｌ电子表格等直接调用。当系统中采用服务器和客户端方式时，代码更加易于维护。即使要升级服务器端程序，只要接口不变，其客户端程序也完全不需修改，大量后续工作被减轻。象服务器端一样，客户端也只需关心服务器的接口，而不必考虑其如何实现数据交换。也就是说，ＣＯＭ服务器或客户机中的一端功能发生改变，只要其接口保持不变，另一端不需修改就可以工作。本文所介绍的技术已在胜利油田某注水站等实际工程项目中得到成功的应用。