报错“"" is not a valid boolean value”**

hero419

我使用了如下的代码进入邮件功能
procedure TWDYJ.Label1Click(Sender: TObject);
begin
    SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\COLLABORATION\JUSTEPMAIL.FUNC', '', nil, False);
end;

有时候会报错“'' is not a valid boolean value”，是不是我哪个参数加错了？
请帮忙看看，谢谢。
.                                                                                                                                                                                            .

jiahaiminghr

最好是跟踪调试一下，看不出问题在哪里。

hero419

procedure RunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean); overload;
参数说明：
AContext：创建功能实例的环境
AFuncURL：要运行的功能URL
AParams：创建功能实例时，传递的参数，获取参数的方法是
        FuncBroker.Func.Parameters
AUniqueID：创建功能时的唯一标识，首先在环境下按照UniqueID寻找这个功能是否已经创建，如果已经存在就激活功能页，如果不存在就创建一个功能实例。如果UniqueID为空，则UniqueID的取值规则为：
       AFuncURL + '||' + AParams + '||' + ADeptID + '||' + APositionID + '||' + APersonID;
Modal：决定是否窗体是ShowModal，也就是弹出来运行，即另外开一个窗口运行，而不是在tabpage页运行！
UseUI：暂时没有使用
BeforeRunFunc：是在功能运行之前，触发的事件 ，在功能运行时做的事情时候用 。格式为：
         BeforeRunFunc(Sender：TObject, AFunc：TFunc);

其中有几个参数是布尔型的，我可能用''代替了，会不会是这个原因？
报错也奇怪，重启服务后第一次使用那个label打开会出这个错，以后就不会了，所以也不太好跟踪，麻烦看看吧。

jiahaiminghr

楼主，你把boolean型用字符串替代后，可以编译通过吗？

hero419

随便用'q'代替了下是可以编译通过的，但是如果用False代替就不可以了，请问这不是个boolean参数嘛，为啥不能用False代替呢，最后一个参数也是boolean的，为啥就可以呢？谢谢。

    SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\COLLABORATION\JUSTEPMAIL.FUNC', 'q', nil, False);

.                                                                                                                                                                                         .

shangxy

UseUI: Boolean
这个参数没有使用，你修改的应该是BeforeRunFunc: TFuncNotifyEvent这个参数，不能使用False

jiahaiminghr

这个函数重载了，对比一下参数，看你用的是哪个！
{ 运行功能 }
    function RunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean): TFunc; overload;
    procedure RunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean); overload;
    //function RunFunc(const AFuncURL, ADeptID, APositionID, APersonID, AParams: string): TFunc; overload;

    { 根据指定的UniqueID，将指定的功能实例运行起来 }
    procedure RunFunc(AFunc: TFunc; const AParams, AUniqueID: string); overload;
    procedure RunFunc(AFunc: TFunc; const AParams: string; AUniqueIDs: TStrings); overload;

hero419

我的RunFunc使用了6个参数，我想应该是：
function RunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean): TFunc; overload;

这个和报错内容“'' is not a valid boolean value”有没有关系啊？

.                                                                                                                                                                                         .

jiahaiminghr

最初由 jiahaiminghr 发布
[B]最好是跟踪调试一下，看不出问题在哪里。 [/B]

hero419

对了function RunFunc和procedure RunFunc在用到SystemCore.TSystemCore.FuncManager.RunFunc调用时，系统如何得知我到底是用的哪一个呢？
这两个函数里的参数有些区别，估计就是这个问题呢。
.                                                                                                                                                                                           .
.                                                                                                                                                                                           .