枚举OPCServer的法子:
Dim ServerList as Variant
Dim i as Integer
Serverlist=anOPCServer.getOPcServer(node)
List1.clear
FOR i=lbound(Serverlist) to ubound(Serverlist)
List1.additem serverlist(i)
NEXT I
就这么简单,为什么在论坛上有这么多人在问,而我也没搞懂。
找到了枚举服务器的办法,在单机上成功。
其实《入门》也提供了一个DOC文档,是OPC提供的:
Data Access Automation Interface Standard Version 2.02