起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 1241|回复: 34

上传附件时出错

[复制链接]
发表于 2010-3-10 15:19:11 | 显示全部楼层 |阅读模式
上传附件报一下错误



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

错误.jpg

34.15 KB, 下载次数: 310

回复

使用道具 举报

 楼主| 发表于 2010-3-10 15:51:54 | 显示全部楼层
……………………………………………………………………
回复 支持 反对

使用道具 举报

发表于 2010-3-10 16:27:11 | 显示全部楼层
把这段代码try起来看看
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-10 16:44:42 | 显示全部楼层
最初由 shangxy 发布
[B]把这段代码try起来看看 [/B]

能说具体一些吗?
加在哪?怎么加法
回复 支持 反对

使用道具 举报

发表于 2010-3-10 17:00:46 | 显示全部楼层
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;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-10 17:02:32 | 显示全部楼层
错误图片里的那个文件路径
file:\DOC: \DOC\……  会不会有问题
回复 支持 反对

使用道具 举报

发表于 2010-3-10 17:32:10 | 显示全部楼层
这个附件你是从知识中心中引用的吧?
直接在知识中心中能打开引用的这个附件么?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-10 18:49:42 | 显示全部楼层
不是从知识中心引用的,从知识中心引用没有问题,只有从本地上传的时候才有这个问题
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-11 10:29:42 | 显示全部楼层
上去
回复 支持 反对

使用道具 举报

发表于 2010-3-11 13:18:58 | 显示全部楼层
把lFixSize := TDocUtils.GetOSFileSize(Dir);
换成:lFixSize := TDocUtils.GetFixSize(Dir);看看行不
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 18:33 , Processed in 0.045532 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表