【搞定】Email问题**

liubin

我和高工,不在一个办公室
我在叙述下这问题,您的意思是叫我ShowMessag出来,好知道错误的原因 对吧?
但,点击新邮件时，先出107的错误好像是引用到错误的内存地址了，您给个方案吧

SMP

建议从头确认吧!先把我们发给你的，你认为能用的版本编译一下，增加个ShowMessage以证明使用的是你编译的版本，看能不能跑，然后把你的代码加上去编译，看能不能跑!我总觉得你后来换上去的出错的代码中有一部分还是旧的!

另外要注意的就是你自己加的代码自己一个字母一个字母的手写，不要拷贝粘贴!

liubin

您有QQ吗？帖子反映太慢，我有些事要和您确认

liubin

不要再看99楼的代码，这是最新的
procedure TMailEditorForm.actNewAttachmentExecute(Sender: TObject);
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;
end;

liubin

按您的意思是，在我加的所有代码之前加个ShowMessage，我在lStream := TFileStream.Create(lOpenDialog.FileName, SysUtils.fmOpenRead);之前加个ShowMessage依然出现107楼错误

liubin

恩，把我的代码全部注释还是出现107错误，是我把哪改乱了？我说下我的步骤
1。先把MailEditor.pas 和 MailEditor.dfm的只读打开
2。修改代码如134楼
3。保存时出现如下一系列提示，我都按NO
4。运行JustMail.dpk，编译，生成

国超软件

这个问题已经136楼了，我分析原因可能是：版本不匹配或者是给我们的源文件本身就有问题。
所以我觉得比较好的方法是：斑竹现在你们那边把提供给我们的方法自己亲自动手做一遍，确认这个方法是可行的，我们再照做，可能你们做的时候也会遇到我们现在的问题，这样你们就可以在跟踪了，否则这样下去估计还要搞很久

atiger

不是 国超软件 说的那样（不是文件给错了）

原因是因为控件没有注册，用delphi打开的时候，你们把有些控件删除了，造成107楼的错误，楼主可以用记事本打开需要修改的pas文件，然后修改，保存后，再用 delphi 把 JustMail.dpk 打开，然后编译，最后把生成的bpl文件替换到版本中就可以了。

附件是我修改后的 MailEditor.pas 文件和编译后的 JustMail.bpl ，

liubin

:wow:，高实在是高:clapping:怎么聪明的方法我怎么没想出来呢，我先测试下

liubin

我用TXT修改完,编译,生成后 复制到X3 Developer下,启动BUSINESS后 ,这次点新邮件没问题了,但点添加附件按钮选则附件后都出现如下图问题,有时选附件后直接退出连BUSINESS都退出了