基于delphi的opc客户端源代码.docxVIP

单位 MainForm; 接口 使用 Windows,消息，SysUt订s,变体，类，图形，控件，表单， 对话框，stclctrl, OPCAutomation TLB,奥尔森，comctrl, ActiveX, ExtCtrls; 类型 TTFrmMain 二类(TForm) Label 1:TLabel; Label2:TLabel; Label3:TLabel; Buttonl:TButton; Button2:TButton; fwq:TComboBox; Editl:TEdit; Button3:TButton; Button4:TButton; OPCGroupl:TOPCGroup; OPCServerl:TOPCServer; 电视:树； Label4:TLabel; Edit2:TEdit; Buttons:TButton; Button6:TButton; Timerl:TTimer; OPCGroupsl:TOPCGroups; 过程 Button4Click（发送者:TObject）; 过程 Button2Click（发送者:TObject）; 过程 FormCreate （发送者:TObject）; 过程 ButtonlClick（发送者:TObject）; 过程 Button5Click（发送者:TObject）; 过程 TimerlTimer （发送者:TObject）; 过程 Button6Click（发送者:TObject）; 过程 tvClick（发送者:TObject）; 过程 Button3Click（发送者:TObject）; 私人 ｛私人声明｝ 公共 ｛公开声明｝ 结束； var TFrmMain:TTFrmMain; 浏览器：opcbrowser; FOPCIterns:OPCIterns; FOPCItem:OPCItem; nownode:ttreenode; lujing:字符串； OVItemlD:OleVariant; OVClientHandles:OleVariant; OVServerHandles:OleVariant; NumIterns: JL±2m 数; OVErrors:OleVariant; 函数的分支（数:整数;节点:TTreeNode）:字符串; 实现 { $ R * ? dfm } 函数的分支（数:整数;节点:TTreeNode）:字符串; var 圣：olevariant; 节点:TTreeNode; y：整数； 是从:整数； 日元:整数; Count3:整数; 开始 对于y：二1计数 开始 圣：二 Browser? Item(y); 节点:二 TFrinMain? tv. Items? addChiId(节点,st); browser? MoveDown(st); browser? ShowBranches: Count3:二 browser? Count; 如果 count3 0 分支(count3节点) 其他的 开始 browser? ShowLeafs(st); 如果是从〉0 开始 对于 yl:二 1 到 count2 开始 圣：二 browser? Item（yl）; TFnnMain. tv. Items. AddChiId （节点、圣）; 结束； 结束； 结束； browser? MoveUp; browser? ShowBranches: 结束； 结束； 过程 TTFnnMaino Button4Click （发送方:TObject）; 开始 关闭; 结束; 过程 TTFnnMaino Button2Click(发送方:TObject); var 数:整数； rootnode:TTreeNode; Count 1:整数； 是从:整数； str:olevariant; X:整数; z:整数; st2:字符串; 开始 OPCServer1. Connectl(fwq. text); 浏览器：二 OPCServerl. CreateBrowser; browser. ShowBranches; 数:二 browser? Count; 如果计数为〉 对于X:二1计数 开始 str:= browser?Item(X); rootnode:= tv. Items? add(nil, str); browser? movedown(str); browser? showbranches: Count1:二 browser? Count; 如果 Count 1 0 那么分支(Countl, rootnode) 其他的 开始 browser? ShowLeafs(str); 如果是从〉0 开始 对于 z:二 1 到 Count2 开始 st