|
上传附件报一下错误
错误定位到如下代码:
begin
if OpenDialog.Execute then
begin
lFixSize := TDocUtils.GetOSFileSize(Dir);
for I := 0 to OpenDialog.Files.Count - 1 do
begin
lSize := FileSys.FileSystem.FileGetSize(SysUtils.Format(cFileName, [OpenDialog.Files[I]]));
lFileName := FileSys.FileUtils.GetFileName(OpenDialog.Files[I]);
if (lFixSize <> 0) and (lSize > lFixSize) then
begin
JSDialogs.ShowMsg(SysUtils.Format('文件"%s"的大小(%s)超过上传大小(%s)的限制.',
[lFileName, TDocUtils.FileSizeToStr(lSize), TDocUtils.FileSizeToStr(lFixSize)]), '');
Continue;
end;
NewDocFromLocal(OpenDialog.Files[I]);
end;
end;
end;
|
|