【结贴】邮件附件大小的控制**

rzport_lq0

我按照这个连接7楼的内容对邮件大小进行了控制，如果加入的附件大于10M就exit，现在打开邮件功能插入的一个附件，其容量大于10M，提示插入失败，接着插入一个4M的 邮件，此时2个文件就会同时添加，请问该如何处理？

http://bbs.justep.com/forum.php? ... hlight=%B4%F3%D0%A1

rzport_lq0

??

lixy

你怎么判断的，代码贴上

rzport_lq0

if lOpenDialog.Execute then
    begin
      for I := 0 to lOpenDialog.Files.Count - 1 do
      begin
        msgMail.AddAttachment(lOpenDialog.Files[I]);
    lStream := TFileStream.Create(lOpenDialog.Files[I], SysUtils.fmOpenRead);
    try
       v_size:=(lStream.Size div 1024 div 1024);
       if v_size >10 then
       begin
         jsDialogs.ShowMsg('附件大小不能超过10M！！)', '提示');  
         exit;                                                   
      end
      else
      begin
        v_sizes:=v_size+v_sizes;
        if v_sizes>10 then
        begin
           jsDialogs.ShowMsg('附件大小不能超过10M！！)', '提示');
           v_sizes:=v_sizes-v_size;
           exit;
        end;
      end;

v_sizes 在ONSHOW里面赋值的

lixy

msgMail.AddAttachment(lOpenDialog.Files[I]);
放上面？逻辑不对。

rzport_lq0

这样怎么也不对？
       v_size:=(lStream.Size div 1024 div 1024);
       v_sizes:=v_size+v_sizes;
       if v_size >10 then
        begin
          jsDialogs.ShowMsg('附件大小不能超过10M！！)', '提示');  
          v_sizes:=v_sizes-v_size;
          exit;                                                
        end
      else
        if v_sizes>10 then
        begin
           jsDialogs.ShowMsg('附件大小不能超过10M！！)', '提示');
           v_sizes:=v_sizes-v_size;
           exit;
        end
      else
        msgMail.AddAttachment(lOpenDialog.Files[I]);

lixy

这个是程序的算法问题，跟平台没关系。楼主自己用断点去跟踪去，调试自己的程序逻辑

rzport_lq0

运行到上面的最后一句时提示

运行系统初始化的时候发生异常：Cannot open file I:\123\BusinessFAQDemo.rar

lixy

你这个逻辑怎么这么乱？
还判断2次>10m
不明白。
上面那个提示是文件不能打开，被占用或者其他情况

zfang

楼主，你想实现什么？
是想控制单个附件大于10M还是想控制添加多个附件的时候大于10M