kepserver OPC VS2010 无法添加GROUP ,异常原因

boyshaojie 2017-07-25 05:56:13
用OPC服务器连接PLC读取数据。开发平台VB.NET 2010
在添加GROUP的时候,老是弹出此项,系统为WIN X64
官方提供的demo也不行,但是DEMO\DEBUG文件夹里面的EXE 却可以正常执行,不知道是哪里的问题,各位有没有碰到过
另还有一问题, ConnectedGroup.DataChange 不存在是否跟这个有关





文字描述为

无法将类型为“System.__ComObject”的 COM 对象强制转换为接口类型“OPCAutomation.OPCServer”。此操作失败的原因是对 IID 为“{28E68F92-8D75-11D1-8DC3-3C302A000000}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 不支持此接口 (异常来自 HRESULT:0x80004002 (E_NOINTERFACE))。


代码如下

Private Sub btnAddGroup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddGroup.Click
Try
ConnectedOPCServer.OPCGroups.DefaultGroupIsActive = GroupActiveState.Checked '设置连接的服务器组活动标志
ConnectedOPCServer.OPCGroups.DefaultGroupDeadband = Val(GroupDeadBand.Text) '设置连接的服务器组死区定义
ConnectedGroup = ConnectedOPCServer.OPCGroups.Add(OPCGroupName.Text) '添加组
ConnectedGroup.UpdateRate = Val(GroupUpdateRate.Text) '设置连接的服务器组数据刷新频率
ConnectedGroup.IsSubscribed = True '是否开启数据变化事件,重要必须打开

OPCGroupName.Enabled = False
btnAddGroup.Enabled = False
btnRemoveGroup.Enabled = True
btnAddItems.Enabled = True
For i As Short = 1 To Numitems
OPCItemName(i).Enabled = True
Next
btnDisConnectServer.Enabled = False
Catch ex As Exception
Debug.Print(ex.Message)
MessageBox.Show("添加组失败 " & vbCrLf + ex.Message, "btnAddGroup_Click错误", MessageBoxButtons.OK)
End Try

End Sub
...全文
991 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

16,556

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