【结帖】请教上传附件的机制**

jakek

测试了一下，下面的操作会把硬盘上的附件删了。想请教原因。

附件（已a.xls为例）。a.xls处于打开状态，然后上传附件。按附件保存按钮后，附件前的红色的勾没有去掉。流转后的附件为大小为0字节。
这张申请被退回后，申请人在X3中打开附件，关闭，删了0字节的附件，再上传时在硬盘上就看不到附件了。

急。。。。。。

lixy

缺陷：客户上传文档的源文件被删除 版本3088
修改方法
协同系统\文档\关联\文档关联信息

{ TUploadNotifier }

procedure TUploadNotifier.AfterCommit(Sender: TTransaction);
begin
  FTimer.Enabled := True;
  if not TDocUtils.Uploading(FFileName) then
    //TUnStructureDocUtils.UpLoadFile(nil, FFileName);//修改为TUnStructureDocUtils.UpLoadFile(nil, FFileName,true);
//    TransferUtils.TransferManager.UpLoadEx(FDisplayName, FOSFileName , FFileName, True, nil);
end;

jakek

就是修改成这样吗？
procedure TUploadNotifier.AfterCommit(Sender: TTransaction);
begin
  FTimer.Enabled := True;
  if not TDocUtils.Uploading(FFileName) then
TUnStructureDocUtils.UpLoadFile(nil, FFileName,true);
//    TransferUtils.TransferManager.UpLoadEx(FDisplayName, FOSFileName , FFileName, True, nil);
end;
那多了个true，是什么意思？

jakek

主要是想问问加了ignore opened效果会如何?
还有就是UpLoadFile这个函数是写在哪的啊?

我想访问DOCLIB的代码，但出现如下的警告：
对象"Biz:\COLLABORATION\DOC\DOCLIB.LIBRARY"没有语言信息，不能生成代码文件

lixy

找到这个信息里面的函数，对照修改就可以了。DOCLIB没有公布源代码，所以打不开。

lixy

最初由 jakek 发布
[B]就是修改成这样吗？
procedure TUploadNotifier.AfterCommit(Sender: TTransaction);
begin
  FTimer.Enabled := True;
  if not TDocUtils.Uploading(FFileName) then..

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

对。

jakek

谢谢！

那能否说说，在上传附件的过程中系统究竟干了些什么，是怎样的操作顺序的。