One:界面
Two：核心代码
【1、服务器连接】
.版本 2
.支持库 OPCDAAuto
.子程序 connectserver, 逻辑型
.参数 strPorgID, 文本型
.参数 strNode, 文本型, 可空
opcserver.Connect (strPorgID, strNode)
.如果 (opcserver.ServerState ＝ #OPCServerState.OPCRunning)
返回 (真)
.否则
返回 (假)
【2、增加OPC标签】
.版本 2
.支持库 OPCDAAuto
.子程序 additems
.局部变量 itemIDs, 变体型
.局部变量 clienthandles, 变体型
.局部变量 i, 整数型
itemIDs.创建数组 (6, 3)
itemIDs.赋值 (编辑框_itemname1.内容, 1)
itemIDs.赋值 (编辑框_itemname2.内容, 2)
itemIDs.赋值 (编辑框_itemname3.内容, 3)
clienthandles.创建数组 (3, 3)
clienthandles.赋值 (1, 1)
clienthandles.赋值 (2, 2)
clienthandles.赋值 (3, 3)
ItemServerHandles.创建数组 (3, 0)
ItemServerErrors.创建数组 (3, 0)
opcitems ＝ opcgroup.GetOPCItems ()
opcitems.DefaultIsActive ＝ 真
opcitems.AddItems (3, itemIDs, clienthandles, ItemServerHandles, ItemServerErrors, , )
【3、获取服务器列表】
.版本 2
.支持库 OPCDAAuto
.子程序 获取服务器列表
.局部变量 list, 变体型
.局部变量 i, 整数型
list ＝ opcserver.GetOPCServers ()
' 调试输出 (list.取类型 ())
.计次循环首 (list.取数组成员数 (), i)
列表框_serverlist.加入项目 (list.取文本 (i), )
.计次循环尾 ()
【4、连接OPC】
.版本 2
.支持库 OPCDAAuto
.子程序 connectserver, 逻辑型
.参数 strPorgID, 文本型
.参数 strNode, 文本型, 可空
opcserver.Connect (strPorgID, strNode)
.如果 (opcserver.ServerState ＝ #OPCServerState.OPCRunning)
返回 (真)
.否则
返回 (假)
】
Three、结果