前面服务器已经连接成功
Dim WithEvents ConnectedGroup As OPCAutomation.OPCGroup
ConnectedOPCServer.OPCGroups.DefaultGroupIsActive = True
ConnectedOPCServer.OPCGroups.DefaultGroupDeadband = 40
ConnectedGroup = ConnectedOPCServer.OPCGroups.Add("组1")
ConnectedGroup.UpdateRate = 400
ConnectedGroup.IsSubscribed = True
‘ 组新建成功
ConnectedGroup.OPCItems.DefaultIsActive = True
Dim ItemServerHandles() As Long
Dim ItemCount As Long = 2
Dim OPCItemIDs(2) As String
Dim ClientHandles(2) As Int32
Dim AddItemErrors() As Long
OPCItemIDs(1) = "Q1"
OPCItemIDs(1) = "Q2"
ClientHandles(1) = 1
ClientHandles(2) = 2
ConnectedGroup.OPCItems.AddItems(ItemCount, OPCItemIDs, ClientHandles, ItemServerHandles, AddItemErrors)
代码如上,运行到增加项时提示,无法将System.Int32[*]转化为System.Int64[]
如何在VB中开发opc客户端
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
- danielinbiti 2015-02-05 05:47关注
这不提示很明显吗
Dim ClientHandles(2) As Int32 定义成long或者Int64试试
解决 无用评论 打赏 举报