【搞定】Email问题**

atiger

86楼忽略
87楼，请参考79楼

atiger

88楼说这个文件只读了

liubin

由于我从来没用过D6 ，下一步该干什么呢？

atiger

哦，原来这样，如果没有用过delphi，这事情你做是有点麻烦，你问一下高工吧，他精通的。

liubin

高工，长期在客户现场，技术的问题请都和我说吧，还请您细心指教

aDragon

我跟高工沟通过了，86楼忽略，不用管他，
87楼，请参考79楼做，
接着就算编译你的东东，对于delphi的东东，你先问一下他，如果不明白我们再沟通

liubin

编译完在C:\Program Files\Borland\Delphi6\Projects\Bpl下产生3个文件
1 JustMail.~bpl
2 JustMail.bpl
3 JustMail.dcp   
把哪个文件复制到平台下？

国超软件

bpl！38楼不是早说过了

liubin

我在24楼的按钮里修改如下:请问是否又错
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(OpenDialog.FileName, SysUtils.fmOpenRead);
      if (lStream.Size) > 5368709120 then
      begin
        jsDialogs.ShowMsg('附件大小不能超过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

编译后会出现如下错误，是不是我TFileStream没有加入命名空间，如果是请指出是哪个空间，如果不是，请指教是什么原因