VFP 愛用者社區

[iswith]

NetFTP V1.02 全新函数，舍去老的函数，重点函数：
*--异步上传一个大文件----------------------------------------------------
*--该方法有断点续传功能
cid = [UnloadFileAsync]
strRemoteFileName = [\unload\NetQR.7z] &&远程文件名,必须加全路径
strLocalFileName = [E:\NetFTP\Unload\NetQR.7z] &&保存在本地文件名
?"UnloadFileAsync 异步上传 ->"
??Justfname( strRemoteFileName )
oFtp.UnloadFileAsync( cid ,strRemoteFileName , strLocalFileName )


*--异步下载一个大文件----------------------------------------------------------
*--该方法有断点续传功能
cid = [DownloadFileAsync]
strRemoteFileName = [\unload\NetQR.7z] &&远程文件名,必须加全路径
strLocalFileName = [E:\NetFTP\download\NetQR.7z] &&保存在本地文件名
?"DownloadFileAsync 异步下载 ->"
??Justfname( strRemoteFileName )
oFtp.DownloadFileAsync( cid ,strRemoteFileName , strLocalFileName )

[gxouyuan]

感謝大師分享，學習了，讚。

[iswith]

V1.034
增加多线程异步上下载取消
同步上下载不会出现X按钮
同时增加可以鼠标移动窗体

[GOLDHAN]

感謝分享 受益良多

[iswith]

修正FTP多线程异步上下载之前上载不能异步，全改为多线程方式，二者都支持断点续传
增加了Http异步下载的断点续传
修正取消下载的弹出框逻辑-> 点击“X"按钮，弹出提示询问，是 结束下载，下次可断这次点做续传功能。