【结贴】如何限制用户上传附件的大小**

allentime

如题………………

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=4055

allentime

for I := 0 to OpenDialog.Files.Count - 1 do
  begin
    lStream := TFileStream.Create(OpenDialog.FileName, SysUtils.fmOpenRead);
    try
      if (lStream.Size div 1024 div 1024)>10 then
      begin
        JsDialogs.ShowWarning('上传附件大小不能超过10M,请重试！','警告');
        Exit;
      end;
    finally
      lStream.Free;
    end;
  end;
这段代码，一次上传多个文件，只会校验第一个文件的大小，帮忙看下怎么处理？谢谢！

lixy

OpenDialog.FileName不对，应该用files类似的代码吧。

allentime

搞定，结贴吧。谢谢lixy……