用VB编写OPC客户端通过RSLINX访问SLC

OPC是一个工业标准，它是由一些世界上著名的自动化系统和硬件、软件公司和Microsoft(微软)紧密合作而建立的。O代表OLE(对象链接和嵌入)，P (process过程)，C (control控制)。OLE已从面向对象重新定义为基于对象并更名为Active X。OPC的使用是作为一个DCOM在使用，所以OPC客户端可以网络上任一计算机运行，但你必须配置DCOM的访问权限，如果你不想费神，把服务器与客户端都用相同的用户名与密码登录就成了。如果想配置DCOM，请参看DCOM的配置。RSlinx集成的OPC(OLE for process control)服务器使得过程数据可由其它应用程序(OPC客户机)访问。在安装RSlinx时提供了OPC的客户端控件: Rockwell Software OPC Automation(C:\Program Files\Common Files\Rockwell\RsiOPCAuto.dll)本例就是用VB通过对这个控件进行操作，来实现对SLC内存标签的读写访问。 本例编写如下测试梯形图：

在RSlinx中建立驱动，配置OPC服务器，见下图，并让以上梯形图运行。

VB程序如下:

'OPC是一个工业标准，它是由一些世界上著名的自动化系统和硬件、软件公司和Microsoft(微软)紧密合作而建立的。
'O代表OLE(对象链接和嵌入)，P (process过程)，C (control控制)。OLE已从面向对象重新定义为基于对象并更名为Active X。
'OPC的使用是作为一个DCOM在使用，所以OPC客户端可以网络上任一计算机运行，但你必须配置DCOM的访问权限，
'如果你不想费神，把服务器与客户端都用相同的用户名与密码登录就成了。如果想配置DCOM，请参看DCOM的配置。

'RSlinx集成的OPC(OLE for process control)服务器使得过程数据可由其它应用程序(OPC客户机)访问。
'RSlinx在安装时提供了OPC的客户端控件: Rockwell Software OPC Automation(C:\Program Files\Common Files\Rockwell\RsiOPCAuto.dll)
'这个控件就是我们在VB中要用到的控件。

'一、OPC的连接
' 先在工程中"引用" Rockwell Software OPC Automation，然后开始定义全局变量。
'我们要首先定义OPC服务类型与计算机结点名。定义OPC组与OPC标签组。并定义OPC的标签数组与值数，注意，值数组一定要设为Variant。

Const ServerName = "RSLINX OPC Server" 'OPC的类型
Const NodeName = "SMZ" '结点名，即计算机名
Dim WithEvents MyOPCServer As OPCServer 'OPC服务
Dim MyOPCGroups As OPCGroups
Dim WithEvents MyOPCGroup As OPCGroup 'OPC组
Dim MyOPCItems As OPCItems 'OPC标签组
Dim ServerHandles() As Long '句柄
Dim Errors() As Long '错误句柄
Dim DataItem(100) As String '记录OPC的标签
Dim DataValue(100) As Variant '存放OPC的标签的值

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