源程序根据SIEMENS SAMPLE 修改 TIMER控件隔10ms 刷新 10Min出错链接失败

Dim Objserver As OPCServer
Dim GroupObj As OPCGroup
Dim GroupCollection As OPCGroups

Dim ItemServerHandles() As Long
Const MAX_INDEX = 1
Const OPC_DS_CACHE = 1
Const OPC_DS_DEVICE = 1
Dim lNumItems As Long
Dim lClientHandles(MAX_INDEX) As Long
Dim perror() As Long
Dim szItemIDs(MAX_INDEX) As String
Dim AccPath(MAX_INDEX) As String
Dim ReqDataTypes(MAX_INDEX) As Integer

'Definition of the Variables for OPCRead
Dim vValues() As Variant
Dim pErrors() As Long


Sub Main()
Set Objserver = New OPCServer
Objserver.Connect ("OPC.SimaticNET")
Set GroupObj = Objserver.OPCGroups.Add("MyGroup")

'Definition of ItemIDs
szItemIDs(1) = "FMS:[xfr_PLCxfr_VFDiFix]220"
AccPath(1) = ""
' Set requested datatypes for the Items
ReqDataTypes(1) = vbVLong
' Set Client handles
lClientHandles(1) = 1
'Add Items to Group
GroupObj.OPCItems.AddItems MAX_INDEX, szItemIDs, lClientHandles, ItemServerHandles, perror, ReqDataTypes, AccPath


End Sub

Sub ReadValue()
GroupObj.SyncRead OPC_DS_DEVICE, 1, ItemServerHandles, vValues, pErrors
Form1.Label1.Caption = Str(vValues(1))
End Sub
Private Sub Command1_Click()
Main
End Sub



Private Sub Command2_Click()
ReadValue
End Sub

Private Sub Form_Load()

End Sub


Private Sub Timer1_Timer()
Main
ReadValue
End Sub