通过组织对象的URL获得其GUID的方法

john

可以利用组织单元的BizUrl通过GetSpecInfo函数获得组织单元的GUID。

函数声明：function GetSpecInfo(FileName: string): TFileSpecInfo;
命名空间：Business.System.FileSys
所属对象（类）：FileSystem
函数作用：利用组织单元的BizUrl通过GetSpecInfo函数获得组织单元的GUID
参数说明：
FileName：组织单元的BizURL的文件名称。

参考示例：
procedure TCustomOrgDsgnForm.tbOKClick(Sender: TObject);
var
  lFileSpecInfo: TFileSpecInfo;
begin
  lFileSpecInfo := FileSys.FileSystem.GetSpecInfo(OrgTreeView1.SelectedNode.BizURL.Url);
  Dialogs.ShowMessage('Url：'+OrgTreeView1.SelectedNode.BizURL.Url+'的GUID：'+lFileSpecInfo.GUID);
end;

atiger

获取组织单元的ID方法
var
  lURL: TBizURL;
  lNode: TBizNode;
begin
  lURL := TBizURL.Create;
  try
    lURL.URL := 'Org:\ROOT\JG1.OGN\BM1.DPT\GW1.PTM\RY1.psm';
    lNode := OrgComboBox1.BizTreeView.BizTree.FindNodeByBizURL(lURL);
    caption := '人员ID为： ' + StrUtils.leftStr(lNode.ID,sysutils.StrLen(lNode.ID)-4);
  finally
    lURL.Free;
  end;
end;