发布于 2004-08-25 15:01:45
0楼
[LIST=1]
Const ServerName = "OPCServer.WinCC"
Dim WithEvents MyOPCServer As OPCSiemensDAAutomation.OPCServer
Dim WithEvents MyOPCGroup As OPCSiemensDAAutomation.OPCGroup
MyOPCServer = New OPCSiemensDAAutomation.OPCServer
MyOPCServer.Connect(ServerName, "nodename")
MyOPCGroupColl = MyOPCServer.OPCGroups
[/LIST]
在vb.net下执行到第六行时报:
“接口 OPCSiemensDAAutomation.IOPCGroups 的 QueryInterface 失败。”