【结贴】用 ocx直接运行一个功能**

jiahaiming

25楼的应该是bug，楼主杀掉进程吧。

不要用run2了。

huixiangtao

我现在已经不用run2了，我用
X3X.Run("", "TXK", "", "");
我只做了这么点修改，都出这个错误。

shangxy

你去掉第2个参数使用ie就不报错了么？
传完整的空间url，类似：Biz:\OPERATION\这样。

huixiangtao

我刚刚试了试，用系统自带的business.jsp也出这样的错误。
http://127.0.0.1:8081/x3/business.jsp 运行两次后就出这个错误了，
“传完整的空间url，类似：Biz:\OPERATION\这样。” 是什么意思？

huixiangtao

29楼里面说，定义一个全局参数，x3不支持全局变量，是吧？
全局参数是怎么个定义法？，是不是定义一个业务参数呢？

shangxy

25楼的错误可能是楼主在代码中创建了什么对象没有释放可能就会有这个错误了。
就是第2个参数传一个完整的空间url而不是 空间Id ,比如X3X.RUN("","Biz:\OPERATION","","");

对，定义一个隔离级是全局的业务参数。这个参数所在参数组的隔离级是全局

huixiangtao

哦，25楼的问题，我再想想，现在我继续照着29楼的方法继续~

huixiangtao

我用下面方法设置我的业务参数的值为下面的AValue的值。
procedure TINIT.SetParamValue(AValue, URL: String);
var
  lParam: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(Context);
  try
    lBizURL.URL := URL;
    lParam := lContextCurrent.GetParam(lBizURL);
    lParam.Value := AValue;
  finally
    lBizURL.Free;
  end;
end;
但是我不知道怎么取这个业务参数的值，我想采用类似的方法，我这么写的：
function TOperatorFuncNavBar.GetParamValue(URL: String):string;
var
  lParam: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(nil);//.Create(Context);
  try
    lBizURL.URL := URL;
    lParam := lContextCurrent.GetParam(lBizURL);
    result:=lParam.Value;
  finally
    lBizURL.Free;
  end;
end;
结果编译的时候，1.TContextCurrent.Create(Context)，报错，
2. lparam.value是object类型，不能隐式转换为string类型。
我不知道该如何取这个参数的值。

shangxy

类似这样，你用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;

shangxy

取的时候类似这样转换一下：
result :=Variants.VarToStr(lParam.Value);