delphi实现OPC通讯.doc

delphi 用Automation接口编写OPC客户端2008-06-14 16:36:20|分类： Delphi编程 |标签： |字号大中小订阅 一,首先是OPCAutomation 的安装 1)使用regsvr32 注册 OPCDAAuto.dll 2)在 Delphi 的project菜单中,选导入类型库 OPC Automation 2.0。二 编写程序 声明 OPC 的类与接口 FOPCServer:TOPCServer; FOPCGroup :TOPCGroup; FOPCb :OPCBrowser; FOPCItems :OPCItems; / interface FOPCItem :OPCItem; / interface/ 获取OPC Server 列表function TForm1.OPCServerList(): Boolean;var OPCServerList,OPCServerName:OleVariant; j,i:integer;begin Result := false; try FOPCServer := TOPCServer.Create(Self); OPCServerList:=FOPCServer.GetOPCServers; i:=VarArrayHighBound(OPCServerList,1); for j:=1 to i do begin OPCServerName:=VarArrayGet(OPCServerList,j); lboxServerName.Items.Add(OPCServerName); end; except Result := False; end;end;/ 连接 OPC Serverfunction TForm1.OPCServerConnect(sServerID:string): Boolean;begin Result := true; try FOPCServer.Connect1(sServerID); except Result := False; end;end;/ 断开与 OPC 服务器的连接procedure TForm1.OPCServerDisconnect;begin if Assigned(FOPCServer) then begin if Assigned(FOPCGroup) then begin FOPCServer.OPCGroups.RemoveAll; FOPCGroup.Free; FOPCGroup := nil; end; FOPCItems := nil; FOPCItem := nil; FOPCServer.Disconnect; FOPCServer.Free; FOPCServer := nil; end;end;/ 创建 连接 OPC Groupfunction TForm1.OPCGroupConnect(AGroupName: OleVariant): Boolean;begin Result := True; try FOPCGroup := TOPCGroup.Create(Self); FOPCGroup.ConnectTo(FOPCServer.OPCGroups.Add(AGroupName); FOPCGroup.UpdateRate :=1000; FOPCGroup.IsActive := True; FOPCGroup.IsSubscribed := True; / 事件支持 except Result := False; end;end;procedure TForm1.BrowseItem(curNode:TTreeNode);var i: Integer; sItemName:WideString;begin with FOPCb do begin Filter:=*; DataType:=0; AccessRights:=0; ShowBranches; for i:=1 to Count do begin sItemName:=Item(i); TvItemView.Items.AddChild(curNode,sItemName); end; / TvItemView.Selected.Expand(true); end;end;procedure TForm1.ADDBrowserItem;var i,iOrg:integer; sItemName:WideString;begin FOPCb:=FOPCServer.CreateBrowser; iOrg:=FOPCb.Get_Organization; if iOrg=2 then /平坦式结构 begin with FOPCb do begin Filter:=*; DataType:=0; AccessRights:=0; ShowLeafs(true); for i:=1 to Count do begin sItemName:=Item(i); TvItemView.Items.AddChild(SerVerNameNode,sItemName); end; end; end else begin /树状结构 BrowseItem(SerVerNameNode); end;end;procedure TForm1.SetBrowsePosition(sPosition:string);begin try FOPCb.MoveToRoot; caption:=sPosition; FOPCb.MoveDown(sPosition); except ; end;end;procedure TForm1.TvItemViewClick(Sender: TObject);var i: Integer; sItemName:WideString;begin ListBox1.Clear; SetBrowsePosition(TvItemView.Selected.Text); with FOPCb do begin Filter:=*; DataType:=0; AccessRights:=0; ShowLeafs(true); for i:=1 to Count do begin sItemName:=Item(i); ListBox1.Items.Add (sItemName); end; end;end;procedure TForm1.TvItemViewExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);begin if not TvItemView.Selected.HasChildren then begin SetBrowsePosition(TvItemView.Selected.Text); BrowseItem(TvItemView.Selected); end;end;/添加一个项procedure TForm1.OPCItemAdd(sItemName:string);begin FOPCItems := FOPCGroup.OPCItems; FOPCItems.DefaultRequestedDataType:=0; FOPCItems.DefaultIsActive :=true; FOPCItem:=FOPCItems.AddItem(sItemName,ItemIndex);end;/读取指定项function TForm1.ReadData(ItemName:string):OleVariant;var Value, Quality, TimeS