DownloadFileAsync下载多个文件不完整

2010-12-09 04:03:07 693 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

maya中的几个热盒（空格、shift、w键） maya中许多功能打包放进了不同的热盒中，让我们使用起来更加的便捷，熟练掌握后可以大大提升了建模速度。按下不同按键后鼠标不需要精确点到某个图标，往某个方向滑滑滑就打开了相应功能，非常的炫酷和迅猛。阅读详情

我要下载多个文件，在循环中的关键代码如下：

Dim myWebClient As New WebClient()
If myWebClient.IsBusy Then
myWebClient.CancelAsync()
End If

Dim remoteUri As String = strOldPath
If myWebClient.IsBusy Then
myWebClient.CancelAsync()
End If
TxtBoxLog.Text = "正在下载：" + strOldPath & vbCrLf & TxtBoxLog.Text

Dim uri As New Uri(remoteUri)
myWebClient.DownloadFileAsync(New Uri(strOldPath), strNewPath)
myWebClient.Dispose()
myWebClient = Nothing
TxtBoxLog.Text = "完成下载：" + strOldPath & vbCrLf & TxtBoxLog.Text

我发现下载文件还是非常快的，问题是有些文件没下载完成，有些只有一半，还有一些是0字节，不知道什么原因，恳请指教。

我在网上看到有说绑定 DownloadDataCompleted 事件，问题是我在这个循环下载中怎么处理呢？恳请指教，非常感谢！！

...全文

TIA博途V15.1实战：用PLCSIM Advanced V2.0模拟Modbus TCP/IP通信（附完整DB块配置）本文详细介绍了如何在TIA博途V15.1环境中，利用PLCSIM Advanced V2.0软件仿真S7-1500 PLC的Modbus TCP/IP通信功能。通过实战步骤，重点解析了MB_SERVER指令调用、连接参数（CONNECT）配置以及核心数据块（DB）的映射方法，并附上了完整的DB块配置示例，帮助工程师在无物理硬件条件下高效完成通信逻辑的验证与调试。阅读详情

tangzhong

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

Missa 2010-12-13

打赏
举报

事件的关联只要添加一次就可以.不要在循环里反复做,这样等于事件的处理方法在被不断重置.
你现在做的实际是多文件并行下载,这个我还真不确定是否可以做到.
应该使用文件队列做串行下载,每个文件的下载是异步的,但文件和文件之间是一个队列关系.当前面的文件下载结束后,才下载后面的文件.
然后我没看到你的处理函数,这个其实也很简单.看到我上面写的例子了吗?
你只要在在完成事件里,给webclient一个新的下载地址(即队列中新的一个远程文件地址)就可以了.至于你怎么做这个队列,是用数组还是queue,这都可以你的习惯了.

tangzhong 2010-12-10

打赏
举报

一早起来顶下，希望能得到大家的帮助。

tangzhong 2010-12-09

打赏
举报

[Quote=引用 11 楼 sp1234 的回复:]
循环是羸弱的，千万不要往循环方面去想问题，特别不要让你的主线程搞什么循环等待（那么你不过是用个异步编程语句来搞同步阻塞而已）。下载完之后，异步下载过程就会抛出事件，你应该……
[/Quote]
我也知道这样不好，但你能告诉我怎么在异步下载的时候处理完成或者出错的事件么？再次贴出我的部分代码：
do
Dim myWebClient As New WebClient()

If myWebClient.IsBusy Then
myWebClient.CancelAsync()
End If

Dim remoteUri As String = strOldPath
If myWebClient.IsBusy Then
'是否存在正在进行中的Web请求
myWebClient.CancelAsync()
End If
TxtBoxLog.Text = "正在下载：" + strOldPath & vbCrLf & TxtBoxLog.Text

Dim uri As New Uri(remoteUri)
AddHandler myWebClient.DownloadFileCompleted, AddressOf wc_DownloadFileCompleted
' Specify a progress notification handler.
AddHandler myWebClient.DownloadProgressChanged, AddressOf wc_DownloadProgressChanged

