【结】文档关联错误

clzhang

关联文档，上传文件的时候会报错，提示文件‘Doc：\DOC’不存在
错误定位在这里

procedure TRelevancyGrid.NewDocFromLocal;
const
  cFileName = 'file:\%s';
var
  I: Integer;
  lSize, lFixSize: Int64;
  lFileName: string;
begin
  if OpenDialog.Execute then
  begin
  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;

clzhang

我再文档关联定义的

clzhang

upup

shangxy

2楼的图中把默认存放的目录下来选择一下知识中心或者知识中心里面的目录，如果没有知识中心跟节点那么就用下面的代码自己创建一下

procedure EnsureRoot;
const
  cGUID = '4B666B997C49446688B339B6D944AA5B';
begin
  if not FileSys.FileSystem.FileExists(TRTLConsts.DocRoot) then  //TRTLConsts在协同常量库
  try
    FileSys.FileSystem.CreateFile(TRTLConsts.DocRoot, cGUID, [], TFileKind.fkSpace, TRTLConsts.DocDisplayName);
  except
    on E: TObject do
      raise Exception.CreateFmt('知识中心基础数据错误，初始化失败。'#13#10 + '错误原因：%s', [jsCommon.ExceptText(E)]);
    else
      raise;
  end;
end;

clzhang

哦，可以了，多谢了