基于delphi的opc客户端源代码.doc
文本预览下载声明
基于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
显示全部