基于delphi的opc客户端源代码

《基于delphi的opc客户端源代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、基于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;OP

2、CServer1: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(发

3、送者:TObject);过程tvClick(发送者:TObject);过程Button3Click(发送者:TObject);私人{私人声明}公共{公开声明}结束;varTFrmMain:TTFrmMain;浏览器:opcbrowser;FOPCItems:OPCItems;FOPCItem:OPCItem;nownode:ttreenode;lujing:字符串;OVItemID:OleVariant;OVClientHandles:OleVariant;OVServerHandles:OleVariant;NumItems:整数;OVErrors:OleVariant;函数的分支(数:整数

4、;节点: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);是从:

5、=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:字

6、符串;开始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.

7、ShowLeafs(str);是从:=browser.Count;如果是从>0开始对于z:=1到Count2开始st2:=browser.Item(z);tv.Items.AddChild(rootnodest2);结束;结束;结束;browser.MoveUp;browser.ShowBranches;结束;Button2.Enabled:=false;Button1.Enabled:=true