用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