如何在delphi中调用Business的功能？**

wqh · 发表于 2007-10-7 09:34:01

要求如题。需要在外部调用Business系统中的某个功能。

我看了一些帖子，还是不特别清楚。是否步骤如下？

  1、在Delphi中导入 x3x.ocx (不是businessX.ocx)
2.、在Delphi中调用

procedure TForm1.Button1Click(Sender: TObject);
var
  bu: TBusiness;
begin
  bu := TBusiness.Create(Self);
  bu.Parent := Panel1;
  bu.ServerURL := 'http://www.tom.com:8081/';
  bu.UpdateVersion;
  bu.Init;
  bu.Logon('YG', '' ;  //用户名，密码
  //功能BizUrl，参数，部门ID，岗位ID
  bu.Run('Biz:\SYSTEM\TasksFunc.Func', '', '010203', 'XSY');

end;

但在导入x3x.ocx 的时候出错。错误和 http://bbs.justep.com/forum.php? ... p;highlight=x3x.ocx  类似。
能够介绍一下完整的过程如何做。

jiahaiminghr · 发表于 2007-10-8 09:27:57

请贴图描述一下你遇到的错误。

lixy · 发表于 2007-10-8 12:02:09

参看
Business.jsp调用方式
用ole方式调用吧
createobject

yancm · 发表于 2007-10-11 16:32:19

楼主，问题解决了吗？

atiger · 发表于 2007-10-19 15:30:26

atiger · 发表于 2007-11-16 09:23:28

结，有问题，请重新开帖

		自动登录	找回密码
密码			立即注册