OPCBrowser的GetAccessPaths方法怎么用- 问答悬赏

如何不接收本站短信和邮件提醒？
本站火柴有什么用？
发布问题流程

我也要发问题

加关注

[单人中标] OPCBrowser的GetAccessPaths方法怎么用

问题已结束！

发布者冰河

浏览量次

回答数 1个

我来回答

任务详情

for I := 0 to ListBox1.Count - 1 do

   begin

    if ListBox1.Selected[i]=True then

       begin

          sItemID:=OPCBrowser1.GetItemID(ListBox1.Items.Strings[i]) ;

          Edit3.Text:=sItemID;

          Edit4.Text:=VarToStr(OPCBrowser1.GetAccessPaths(sItemID));

          end;

   end;
当执行到‘Edit4.Text:=VarToStr(OPCBrowser1.GetAccessPaths(sItemID));

’时总是报‘Project OPCReadAndWrite.exe raised exception class EOleException with message  ‘尚未实现’’，请问高手怎么解决

juedingaini：  procedure TForm1.ADDBrowserItem;
var
  i, iOrg: integer;
  sItemName: WideString;
begin
  FOPCb := OPCServer1.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(nil, sItemName);
      end;
    end;
  end
  else
  begin //树状结构
    BrowseItem(nil);
  end;
end;
 
procedure TForm1.BuildTree(curNode: TTreeNode);
var
  i: Integer;
  sItemName: string;
  sNode: TTreeNode;
begin
  with FOPCb do
  begin
    ShowBranches;
    for i := 1 to Count do
    begin
      sItemName := Item(i);
      sNode := TvItemView.Items.AddChild(curNode, sItemName);
      MoveDown(sItemName);
      BuildTree(sNode);
      MoveUp;
    end;
  end;
end;

回答于：2012/12/23 12:17:45 　　　　　#1楼　奖励火柴：0

刷新首页上一页下一页末页页次1/1页共 1 条记录转到：

您的任务被发布者审核为不合格

原因

详细说明

Delphi盒子-问答悬赏

常见问题更多

关注我们

[单人中标] OPCBrowser的GetAccessPaths方法怎么用

任务详情

Delphi盒子-问答悬赏

常见问题 更多

关注我们

[单人中标] OPCBrowser的GetAccessPaths方法怎么用

任务详情

常见问题更多