【结贴】文档关联配置上传附件问题!****

zfang

这个你改成你自己的窗体名称就可以了阿！
或者就直接去掉，什么都不带

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;

op+

11楼代码那里
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;



中的：if not FileSys.FileSystem.FileExists(TRTLConsts.DocRoot) then  //TRTLConsts在协同常量库。提示出错：Undeclared identifier "TRTLConsts".........要怎么解决~？

zfang

需要在该功能的项目管理中，引用业务空间\协同系统\公共资源\协同常量库

op+

引用协同常量库了的。。。。~~但是还是提示出错。。

zfang

不会吧？我这儿好的阿！
你再看看吧

huangyue

最初由 zfang 发布
[B]这个你改成你自己的窗体名称就可以了阿！
或者就直接去掉，什么都不带

procedure EnsureRoot;
const
  cGUID = '4B666B997C49446688B339B6D944AA5B';
begin
  if n..

以下省略...... [/B]

初始化没错了..可是在上传的时候报错  ;) .感觉没有进行初始化一样??

huangyue

最初由 zfang 发布
[B]不会吧？我这儿好的阿！
你再看看吧 [/B]

请速度帮忙看下是甚么问题??都搞了一天了,那个总工有空可以远程帮忙看下!

zfang

一个问题一个问题来
初始化代码没问题了，上传有问题了，具体什么问题呢？

huangyue

最初由 zfang 发布
[B]一个问题一个问题来
初始化代码没问题了，上传有问题了，具体什么问题呢？ [/B]

就是16楼的贴图和这个(RT)

huangyue

错误代码停留在这里
FileSys.FileSystem.CreateFile(TRTLConsts.DocRoot, cGUID, [], TFileKind.fkSpace, TRTLConsts.DocDisplayName);