OPC客户端编程汇编

OPC编程汇编

OPC客户端的自动化实现

OPC是建立在COM，DCOM的基础商的，因此绝大多数语言都可以很好的进行开发。在Net中开发客户端有以下几种方式：

（1）使用OPCNetAPI，需要用到OPCNetAPI.dll，.dll

（2）使用自动化接口，需要用到OPCDAAuto.dll

（3）使用自定义接口，需要用到多个Wrapper：OpcRcw.Ae.dll，OpcRcw.Batch.dll，n.dll，OpcRcw.Da.dll，OpcRcw.Dx.dll，OpcRcw.Hda.dll，OpcRcw.Sec.dll

以上开发方式所需的动态链接库可以从OPC基金会（/）的网站上下载，一些下载项目可能需要注册，或成为基金会的成员。

不同的方式有各自的有缺点，请参见…

本文使用自动化接口，语言进行开发，开发项目是无线射频（RFID）卡方面的应用，典型的如公交车，或公司考勤使用的刷卡机。需要注意的是自动化接口存在一个“不是问题”的问题，数组下标是以1开始的，而不是传统计算机开发上的以0开始。不知道设计者头脑是怎么想（有人知道吗？）；这可能会给一些语言的开发造成问题（有人碰到吗，没有你就是幸运的）

需求：OPCDAAuto.dll或该Dll的Interop

(一)：客户端开发流程

OPC客户端的开发主要遵循下图所示的开发流程，下面就从以下几个开发步骤进行说明

(二)：枚举OPC服务器列表

枚举服务器主要是通过OPCServer接口的GetOPCServers方法来实现的，该方法会返回OPC服务器数组（以1为下界，上面已有说明），以下是代码段

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loa d

Try

GlobalOPCServer = New OPCAutomation.OPCServerClass()

Dim ServerList As Object= GlobalOPCServer.GetOPCServers

For index As Short= LBound(ServerList) To UBound(ServerList) '加入控件列表中，注意这里使用LBound和UBound

cbbServerList.Items.Add(ServerList(index))

Next

If cbbServerList.Items.Count > 0 Then

cbbServerList.SelectedIndex = 0

End If

ResetControlStatus() '设置控件状态

GlobalOPCServer = Nothing

Catch Ex As Exception

MessageBox.Show("List OPC servers failed: "+ Ex.Message, "OPCSample", MessageBoxButtons.OK) End Try

End Sub

(三)：连接OPC服务器

自动化接口中连接到服务器是使用connect方法

Public Overridable Sub Connect(ByVal ProgID As String, Optional ByVal Node As Object = Nothing)

ProgID指服务器的ProgID，Node代表网络节点，如果是本机则放空即可。

连接到服务器后，以下属性需要特别注意：

OPCServer.StartTime：服务器的启动时间

OPCServer.CurrentTime：服务器的当前时间，各个客户端可以通过这个属性值完成一些同步的操作

OPCGroups.DefaultGroupIsActive：以后添加的Group是否默认激活

OPCGroups.DefaultGroupDeadBand：Group的默认死区，变化量超过死区后将会触发DataChange事件，

合理的设置该值可以提高程序性能

OPCGroups.Count：下属组（Group）的数量

OPCGroups.DefaultGroupLocalID：组（Group）的默认通信区域编号，如1024

OPCGroups.DefaultGroupUpdateRate：组（Group）的默认刷新率，该属性也比较重要

OPCGroups.DefaultGroupTimeBias：组（Group）的默认时间偏差

(四)：添加组（Group）和项（Item）

添加组和项需要用到Groups.Add和Items.AddItem方法，以下是原型：

Function Add(Optional ByVal Name As Object = Nothing) As OPCAutomation.OPCGroup

Function AddItem(ByVal ItemID As String, ByVal ClientHandle As Integer) As OPCAutomation.OPCItem

组也有两个重要的属性

Group.UpdateRate：刷新率，该属性通Groups的UpdateRate意义一样，如果这个值有设置，则以这个值为准

Group.IsSubscribed：是否使用订阅功能

以下是代码段

'连接到指定的OPC服务器

Private Sub btnConnectServer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnectServer.Click

If cbbServerList.Text <> ""Then

ConnectedOPCServer = New OPCAutomation.OPCServerClass()

Try

ConnectedOPCServer.Connect(cbbServerList.Text)