【结】如何取功能的所在文件夹或目录路径?

mengqf

如题，如两个功能在一个文件夹下，如何取所在文件夹的名称，如何取所在文件夹的路径。通过代码来取。

atiger

请问楼主根据啥来取呢？

mengqf

通过这个TFunc(FuncBroker.Func).BizClassURL.BizURL.FileName能取到功能的url，如何取上级的文件夹的url?
还有如何取到功能的所在空间的id。

mengqf

有人知道吗

atiger

你是说根据bizURL获取功能的中文路径吧，如果是参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=24923

另外，你取功能所在的业务控件想实现啥呢？因为功能的BizURL中只有空间，没有文件夹的。

mengqf

有什么方法能够取到功能所在的业务空间的名称或ID，还有所在的路径。

atiger

请问楼主想实现啥样子的需求呢？具体说说吧，因为BizURL是“Biz:\” +空间ID+对象ID+对象的扩展名。也就是说bizURL中除了对象ID基本上就是空间的ID了，空间还有可能嵌套。

mengqf

搞定，结贴。

zfang

请楼主分享下吧。

mengqf

var
  I: Integer;
  lBizNode: TBizNode;
  lfilename: string;
  lBizNodes: TStringList;
  aa: TBizObjectKinds;
begin
  lfilename:= TFunc(FuncBroker.Func).BizClassURL.BizURL.FileName;
  lBizNode := BizTree.BizTreeStructure.FindNodeByFullFileName(lFileName);
  Edit1.Text:= lBizNode.OwnerTree.GetRootNode(lBizNode).GUID;
  lBizNodes:= TStringList.Create;
  BizTree.BizTreeStructure.GetChildren(Edit1.Text, lBizNodes, false);
   for I := 0 to lBizNodes.Count - 1 do
  begin
    lBizNode := lBizNodes.Objects[I] as TBizNode;
    ListBox1.Items.Add(lBizNode.FullFileName);
    if stringutils.Pos(lBizNode.FullFileName,lfilename)>0 then
    Panel1.Caption:= lBizNode.FullFileName;
  end;
end;