浏览代码

上传附件大小,由10M修改为50M。
云版下载附件可自动打开。

chenshilong 6 年之前
父节点
当前提交
537f961afa
共有 2 个文件被更改,包括 2 次插入3 次删除
  1. 0 1
      Forms/UpFileFrame.dfm
  2. 2 2
      Forms/UpFileManageFrame.pas

+ 0 - 1
Forms/UpFileFrame.dfm

@@ -63,7 +63,6 @@ object UpFileView: TUpFileView
       Width = 28
       Width = 28
       Height = 30
       Height = 30
       Hint = #22312#32447#39044#35272
       Hint = #22312#32447#39044#35272
-      Visible = False
       Layout = pbsImageLeft
       Layout = pbsImageLeft
       Spacing = 4
       Spacing = 4
       ImageNormal.Data = {
       ImageNormal.Data = {

+ 2 - 2
Forms/UpFileManageFrame.pas

@@ -456,9 +456,9 @@ begin
     begin
     begin
       sFile := vODlg.Files[i];
       sFile := vODlg.Files[i];
       iV := FileSizeByName(sFile);
       iV := FileSizeByName(sFile);
-      if iV >= 10485760 then
+      if iV >= 52428800 then
       begin
       begin
-        Application.MessageBox(PChar('“' + sFile + '”过大,单个文件上传不能超过10M!'), '提示', MB_OK + MB_ICONINFORMATION);
+        Application.MessageBox(PChar('“' + sFile + '”过大,单个文件上传不能超过50M!'), '提示', MB_OK + MB_ICONINFORMATION);
         Continue;
         Continue;
       end;
       end;