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

cfcjlu123 · 发表于 2010-5-26 17:08:00

出现这个

cfcjlu123 · 发表于 2010-5-26 17:11:14

procedure TInit.SetParamValue(AValue: String);
var
  lParam: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(Context);
  try
lBizURL.URL := 'Biz:SYSTEMSYSPARAMS.PARAMGROUPMKFL.Param';
lParam := lContextCurrent.GetParam(lBizURL);
lParam.Value :=  AValue;
  finally
lBizURL.Free;
lContextCurrent.Free;
  end;

procedure TINIT.DoRun;
var
  I: Integer;
  lContext: TContext;
  lOperator: TOperator;
  lClassURL: TBizClassURL;
  lServiceFuncs: TStrings;
  Param : String;
begin
  Param := 'Biz:COLLABORATION';
  TInit.SetParamValue(Param);
  TSystemCore.BeginWaiting;

光标中自动切换到

cfcjlu123 · 发表于 2010-5-26 17:16:00

不行就把您的两部分代码给我贴一下吧，我看看怎么弄的系统初始化代码，和组件库代码。

shangxy · 发表于 2010-5-26 17:21:32

重新编译一下，如果不行把studio关掉重新打开一次。

cfcjlu123 · 发表于 2010-5-27 09:23:23

组件库中代码未定义，该如何解决，具体怎么写，请帮忙写端代码吧，本人Delphi不强。

zfang · 发表于 2010-5-27 09:32:29

GetParamValue这个函数是否缺少资源集的引用，上面图中提示说此方法没有声明。
另，上图中的问题你最好找一下你同事问一下。

cfcjlu123 · 发表于 2010-5-27 09:38:32

GetParamValue 这个方法是平台内置的方法只需要声明一下就可以，还是需要自己手动写一个，如果需要声明，该如何声明，手动写的话请给段代码吧。

zfang · 发表于 2010-5-27 09:51:40

GetParamValue 是你参考上面连接中写的吧？
不是平台中的方法。

cfcjlu123 · 发表于 2010-5-27 09:54:22

那这个方法要怎么写？

zfang · 发表于 2010-5-27 10:02:46

如果自己要写一个方法就要这样：
1、声明方法（private或者public 后）：
procedure SetParamValue(AValue: String);

2、实现方法（implementation 后）
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;

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