[问题]帮忙看下**

zykj_flame

procedure TWWLCCSCT.Button1Click(Sender: TObject);
var
   lfunc:Tfunc;
   lcontextcurrent:Tcontextcurrent;
begin

     lcontextcurrent:=Tcontextcurrent.Create(self.context);
     try
     lcontextcurrent.getfunc(Biz:\DMISXT\YDZDHZXYD.Func);
     lfunc.run('');
     lfunc.mainform.showmodal;

     finally
           lcontextcurrent.free;
     end;

end;

错哪了？指点下。

zykj_flame

顶下，来人解决下的。

atiger

请问楼主在做啥，遇到啥问题？
如果报错，那么把原始的错误信息贴出来，并把标明错误的代码

zykj_flame

想要运行指定的BIZURL的功能
按照用户手册7.11.1的代码
为什么不可以，
错误如图！

atiger

呵呵
1、lcontextcurrent.getfunc 后面的参数是 AFuncURL:TBizURL 不是直接把功能的BizURL放进去
2、lfunc 都没有值，run啥呢？
看手册，这点非常好，但由于大都数是告知如何去实现，许多代码需要自己来做的

var
  lfunc:Tfunc;
  lcontextcurrent:Tcontextcurrent;
  lBizURL: TBizURL;
begin
  lBizURL := TBizURL.Create;
  lcontextcurrent:=Tcontextcurrent.Create(self.context);
  try
    lBizURL.URL := 'Biz:\DMISXT\YDZDHZXYD.Func;
    lfunc :=lcontextcurrent.getfunc(AFuncURL:TBizURL(lBizURL);
    lfunc.run('');
    lfunc.mainform.showmodal;
  finally
    lcontextcurrent.free;
    lBizURL.free
  end;
end;

atiger

另外，lcontextcurrent.getfunc(Biz:\DMISXT\YDZDHZXYD.Func); 你这样写，应该编译都不过吧

顺便再多说一句，遇到问题，应该先尝试用关键字在bbs搜索一下，看看是否有参考的代码，象你这样的问题，可以先以“getfunc”搜索，说不定就能找到问题的答案了。

如果没有找到答案，那么请直接告知哪里出问题，减少来回确认信息，缩短解决问题的时间，好吗？
如果编译错误，那么把编译错误的原始信息和错误的代码贴出来，
如果运行错误，那么把原始错误和执行的相关代码贴出来，并告知执行哪句有错

呵呵，好像说了比较多，我的目的只有一个就是提高你我的工作效率，

lisb

楼主，这个还有问题吗？

lisb

由于长时间没有回复，先结贴了，有问题请开新帖。