【搞定】Email问题**

atiger

你把代码一点一点开放,看看是再执行哪句报出来的,  或者加一些Show,  这样应该比较容易对问题定位的

liubin

代码只能在打包后,复制到平台才有效果,我这在D6里MailEditor.pas都不能单步执行,只能JustMail.dpk里的编译,怎么看?

liubin

HELLO:jawdrop:

atiger

呵呵，对，
你在delphi中，一句后面加上一个Showmessage出来，然后打包，然后引入进来用，这样就可以看到了

liubin

感谢,曹工一直以来不厌其烦的回答,我自己先看看,有什么问题以后还要请教您
先祝您新年快乐:clap:

liubin

我在的MailEditor.pas窗体的OnCreate和OnShow的事件里加个Showmessage,跟本没有显示,还是直接出107楼的错误

atiger

楼主，不要在的MailEditor.pas窗体的OnCreate和OnShow的事件里加个Showmessage,而是在你增加的代码上增加Show出来，

liubin

var
  I: Integer;
  lOpenDialog: TMailOpenDialog;
  lStream: TFileStream;
begin
  lOpenDialog := TMailOpenDialog.Create(Self);
  try
    lOpenDialog.Filter := '所有文件(*.*)|*.*';
    lOpenDialog.Options := lOpenDialog.Options + [ofAllowMultiSelect, ofFileMustExist];
    if lOpenDialog.Execute then
    begin
      lStream := TFileStream.Create(lOpenDialog.FileName, SysUtils.fmOpenRead);
      if (lStream.Size) > 5368709120 then
      begin
        ShowMessage('附件大小不能超过5M');
        exit;
      end;
      for I := 0 to lOpenDialog.Files.Count - 1 do
        msgMail.AddAttachment(lOpenDialog.Files[I]);
      SetModified;
      RefreshAttachs;
    end;
    BringWindowToTop(Handle);

    // todo 以下两个过程，解决98下不能刷新的问题。
    if Assigned(FTextEdit) then
      FTextEdit.Refresh;
    if Assigned(FDHTMLEdit) then
      FDHTMLEdit.Refresh;
  finally
    lStream.Free;
    lOpenDialog.Free;
  end;
其中我代码里有ShowMessage('附件大小不能超过5M');
这句啊,还是出107的错误

liubin

掉到第2页了

atiger

我已经跟高工说了，你问一下他吧。