最简单的访问OPC服务器方法.docx

,.
最简单的接见OPC服务器
，同时也依据KEPWARE供给的事例源代码，同时进行研究，最后花了一个礼拜的时间进行研究，才大概有了一点眉目，现共享出来，希望此后的初
;..
,.
PublicClassForm1

'用于找寻服务器,连接服务器
'对应后边增添组和项
PrivateSubForm1_Load(senderAsObject,eAsEventArgs)
EndSub
以下程序：找寻OPC服务器，显示在列表框上边
PrivateSubButton1_Click(,)
AnOPCServer=
( )
DimAllOPCServersAsObject
AllOPCServers=()'以括号用文本框输入，确立OPC服务器的路径，
空白表示找寻本机，若是找寻内部网其余电脑，则写电脑的名称，比方：电脑名称
DimiAsShort
Fori=LBound(AllOPCServers)ToUBound(AllOPCServers)
(AllOPCServers(i))
Nexti
CatchexAsException
("ListOPCserversfailedwithexception:"+,"SimpleOPCInterfaceException",
)'用于显示执行结果，若是失败，则可以显示失败的原由。
EndTry
EndSub
连接服务器、增添项和组代码以下：
PrivateSubButton1_Click_1(senderAsObject,eAsEventArgs)
'以下程序连接服务器连接
Try
(,)'第一个是参数是opc服务器名称，第二个是电脑名称。
直接填写也可以，比方：(“”，“\\newPI”)
Ca