协同系统\文档\关联\文档关联信息
{ 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; |