OPCClient动态连接库开发和应用..docVIP

一、引言现在有很多工业控制产品都支持OPC Server，如西门子SIMATIC NET、WINCC、WINAC、Protool/pro，亚控公司组态王等，这些产品本身在一些需要实现很复杂的数据模型功能上还显得不足，由于支持了OPC，我们就可以在VB或C++上通过OPC获取数据进而实现较复杂的功能（如强大的数据库管理或数据分析）。本文讨论了如何在VB中开发一个动态连接库，以方便开发者实现对OPC服务器的数据采集，将精力更多的放在界面开发和数据处理上。 二、功能设计类型设计为ActiveX Dll，名称：OPC_Dll.dll，可以在VB工程[引用]中加载，加载后通过创建类BCA_OPC的实例来实现OPC数据通讯，BCA_OPC的调用功能如下：1、配置初始化：Dll_Initial(strConfigFile As String) As Boolean其中strConfigFile为连接OPC服务器对应的配置文件名称（*.ini），用户建立的配置文件应遵循一定的格式（在下面应用中说明），并且应放在系统目录下（如C:\WINNT下）。配置文件中包含了要连接的OPC服务器名称、log文件名称、变量组定义及对应组内的变量定义（本连接库最多支持1024个变量通讯，对变量组的数目没有限制）。配置成功返回TRUE。2、连接OPC服务器：ConnectServer(Optional IPAddress As String) As BooleanIPAddress为可选的远程OPC服务器所属PC的IP地址，如“”，如果不提供IPAddress参数，则默认为本机OPC服务器。连接成功返回TRUE。3、配置通讯变量（组态OPC客户机）：SetConfiguration() As Boolean根据提供的ini配置文件组态OPC客户机与服务器的变量通讯，组态成功返回TRUE。4、读变量数据：GetData(ItemName As String)ItemName为变量名称，必须与ini配置文件中的变量名称一致。本功能返回该变量的实际数据。5、写变量数据：WriteData(ItemName As String, ItemWriteData As Variant)ItemName为变量名称，ItemWriteData为变量数据。三、实现代码1、在VB6.0中新建ActiveX Dll工程，如下图：2、在工程菜单中添加引用，如下图：如果系统中没有OPC Automation，你需要安装注册OPC自动化。一般装了OPC支持的软件，系统都支持OPC自动化。3、在工程中添加模块，如下图：模块API_Function为软件所需的一些API函数。模块Global_constants为一些系统常量类模块BCA_OPC为实现主类类模块ItemInfo和ItemsInfo实现变量信息的封装4、以下为各模块的程序代码：API_Function:Option Explicit ---------------------------------- 获取一个与给定初始化文件指定域中的一个键相联系的整数值(1)Public Declare Function GetPrivateProfileInt Lib kernel32 Alias _??????? GetPrivateProfileIntA (ByVal lpApplicationName As String, ByVal lpKeyName As String, _??????? ByVal nDefault As Long, ByVal lpFileName As String) As Long 从一个初始化文件中获取指定段的所有键和值(2)Public Declare Function GetPrivateProfileSection Lib kernel32 Alias _??????? GetPrivateProfileSectionA (ByVal lpAppName As String, ByVal lpReturnedString As String, _??????? ByVal nSize As Long, ByVal lpFileName As String) As Long 获取初始化文件中的制定断下的一个字符串(3)Public Declare Function GetPrivateProfileString Lib kernel32 Alias _??????? GetPrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As An