【结贴】message启动任务报错**

rzport_lq0

从message中启动任务报错（是新版本的message）
错误信息如下：

lixy

测试，没报错。

lixy

TGetClientAccount = class(TBusinessRuntimeServerMethod)  

  { TGetMainFormShowing }
  TGetMainFormShowing = class(TBusinessRuntimeServerMethod)
    function GetName: string; override;
    function Invoke(var Params: array of object): object; override;
  end;

{ TGetMainFormShowing }
function TGetMainFormShowing.GetName: string;
begin
  Result := 'GetMainFormShowing';
end;

function TGetMainFormShowing.Invoke(var Params: array of object): object;
begin
  Result := (TInit.InitInstance.MainForm  <> nil) and (TInit.InitInstance.MainForm.Showing);
end;



  TInit = class(TFunc)
  private

    FGetClientAccount: TGetClientAccount;

  FGetClientAccount := TGetClientAccount.Create;
  FGetMainFormShowing := TGetMainFormShowing.Create;


  BizRtSrvr.BusinessRuntimeServer.RegisterMethod(FGetMainFormShowing);

  StartServer;

  StopServer;

  BizRtSrvr.BusinessRuntimeServer.UnregisterMethod(FGetMainFormShowing);

    FGetMainFormShowing: TGetMainFormShowing;
在系统初始化功能里面多加一个给外部公布的函数  Result := 'GetMainFormShowing';

rzport_lq0

收到！谢谢了
结贴

icewood

没看懂,特别是最后一句,请高人指示

icewood

没看懂,特别是最后一句,请高人指示

icewood

没看懂,特别是最后一句,请高人指示

icewood

没看懂,特别是最后一句,请高人指示

zfang

楼主，你也碰到类似的问题吗？

另外，最好自己发一个新帖，不要在已经结贴的帖子后顶贴。

icewood

哦