【结贴】同时可以打开两个邮件,而且关闭也会报错,**

巧克力味

确定修改后编译迁入刷新缓存了,
但是真的还七楼那样的效果!

巧克力味

1

巧克力味

2

巧克力味

3

zfang

12楼中的代码中再增加一句再试试。
   TSystemCore.FuncManager.ActivateFunc(TSystemCore.FuncManager.RunningFuncs[I]);//增加
      lFuncIsRunning := True;

巧克力味

加了,还是没有反应!

zfang

业务模型\协同系统\个人事务\邮件服务
Invoke事件中的代码贴出来看一下。

巧克力味

unit MAILSERVICEFUNC;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data, SYSTEMUTILS,
  SystemCore, JUSTEPMAIL;

type
  TMAILSERVICEFUNC = class(TFunc)
  private
    FRunMailMethod: TRunMailMethod;
  protected
    procedure DoRun; override;
    procedure DoTerminate; override;
  end;

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

implementation

procedure TMAILSERVICEFUNC.DoRun;
begin
  inherited;
  FRunMailMethod := TRunMailMethod.Create;
  BizRtSrvr.BusinessRuntimeServer.RegisterMethod(FRunMailMethod);
end;

procedure TMAILSERVICEFUNC.DoTerminate;
begin
  BizRtSrvr.BusinessRuntimeServer.UnregisterMethod(FRunMailMethod);
  FRunMailMethod.Free;
  inherited;
end;

{ TRunMailMethod }

function TRunMailMethod.GetName: string;
begin
  Result := 'OpenMail';
end;

function TRunMailMethod.Invoke(var Params: array of object): object;
var
  I: Integer;
  S, lMailGUID: string;
  lFunc: TFunc;
  lFuncIsRunning: Boolean;
begin
  lMailGUID := Params[0] as System.String;
  S := 'Biz:\COLLABORATION\JustepMail.Func';
  for I := 0 to TSystemCore.FuncManager.RunningFuncCount - 1 do
    if SysUtils.UpperCase(TSystemCore.FuncManager.RunningFuncs[I].BizClassURL.BizURL.URL) = SysUtils.UpperCase(S) then
    begin
      lFuncIsRunning := True;
      break;
    end
    else
      lFuncIsRunning := False;
  if lFuncIsRunning then//.RunningFuncs[I].BizClassURL.BizURL.URL = 'Biz:\COLLABORATION\JustepMail.Func' then
       TJUSTEPMAIL(TSystemCore.FuncManager.RunningFuncs[I]).OpenMsgMail(lMailGUID)
    else
      TSystemCore.FuncManager.RunFunc(TSystemCore.Operator.Context,
        'Biz:\COLLABORATION\JustepMail.Func',
        'Biz:\COLLABORATION\JustepMail.Func',
        '-f收件箱' + ' ' + '-l' + lMailGUID,
        nil, False);
end;


end.

lixy

功能应该激活了吧，只是查看邮件弹出的窗体没在最上面吧？
设置那个邮件窗体，让他始终在最上面就行了。窗体样式=fsStayOnTop

zfang

TSystemCore.FuncManager.RunFunc(TSystemCore.Operator.Context,
        '',  //这里改成空看看。
        'Biz:\COLLABORATION\JustepMail.Func',
        '-f收件箱' + ' ' + '-l' + lMailGUID,
        nil, False);