myWebClient.DownloadFileAsync(New Uri(strOldPath), strNewPath)
TxtBoxLog.Text = "完成下载：" + strOldPath & vbCrLf & TxtBoxLog.Text
while (如果还有文件要下载）

请告诉我怎么得知这个文件下载完了，继续下载其他文件。恳请告知怎么在DownloadFileCompleted、DownloadProgressChanged中处理？非常感谢！

tangzhong 2010-12-09

打赏
举报

[Quote=引用 13 楼 bdxzq 的回复:]
只用过downloadfile，这个更好用？
[/Quote]DownloadFileAsync绝对效率高多了，只是使用更复杂-对我来说

思考 2010-12-09

打赏
举报

只用过downloadfile，这个更好用？

Missa 2010-12-09

打赏
举报

善用异步,你会发现处理问题原来是如此的简单.

以专业开发人员为伍 2010-12-09

打赏
举报

[Quote=引用 9 楼 tangzhong 的回复:]

谢谢你了。我准备用判断文件下载大小来循环等待：e.BytesReceived, e.TotalBytesToReceive, e.ProgressPercentage。
[/Quote]

循环是羸弱的，千万不要往循环方面去想问题，特别不要让你的主线程搞什么循环等待（那么你不过是用个异步编程语句来搞同步阻塞而已）。下载完之后，异步下载过程就会抛出事件，你应该在事件中处理善后工作，这才是异步编程。

以专业开发人员为伍 2010-12-09

打赏
举报

[Quote=引用 3 楼 tangzhong 的回复:]

谢谢你的回复。DownloadFile是可以，但速度太慢了，DownloadFileAsync速度快了好多。
[/Quote]

你的所谓“快”是以根本没有下载完为代价的，这就印证了我常说（也是抄来）的：最高效的程序就是什么都不做。

异步下载只会让文件下载变慢！但是由于是在线程中，所以可以让线程切换（而不会在下载时阻塞），例如切换到主线程就可以处理键盘响应，切换到其它下载线程就可以并行处理下载过程。

tangzhong 2010-12-09

打赏
举报

谢谢你了。我准备用判断文件下载大小来循环等待：e.BytesReceived, e.TotalBytesToReceive, e.ProgressPercentage。

以专业开发人员为伍 2010-12-09

打赏
举报

[Quote=引用 4 楼 missa 的回复:]

首先要说明的是,异步下载并不会比同步下载快.
[/Quote]

嗯，有质量的回复。

Missa 2010-12-09

打赏
举报

不知道能看懂不?我写的比较简化,可能功能上跟你要的有点差距



Sub downloadfile(ByVal path As String)

        Dim client As New Net.WebClient

        AddHandler client.DownloadDataCompleted, AddressOf downloadfilecomplite

        client.DownloadFileAsync(New Uri(path), "FullFileName")

    End Sub



    Sub downloadfilecomplite(ByVal sender As Object, ByVal e As Net.DownloadDataCompletedEventArgs)

        '文件下完了,继续后面的

        downloadfile("nextFilePathToDown")

    End Sub

tangzhong 2010-12-09

打赏
举报

感谢你们的热心回答，我正在自己研究，好像跟你们说的差不多，要是你们能提供具体代码或者示例就好了，呵呵呵

Missa 2010-12-09

打赏
举报

理论上,应该可以在循环中连续调用这个异步下载方法.调用后,方法会立即返回,而下载任务在后台线程会自动执行.只要网络正常,你的这些文件会被并行下载完成.
当然前提是webclient这个东西确实支持并行下载,这点我不确认.
如果你想在下载完一个内容后再下载另一个文件,那么就像我上面说的,将所有要下载的文件做到队列里.在DownloadFileCompleted中,按照队列里的顺序,调用DownloadFileAsync来下载下一个文件.

Missa 2010-12-09

打赏
举报

首先要说明的是,异步下载并不会比同步下载快.它的好处是不阻塞线程,这样的你界面或其他任务可以同时执行.
另外你应该看一下DownloadFileCompleted的说明.
你需要自己添加DownloadFileCompleted事件的处理方法,并关联到你的webclient实例.这样当你的下载完成时,会触发DownloadFileCompleted事件,而你在你的事件处理方法中,就可以知道文件下载完了.
另外如果你需要知道进度,需要关联DownloadProgressChanged事件.

tangzhong 2010-12-09

打赏
举报

谢谢你的回复。DownloadFile是可以，但速度太慢了，DownloadFileAsync速度快了好多。你说的放到下载进度事件里，问题是我怎么来判断下载完成了呢？我在for循环中myWebClient.DownloadFileAsync(New Uri(strOldPath), strNewPath)下载，我怎么等待下载完了再下载下一个文件呢？请告知，谢谢

gxingmin 2010-12-09

打赏
举报

myWebClient.DownloadFileAsync(New Uri(strOldPath), strNewPath)
'下面代码放到myWebClient下载进度事件里，并判断下载结束后调用
myWebClient.Dispose()
myWebClient = Nothing
TxtBoxLog.Text = "完成下载：" + strOldPath & vbCrLf & TxtBoxLog.Text

或
myWebClient.DownloadFile(New Uri(strOldPath), strNewPath)
myWebClient.Dispose()
myWebClient = Nothing
TxtBoxLog.Text = "完成下载：" + strOldPath & vbCrLf & TxtBoxLog.Text

gxingmin 2010-12-09

打赏
举报

你用的是异步下载，所以调用DownloadFileAsync后不要立即释放myWebClient资源
要等它下载完再释放，myWebClient有个下载进度事件，可以判断什么时候下载完

或者你干脆别用异步下载，直接 myWebClient.DownloadFile(New Uri(strOldPath), strNewPath)
这样后面就可以写释放代码

DownloadFileAsync下载多个文件不完整

相关推荐