我写了个OPC客户端程序，但读不上来数据，为什么呢？

[qiangwei_flower]

程序如下：
Option Explicit


Dim ServerName As String

Dim NodeName As String

Dim GroupName As String

Dim MaxITEMNum As Long

Dim BranchCnt As Integer
Dim LeafCnt As Integer


Dim WithEvents MyOPCServer As OPCServer

Dim WithEvents MyOPCGroup As OPCGroup


Dim MyOPCGroupColl As OPCGroups

Dim MyOPCItemColl As OPCItems


Dim MyOPCItems As OPCItems

Dim MyOPCItem As OPCItem

'
Dim ClientHandles(4) As Long

Dim ServerHandles() As Long

Dim DataReadItem(4) As String

Dim DataReadValue(4) As Variant

Dim errors() As Long

Dim ServerHandlesIn() As Long
Dim ServerHandlesOut() As Long


Dim TrandID As Long
Dim CancelID As Long
'
Dim itemv() As Variant
Dim itemq() As Long

Dim OPCVache As Integer

Dim ItemNums As Long

Dim ii As Integer



Private Sub Connect_Click()

Dim ItemNum As Integer


Set MyOPCServer = New OPCServer
'OPCServer connection

ServerName = Text1.Text

NodeName = "WWW-6C0E52EE8D2"

MyOPCServer.Connect ServerName, NodeName

'Create OPCGroups

Set MyOPCGroupColl = MyOPCServer.OPCGroups

MyOPCGroupColl.DefaultGroupIsActive = True


'Create ReadGroup

Set MyOPCGroup = MyOPCGroupColl.Add("Group1")

'add items for Read group



'-----------Settings for ReadGroup

MyOPCGroup.IsSubscribed = True 'must be true when using asyn read and write
MyOPCGroup.UpdateRate = 1000

ItemNums = 4

DataReadItem(1) = "NewTag"
DataReadItem(2) = "NewTag_1"
DataReadItem(3) = "NewTag_2"
DataReadItem(4) = "NewTag_3"

ClientHandles(1) = 1
ClientHandles(2) = 2
ClientHandles(3) = 3
ClientHandles(4) = 4

MyOPCGroup.OPCItems.AddItems ItemNums, DataReadItem(), ClientHandles(), ServerHandles(), errors()

End Sub

Private Sub GetServerList_Click()
Call GetServer
End Sub

Sub GetServer()

List1.Clear

'initiate a OPCServer
Set MyOPCServer = New OPCServer

'get this node's server list
Dim ServerList
NodeName = "WWW-6C0E52EE8D2"

'Return a array of Severnamelist

ServerList = MyOPCServer.GetOPCServers(NodeName)

'list all the servers
For ii = LBound(ServerList) To UBound(ServerList)
List1.AddItem (ServerList(ii))

Next ii

Set MyOPCServer = Nothing

End Sub

Private Sub List1_Click()

Text1.Text = List1.Text

End Sub

Private Sub Read_Click()
执行到该处报错
Call MyOPCGroup.SyncRead(OPCVache, ItemNums, ServerHandles, DataReadValue, errors)

For ii = 1 To ItemNums
List2.AddItem (DataReadItem(ii) & "=" & DataReadValue(ii))
Next
End Sub
请帮忙看一下，问题出在哪呢？

[LinkSe7en]

单单这样看很辛苦啊！帮你顶下

[hpygzhx520]

先用PLC厂家自己的OPC客户端测试一下，搞清楚通信是否正常。另，如果是本机，那么不需要写节点名。

你用哪家的PLC？OPC Server是什么？看上去和我平时用的代码不太一样。

[qiangwei_flower]

不要只是顶，帮忙解决问题呀！！！！

[threenewbee]

帮你顶。

[qiangwei_flower]

通讯是没问题的，WinccOPCServer
Connect 都可以，就是不能读取上数据，真是头痛
用网上收来例程也未能实现！！！！！！