一、引言
现在有很多工业控制产品都支持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 Boolean
IPAddress为可选的远程OPC服务器所属PC的IP地址，如“192.168.0.1”，如果不提供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 Any, _
ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Global_constants:
Option Explicit
Option Base 1
'Global constrants
'------------------------------
Global Const English = &H409
Global Const OPC_DS_CACHE = 1
Global Const OPC_DS_DEVICE = 2
BCA_OPC:
Option Explicit
Option Base 1
' Interface Objects 接口对象
'----------------------------------------------------------------------------
' 必须使用WithEvents来申明对象OPCServer和OPCGroup,
' WithEvents指定申明的对象用于处理对象的事件
Dim WithEvents ServerObj As OPCServer ' 定义OPCServer
Dim GroupObj As OPCGroup ' 定义OPCGroup
Dim WithEvents GroupCollection As OPCGroups ' 定义OPCGroups
Dim ItemCollection As OPCItems ' 定义OPCItems
Dim ItemObj As OPCItem ' 定义OPCItem
'----------------------------------------------------------------------------
' Global Variables 全局变量
'----------------------------------------------------------------------------
Dim ServerName As String ' OPC服务器名称
Dim ServerConnected As Boolean ' OPC服务器已连接标志
' OPCServer和OPCGroup都有ServerHandle和ClientHandle参数;
' ServerHandle用于OPC服务器定位;ClientHandle用于OPC客户端定位;
Dim ServerGroupHandle() As Long ' 服务器-组句柄(索引)
Dim ServerItemHandle() As Long ' 服务器-条目句柄
Dim ClientGroupHandle() As Long ' 客户机-组句柄
Dim ClientItemHandle() As Long ' 客户机-条目句柄
Dim Dll_is_Initial As Boolean ' DLL初始化
Dim Configuration_is_Set As Boolean ' 是否已组态
Dim TraceOn As Boolean ' 跟踪开关
Dim TraceFile As String ' 跟踪文件
Dim ConfigFile As String ' 组态文件
Dim ItemData(1024) As Variant ' 读取变量数据的储存地址
Dim AllItemsInfo As New ItemsInfo
'log文件记录操作
Private Function Trace(TraceMsg As String)
If TraceOn = True Then
Dim fs As Object, f As Object
Dim mHour, mMinute, mSecond, mMSecond As String
Set fs = CreateObject("SCRJPTing.FileSystemObject")
Set f = fs.OpenTextFile(TraceFile, 8, -2)
mHour = Format(Fix(Timer / 3600), "00")
mMinute = Format(Fix((Timer - mHour * 3600) / 60), "00")
mSecond = Format(Fix((Timer - mHour * 3600 - mMinute * 60)), "00")
上一篇：智能化小区与信息化小区
