用VB编写OPC客户端访问WINCC

  
       OPC是一个工业标准，它是由一些世界上著名的自动化系统和硬件、软件公司和Microsoft(微软)紧密合作而建立的。〔O代表OLE(对象链接和嵌入)，P (process过程)，C (control控制)。OLE已从面向对象重新定义为基于对象并更名为Active X〕。

WinCC是西门子公司在自动化领域采用最先进的技术与微软公司在共同开发的居于世界领先地位的工控软件。WinCC即WINDOWS CONTROL CENTER（视窗控制中心）。WinCC是一个功能强大的全面开放的监控系统，既可以用来完成小规模的简单的过程监控应用，也可以用来完成复杂的应用。在任何情况下WinCC都可以生成漂亮而便捷的人机对话接口，使操作员能够清晰地管理和优化生产过程。它集成的OPC(OLE for process control)服务器使得过程数据可由其它应用程序(OPC客户机)访问。

WinCC在安装时提供了OPC的客户端控件: Siemens OPC DAAutomation 2.0( SOPCDAAuto.dll),这个控件就是我们在VB中要用到的控件，我们也可以使用通用的OPC客户端控件: OPC Automation 2.0.

在WINCC的帮助中，有Siemens OPC DAAutomation 2.0使用的简略帮助，但说得不很详细，我在使用中碰到不少问题，现一并写出来，与大家共享。

一、OPC的连接

   先在“引用”将近 Siemens OPC DAAutomation 2.0加入，然后开始定义全局变量。在本程序中，我使用了两个OPC组进行OPC访问，所以定义了全局变量。我们要首先定义OPC服务类型与计算机结点名。定义OPC组与OPC标签组。并定义OPC的标签数组与值数，注意，值数组一定要设为Variant。

'OPC处理：只对WINCC

Const ServerName = "OPCServer.WinCC"                 ‘OPC的类型

Const NodeName = "GUK"                                       ‘结点名，即计算机名

‘Dim NodeName As String

Dim WithEvents MyOPCServer As OPCServer           ‘OPC服务    

Dim MyOPCGroupColl As OPCGroups                  ‘

Dim WithEvents MyOPCGroupOut As OPCGroup      ‘OPC组，本程序用两个组进行OPC连接

Dim WithEvents MyOPCGroupIn As OPCGroup

Dim MyOPCItemCollIn As OPCItems                       ‘OPC标签组

Dim MyOPCItemCollOut As OPCItems

Dim ServerHandlesIn() As Long                                ‘句柄

Dim ServerHandlesOut() As Long

Dim ErrorsIn() As Long                                           ‘错误句柄

Dim ErrorsOut() As Long

Dim WatchDataReadItem(100) As String        '记录OPC的标签

Dim WatchDataReadValue(100) As Variant      '存放OPC的值

Dim WatchDataWriteItem(100) As String       '记录OPC的标签

Dim WatchDataWriteValue(100) As Variant     '存放OPC的值

  在定义所有变量后，我们就要进行OPC连接了，要进行OPC连接之前,先要配置要访问的OPC标签名，我们WatchDataReadItem、WatchDataWriteItem中加入相应的标签名，注意：这两个数组必须由1开始，不能由0开始。

   配置好标签后就要进行OPC连接了。如下面子程序：

1、  ClientHandles1先配置名柄索引，这将在读取OPC标签的值时可要用到

2、  生成OPC对象，

3、  进行OPC标签连接

   至此：OPC连接就成功了，我们可以对OPC进行读与写的操作了。

'---------------------------------------------------------------------

' Sub StartClient()

' 目的：连接至OPC_server，创建组和添加条目

'---------------------------------------------------------------------

Private Sub StartClient()

    Dim ItemNum As Integer

    Dim TarnscationID As Long

    Dim CanceID As Long

    Dim ClientHandles1(100) As Long

    Dim ii As Integer

On Error GoTo HANDLEeRROR

    For ii = 0 To 100

        ClientHandles1(ii) = ii                   先配置名柄索引，这将在读取OPC标签的值时可要用到            

    Next ii

    TarnscationID = 1

‘    NodeName = xProfile.GetValue("SYSTEM", "NodeName")

    ‘生成OPC对象，

    Set MyOPCServer = New OPCServer

    MyOPCServer.Connect ServerName, NodeName

    Set MyOPCGroupColl = MyOPCServer.OPCGroups

    MyOPCGroupColl.DefaultGroupIsActive = True

    Set MyOPCGroupIn = MyOPCGroupColl.Add("MYGROUPIN")

    Set MyOPCGroupOut = MyOPCGroupColl.Add("MYGROUPOUT")

    Set MyOPCItemCollIn = MyOPCGroupIn.OPCItems

    Set MyOPCItemCollOut = MyOPCGroupOut.OPCItems

    ‘进行OPC标签连接

    If WriteItemIdex > 0 Then

    MyOPCItemCollOut.AddItems WriteItemIdex, WatchDataWriteItem, ClientHandles1, ServerHandlesOut, ErrorsOut         '初始化OCP连接

    MyOPCGroupOut.IsSubscribed = True

    End If

    If ReadItemIdex > 0 Then

    MyOPCItemCollIn.AddItems ReadItemIdex, WatchDataReadItem, ClientHandles1, ServerHandlesIn, ErrorsIn        '初始化OCP连接

    MyOPCGroupIn.IsSubscribed = True

End If

    Exit Sub

HANDLEeRROR:

    needOPCRestart = True

    xLog1.log "OPCl连接发生错误"

End Sub

二、OPC的标签读写

对OPC标签的读可以通过MyOPCGroupIn组与MyOPCGroupOut的DataChange事件来读取。该事件有多个参数：其中NumItems是指标签改变值的个数，ClientHandles是改变值的标签索引，ItemValues为改变值的数据，具体的意思是ClientHandles（1）的值是其对应的标签数组的索引，其所指的OPC标签的值在ItemValues(1)中。一般来说，刚连接上时，该事件会把全部所要求访问的OPC标签值全部读取过来（顺序不

[1] [2] 下一页