上传附件时出错

jakie

上传附件报一下错误



错误定位到如下代码：
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;

jakie

……………………………………………………………………

shangxy

把这段代码try起来看看

jakie

最初由 shangxy 发布
[B]把这段代码try起来看看 [/B]

能说具体一些吗？
加在哪？怎么加法

shangxy

begin
  if OpenDialog.Execute then
  begin
   try
   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;
    finally
     //
    end;
  end;
end;

jakie

错误图片里的那个文件路径
file:\DOC: \DOC\……  会不会有问题

shangxy

这个附件你是从知识中心中引用的吧？
直接在知识中心中能打开引用的这个附件么？

jakie

不是从知识中心引用的，从知识中心引用没有问题，只有从本地上传的时候才有这个问题

jakie

上去

shangxy

把lFixSize := TDocUtils.GetOSFileSize(Dir);
换成：lFixSize := TDocUtils.GetFixSize(Dir);看看行不