delphi实现OPC通讯.docVIP

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