上传附件时出错

jakie · 发表于 2010-3-15 09:43:27

最初由 shangxy 发布
[B]把lFixSize := TDocUtils.GetOSFileSize(Dir);
换成：lFixSize := TDocUtils.GetFixSize(Dir);看看行不 [/B]

lFixSize := TDocUtils.GetFixSize(Dir);
这个函数不认识，报错
TDocUtils后面的函数只有一个.GetOSFileSize
估计应该是版本的问题

jakie · 发表于 2010-3-15 09:53:49

请问还有别的办法吗？

shangxy · 发表于 2010-3-15 10:05:40

楼主用的是那个版本？每次都出么？有没有什么规律？我们看看能不能重现一下~

jakie · 发表于 2010-3-15 11:03:19

之前曾经遇到过这个问题
http://bbs.justep.com/forum.php?mod=viewthread&tid=31534

也是说这个函数的问题
我这边的版本号是 3088

每次上传都会出现这个问题

jakie · 发表于 2010-3-15 11:36:02

沉了

shangxy · 发表于 2010-3-15 13:17:30

我给你个文档库的资源包，你导入到你的正式库上面测试一下，看看有么有GetFixSize 这个函数。

shangxy · 发表于 2010-3-15 13:19:49

jakie · 发表于 2010-3-15 13:31:12

导入时应该选择部署方式还是增量部署方式？

shangxy · 发表于 2010-3-15 13:39:49

部署。

jakie · 发表于 2010-3-15 14:33:21

导入后能够上传成功了

但是只能在本地打开在服务器端打开的时候就报错，说字节数为0

上传部分的代码如下：
--------------------
procedure TRelevancyGrid.NewDocFromLocal;
const
  cFileName = 'file:\%s';
var
  I: Integer;
  lSize, lFixSize: Int64;
  lFileName: string;
begin
  if OpenDialog.Execute then
  begin

//lFixSize := TDocUtils.GetOSFileSize(Dir);
   lFixSize := TDocUtils.GetFixSize(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;

---------------
不知道是不是代码里这个地方：
cFileName = 'file:\%s';
路径设置的问题

这个好象是传到了本地的地址，应该如何获取并上传到服务器的一个地址？

		自动登录	找回密码
密码			立即注册