【结贴】请教关于知识中心物理文件名加密的问题

lxh_78 · 发表于 2009-11-10 09:12:45

是否我的上传语句有问题？上传语句如下：
TUnStructureDocUtils.NewFile(Context, lFileName, lFileAttribute);
另外，TDOCDISK的创建脚本如下
CREATE TABLE [dbo].[TDOCDISK] (
[FGUID] [varchar] (36) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[FDISK] [varchar] (512) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[FVERSION] [int] NULL
) ON [PRIMARY]

帮忙看看是哪里的原因！

shangxy · 发表于 2009-11-10 10:11:09

procedure TDirectoryOperationProviderResolver.NewFileFromLocal;
const
  cFileName = 'file:\%s';
var
  I, lSize, lFixSize: Integer;
  lDir, lFileName, lOSFileName: string;
  lFileAttribute: TFileAttribute;
begin
  if not OpenDialog.Execute then
Exit;

  lFileAttribute := TFileAttribute.Create;
  try
lDir := FileName;
lFixSize := TDocUtils.GetFixSize(lDir);

for I := 0 to OpenDialog.Files.Count - 1 do
begin
   lOSFileName := OpenDialog.Files[I];

   lSize := FileSys.FileSystem.FileGetSize(SysUtils.Format(cFileName, [lOSFileName]));
   lFileName := FileSys.FileUtils.GetFileName(lOSFileName);
   if (lFixSize <> 0) and (lSize > lFixSize) then
   begin
      JSDialogs.ShowMsg(SysUtils.Format('文件"%s"的大小(%s)超过上传大小(%s)的限制.',
      [lFileName, TDocUtils.FileSizeToStr(lSize), TDocUtils.FileSizeToStr(lFixSize)]), '');
      Continue;
   end;

   lFileName := TDocSystem.GetANewFileName(lDir,
      FileSys.FileUtils.GetFileExt(lOSFileName), TDocUtils.DefaultFileExtName);
   lFileAttribute.DisplayName := FileSys.FileUtils.GetFileName(lOSFileName);
   lFileAttribute.ValuesAsString['OSFILENAME'] := lOSFileName;
   lFileAttribute.ValuesAsString['DOCTYPE'] := TDocInfo.GetDocTypesByFileName(lFileName)[0];
   TUnStructureDocUtils.NewFile(Context, lFileName, lFileAttribute);
end;
  finally
lFileAttribute.Free;
  end;
end;

知识中心也调用的是这个函数，上面的代码是调用过程，你研究一下和你写的那里不一样吧

atiger · 发表于 2009-11-10 10:17:50

lxh_78 · 发表于 2009-11-10 10:45:08

我先试试！
不过手头有个急事，可能反馈要等到明天了！
多谢！

shangxy · 发表于 2009-11-10 10:46:57

好的。

lxh_78 · 发表于 2009-11-11 14:58:29

目前程序已经没问题了！
9楼中提到的问题，产生的具体原因已发现：在上传文档的循环中，如果加入ProcessMessages语句，释放控制权的话，会对文档上传产生影响，造成上述问题。
过些天去客户那里实际跑一下看看。
多谢支持！！

shangxy · 发表于 2009-11-11 15:02:58

ok，谢谢反馈

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