【结】如何获取人员的显示名称？**

巧克力味

知道人员的Org:\ROOT\GXYT.OGN\CWB.DPT\XSY.PTM\ZS.psm这个，怎么代码获取该人员的显示名称！

shangxy

NameSpace: Business.Model.Org    ClassDelcare: Business.Model.Org.TOrgSystem
--------------------------------------------------------------------------------
function FindUnit(AURL: Business.Model.TBizURL): TOrgUnit; overload;

然后调用Torgunit.DisplayName

巧克力味

可以写清楚点吗

巧克力味

代码我是这样写的：
var
   ClassDelcare: Business.Model.Org.TOrgSystem;
   aa: TOrgUnit;
begin
     aa := ClassDelcare.FindUnit('Org:\ROOT\GXYT.OGN\CWB.DPT\XSY.PTM\ZS.psm');
     Dialogs.ShowMessage(aa.DisplayName);

但报错：
[错误]Biz:\OABGZDHXT\CSWJ\ZZJGE.FUNC.DIR\MainForm.Form.pas(320, 25): 没有匹配的方法

shangxy

var
  lOrgUnit :TOrgUnit;
  lBizUrl :TBizURl;
begin
  lBizUrl :=TBizUrl.Create;
  try

  lBizUrl.URL :='Org:\ROOT\JUSTEP.OGN\JS02.DPT\JS0201.DPT\BWKKFZ.DPT\JS0205.PTM\1111.psm';
  lOrgUnit :=org.OrgSys.OrgSystem.GetUnit(lBizURL);
  Dialogs.ShowMessage(lOrgUnit.DisPlayName);
  finally
  lBizUrl.Free;
  end;
  end;

巧克力味

搞定，谢谢了！