最简单的访问OPC服务器方法.docx

最简单的访问 OPC 服务器
在网上搜了很多关于 编写客户端访问 OPC 服务器的资料，同时也根据 KEPWARE 提供的案例源代码，同时进行研究，最后花了一个星期的时间进行研究，才粗略有了一点头绪，现共享出
来名？看网络邻居，至少你应该知道那台电脑装了 OPC 服务器。
— 4
精选文档
Public Class Form1
Inherits . Form
Dim WithEvents AnOPCServer As OPCAutomation. OPCServer ' 用于搜索服务器 , 连接服务器
Dim WithEvents ConnectedGroup As OPCAutomation. OPCGroup ' 对应后面添加组和项
Private Sub Form1_Load(sender As Object , e As EventArgs ) Handles
End Sub
以下程序：搜索 OPC服务器，显示在列表框上面
Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Try
AnOPCServer = NewOPCAutomation. OPCServer
()
Dim AllOPCServers As Object
AllOPCServers = () ' 以括号用文本框输入，确定 OPC服务器的路径，
空白表示搜索本机，如果搜索内部网其他电脑，则写电脑的名称，例如： 电脑名称
Dim i As Short
For i = LBound(AllOPCServers) To UBound(AllOPCServers)
(AllOPCServers(i))
Next i
Catch ex As Exception
( "List OPCservers failed with exception: " + , "SimpleOPCInterface Exception" ,
MessageBoxButtons .OK) ' 用于显示执行结果，如果失败，则可以显示失败的原因。
End Try
End Sub
B) 连接服务器、添加项和组
代码如下：
Private Sub Button1_Click_1(sender As Object , e As EventArgs ) Handles
' 以下程序连接服务器连接