【结贴】[请求]模块分离求助

zfang · 发表于 2010-5-26 10:58:04

恩。是的。

cfcjlu123 · 发表于 2010-5-26 11:09:46

这个值是传到了系统初始化中的
procedure TINIT.DoRun;
var
  I: Integer;
  lContext: TContext;
  lOperator: TOperator;
  lClassURL: TBizClassURL;
  lServiceFuncs: TStrings;
begin
  TSystemCore.BeginWaiting;
  try
inherited DoRun;

//运行服务功能
lServiceFuncs := TStringList.Create;

哪个参数接受那个值的呢？

cfcjlu123 · 发表于 2010-5-26 11:34:08

代码处理那地方没看太明白。值得是怎么个处理过程，是系统初始化里面接受了值，经过了什么处理，然后又和组件库什么关系？语法不用解释。

cfcjlu123 · 发表于 2010-5-26 12:17:52

就是浏览器访问平台的处理过程。比如Business.jsp加载，并调用x3x.ocx内的方法来传递参数，后面会如何调用平台内的哪一部分代码，进行什么操作，传递什么值，跟平台页面的元素怎么关联的。

cfcjlu123 · 发表于 2010-5-26 12:50:33

最好把环节具体的点点出来一下，值传到平台就没有头绪了，不知道怎么处理的。

shangxy · 发表于 2010-5-26 13:40:49

2.在系统初始化功能DoRun中去掉Business.jsp中传进来的参数，类似这样 Param := Parameters;

Parameters就是你传进来的值，然后你把这个值赋给一个全局的参数，

然后根据连接中的第4条把功能的url和这个参数比较一下，如果bizurl包含这个参数就在业务功能树上加载。

zfang · 发表于 2010-5-26 13:42:02

http://bbs.justep.com/forum.php?mod=viewthread&tid=28468
这个帖子中从29楼开始，一直至38、39，最好是照着做一下看效果比较好。

cfcjlu123 · 发表于 2010-5-26 14:09:31

38和39的那代码写到平台系统初始化里面随便的位置？然后用init.dorun方法在什么位置调用？

zfang · 发表于 2010-5-26 14:13:28

上面连接中的29楼中第二条：
2.在系统初始化功能DoRun中去掉Business.jsp中传进来的参数，类似这样 Param := Parameters;

No.39
类似这样，你用AValue赋值就可以了，然后在dorun的后面调用一下这个方法，把从business.jsp中获取的值作为参数传递给这个方法
procedure TInit.SetParamValue(AValue: String);
var
  lParam: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(Context);
  try
lBizURL.URL := 'Biz:\SYSTEM\SYSPARAMS.PARAMGROUP\KJURL.Param';
lParam := lContextCurrent.GetParam(lBizURL);
lParam.Value := AValue;
  finally
lBizURL.Free;
  end;
end;

cfcjlu123 · 发表于 2010-5-26 14:16:09

就这句话没看明白！

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