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

基于delphi的opc客户端源代码 单位MainForm; 接口 使用 Windows，消息，SysUtils，变体，类，图形，控件，表单， 对话框，stdctrl,OPCAutomation_TLB，奥尔森，comctrl,ActiveX， ExtCtrls; 类型 TTFrmMain =类(TForm) Label1:TLabel; Label2:TLabel; Label3:TLabel; Button1:TButton; Button2:TButton; fwq:TComboBox; Edit1:TEdit; Button3:TButton; Button4:TButton; OPCGroup1:TOPCGroup; OPCServer1:TOPCServer; 电视:树; Label4:TLabel; Edit2:TEdit; Button5:TButton; Button6:TButton; Timer1:TTimer; OPCGroups1:TOPCGroups; 过程Button4Click(发送者:TObject); 过程Button2Click(发送者:TObject); 过程FormCreate(发送者:TObject); 过程Button1Click(发送者:TObject); 过程Button5Click(发送者:TObject); 过程Timer1Timer(发送者:TObject); 过程Button6Click(发送者:TObject); 过程tvClick(发送者:TObject); 过程Button3Click(发送者:TObject); 私人 {私人声明} 公共 {公开声明} 结束; var TFrmMain:TTFrmMain; 浏览器:opcbrowser; FOPCItems:OPCItems; FOPCItem:OPCItem; nownode:ttreenode; lujing:字符串; OVItemID:OleVariant; OVClientHandles:OleVariant; OVServerHandles:OleVariant; NumItems:整数; OVErrors:OleVariant; 函数的分支(数:整数;节点:TTreeNode):字符串; 实现 { $ R * .dfm } 函数的分支(数:整数;节点:TTreeNode):字符串; var 圣:olevariant; 节点:TTreeNode; y:整数; 是从:整数; 日元:整数; Count3:整数; 开始 对于y:= 1计数 开始 圣:= Browser.Item(y); 节点:= TFrmMain.tv.Items.addChild(节点,st); browser.MoveDown(st); browser.ShowBranches; Count3:= browser.Count; 如果count3 0 分支(count3节点) 其他的 开始 browser.ShowLeafs(st); 是从:= browser.Count; 如果是从 0 开始 对于y1:= 1到count2 开始 圣:= browser.Item(y1); TFrmMain.tv.Items.AddChild(节点、圣); 结束; 结束; 结束; browser.MoveUp; browser.ShowBranches; 结束; 结束; 过程TTFrmMain。Button4Click(发送方:TObject); 开始 关闭; 结束; 过程TTFrmMain。Button2Click(发送方:TObject); var 数:整数; rootnode:TTreeNode; Count1:整数; 是从:整数; str:olevariant; X:整数; z:整数; st2:字符串; 开始 OPCServer1.Connect1(fwq.text); 浏览器:= OPCServer1.CreateBrowser; browser.Movetoroot; browser.ShowBranches; 数:= browser.Count; 如果计数为 对于X:= 1计数 开始 str:= browser.Item(X); rootnode:= tv.Items.add(nil,str); browser.movedown(str); browser.showbranches; Count1:= browser.Count; 如果Count1 0那么分支(Count1,rootnode) 其他的 开始 browser.ShowLeafs(str); 是从:= browser.Count; 如果是从 0 开始 对于z:= 1到Coun