【结贴】取URL中ID的函数**

dupit

Biz:\QYZYGL\BZGFGLZS\BOMGL\BOMMLWHGN.FUNC
有没从上面URL中取ID为BOMMLWHGN.FUNC的函数

lixy

TBizURL.id

dupit

procedure TXMQDBOMXXDOC.GetUrlName_ID(BziURL:String;Out Name,ID :String);
var
  lBizURL : TBizURL ;
  lOrgUnit: TOrgUnit;
begin
  lBizURL := TBizURL.Create;
  try
    lBizURL.URL := BziURL;
    lOrgUnit := OrgSys.OrgSystem.GetUnit(lBizURL);
    ID := lOrgUnit.ID;
    Name := lOrgUnit.DisplayName;
  finally
    lBizURL.Free;
  end;
end;

运行到lOrgUnit := OrgSys.OrgSystem.GetUnit(lBizURL);
会提示转换文件名失败

zfang

不清楚楼主到底要干嘛！
既然url都得到了，那么id不就很好取了吗？
没有现成的函数
1、用 copy+pos函数来获取
2、利用平台的TBizURL
    lBizUrl := TBizURL.Create;
    lBizUrl.URL := '功能的url';
    Dialogs.ShowMessage(lBizUrl.ID);
    lBizUrl.Free;

3、利用平台的TFUNC.Id
    lFunc := TFunc.Create(Context);
    lFunc.MainFormName := '';
    TFunc(lFunc).BizClassURL.BizURL.URL :=  '功能的url';
    Dialogs.ShowMessage(lFunc.ID);
    lFunc.Free;

dupit

ok 结贴