起步软件技术论坛-X3

 找回密码
 立即注册
搜索
12
返回列表 发新帖
楼主: vagrant

【结贴】获取URL**

[复制链接]
发表于 2009-6-4 12:15:47 | 显示全部楼层
那还有问题吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-6-4 13:07:06 | 显示全部楼层
在procedure TMAINFORM.Button2Click(Sender: TObject);
var
  lTemp : TStrings;
  lpos, lcon, lper, lOrgExpr : String;
  i : Integer;
begin
  MemoResult.Clear;
  lpos := '''BM1''';
  lcon := '''GW1''';
  lper := '''RY1''';
  lOrgExpr := 'orgkey('+lpos+','+lcon+','+lper+')';
  lTemp := TStringList.Create;
  try
    OrgSys.OrgSystem.GetBizURLsByOrgExpr(lOrgExpr, lTemp);
    MemoResult.Clear;
    MemoResult.Lines.AddStrings(lTemp);
  finally
    lTemp.Free;
  end;
end;
这个例子中我要把获取到的URL直接赋值给莫一字段应该怎么做?
回复 支持 反对

使用道具 举报

发表于 2009-6-4 13:14:01 | 显示全部楼层
楼主,可以通过下面的方式来获取也一样
var  
  lOrgUnit : TOrgUnit;
begin
  lOrgUnit := OrgSys.OrgSystem.FindUnit(lpos,lcon,lper);
    MemoResult.Lines.Add(lOrgUnit.BizURL.URL);      
end;

给字段赋值不就是这样子:
dataset.fieldbyname('zd').asstring := lOrgUnit.BizURL.URL
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-6-4 14:43:16 | 显示全部楼层
搞定,谢谢,结贴
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-20 10:43 , Processed in 0.044557 second(s), 13 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表