【搞定】TransferManager 能否排队上传而不是同时上传！[请求]**

mengqf

我写了一个批量上传文档至知识中心的功能，现在不好控制TransferManager，TransferManager  能否排队上传而不是同时上传！上传列表如果超过40个是上传中，系统就会不响应，如果重新启动浏览器一进入系统也是不响应，是上传任务又全部在上传中，非常消耗系统资源，请帮忙。

mengqf

等待中。。。

mengqf

自己顶！

alang

默认调用Transfermanager的UPLOAD时，不要让它默认启动。然后接管事件。
完成一个就启动下一个就OK

默认不启动：
    function Upload(const URL, FileCaption, FileName, ToFileName, ToFileDisplayName: WideString;
      Transaction: TTransaction; Start: Boolean = True; const OnProgress: ITransferNotifyDelegate = nil): ITransfer;
    function UploadEx(const FileCaption, FileName, ToFileName: WideString;
      Start: Boolean = True; const OnProgress: ITransferNotifyDelegate = nil): ITransfer; overload; //兼容性保留
    function UploadEx(const FileCaption, FileName, ToFileName, ToFileDisplayName: WideString;
      Transaction: TTransaction;
      Start: Boolean = True; const OnProgress: ITransferNotifyDelegate = nil): ITransfer; overload;
START参数传FASE就OK

事件是这个：
TransferManager。UploadTransferList。OnProgress
事件的方法是：procedure TXXXXXSForm.TransferProgress(const Transfer: ITransfer);

mengqf

如何接管事件，请详细回复，或写个例子贴出来，在线等。

alang

有关事件编程，请楼主参考 http://topic.csdn.net/t/20010116/13/59395.html

mengqf

搞定