【结】系统邮件报错!**

huangyue

(如图)调用系统邮件的时候报错!版本2918

jiahaiminghr

楼主是如何操作的？

建议你调试运行一下。

huangyue

最初由 jiahaiminghr 发布
[B]楼主是如何操作的？

建议你调试运行一下。 [/B]

调试运行报错

huangyue

最初由 jiahaiminghr 发布
[B]楼主是如何操作的？

建议你调试运行一下。 [/B]

错误指定到了这里

atiger

调用系统邮件？你是怎么调用的，在哪里调用？调用的代码是怎么写？

huangyue

最初由 atiger 发布
[B]调用系统邮件？你是怎么调用的，在哪里调用？调用的代码是怎么写？ [/B]

我直接在功能树那里配置进来的.然后就用了.也是相同的错误!


后面我新建一个功能引入它相关的对象也是相同的错误!

代码:procedure DoRun; override;
  procedure DoTerminate; override;

  procedure ParserRunParams(out ViewMode, FilterType, FilterDesc, LocateID: string);

  end;

implementation

procedure TYJ.ParserRunParams(out ViewMode, FilterType, FilterDesc, LocateID: string);
var
  lParser: TCommandLineParser;
  lOption: TCommandLineOptionDefine;
begin
  lParser := TCommandLineParser.Create(nil);
  try
    lOption := lParser.OptionDefines.Add;
    lOption.Name := '-v';
    lOption.HasValue := True;
    lOption.DisplayName := 'ÏÔʾģʽ';

    lOption := lParser.OptionDefines.Add;
    lOption.Name := '-f';
    lOption.HasValue := True;
    lOption.DisplayName := '¹ýÂËÑ¡Ïî';

    lOption := lParser.OptionDefines.Add;
    lOption.Name := '-d';
    lOption.HasValue := True;
    lOption.DisplayName := '¹ýÂËÑ¡ÏîÃèÊöÐÅÏ¢';

    lOption := lParser.OptionDefines.Add;
    lOption.Name := '-l';
    lOption.HasValue := True;
    lOption.DisplayName := '¶¨Î»¼Ç¼';

    lParser.Parse( self.Parameters);

    ViewMode := lParser.GetOption('-v').Value.Value;
    FilterType := lParser.GetOption('-f').Value.Value;
    FilterDesc := lParser.GetOption('-d').Value.Value;
    LocateID := lParser.GetOption('-l').Value.Value;
  finally
    lParser.Free;
  end;
end;


procedure TYJ.DoRun;
var
  lViewMode: string;
  lFilterType: string;
  lFilterDesc: string;
  lLocateID: string;
begin
  inherited;

  ParserRunParams(lViewMode, lFilterType, lFilterDesc, lLocateID);   //È¡¹¦ÄܲÎÊý

  MainForm := MailLibrary.TMailCenterForm.Create(Context);

  MailLibrary.TMailCenterForm(MainForm).Filter :=lFilterType;
end;

procedure TYJ.DoTerminate;
begin
  MainForm.Free;
  inherited;
end;

atiger

你修改过邮件系统这部分内容吗？包括 JustMail.bpl 文件

huangyue

最初由 atiger 发布
[B]你修改过邮件系统这部分内容吗？包括 JustMail.bpl 文件 [/B]

没有!就单单引用邮件这个功能而已!其他的都没修改过

atiger

请问
1、JustMail.bpl 这个文件最后修改时间是哪天？
2、新创建一个数据库，然后运行看看

huangyue

最初由 atiger 发布
[B]请问
1、JustMail.bpl 这个文件最后修改时间是哪天？
2、新创建一个数据库，然后运行看看 [/B]

1, 这个文件没人弄过
2. 新创建一个数据库??是建自己的?还是在协同空间下建???(原有的数据库我已经重新创建过物理结构,也不行)