我用webclient.downloadasync下载一个100M大的文件出了问题
程序代码如下：
DimwaiterAsSystem.Threading.AutoResetEvent
PrivateSubDownloadFileCallback2(ByValsenderAsObject,ByValeAsAsyncCompletedEventArgs)
IfNote.CancelledAnde.ErrorIsNothingThen
Debug.WriteLine("下载完成!")
waiter.Set()
EndIf
EndSub
PrivateSubDownloadProgressCallback(ByValsenderAsObject,ByValeAsDownloadProgressChangedEventArgs)
Console.WriteLine("下载进度"&e.ProgressPercentage)
EndSub
Subftpget(ByValaddressAsString,ByValfnAsString)
waiter=NewSystem.Threading.AutoResetEvent(False)
DimftpclientAsNewWebClient
DimhandlerAsAsyncCompletedEventHandler
Try
DimftpuriAsNewSystem.Uri(address)
handler=AddressOfDownloadFileCallback2
AddHandlerftpclient.DownloadFileCompleted,handler
AddHandlerftpclient.DownloadProgressChanged,AddressOfDownloadProgressCallback
ftpclient.DownloadFileAsync(ftpuri,fn,waiter)
waiter.WaitOne()
CatchexAsSystem.Net.WebException
Console.WriteLine("Notfindfile"&ex.Message)
EndTry
EndSub
下载过程中DownloadProgressChanged事件一直正常，进度一直到100%，但是DownloadFileCompleted不发生，线程停止不动。把下载的文件换成26M的文件则DownloadFileCompleted返回正常，线程能正常结束。
请教各位大侠怎么办？
分 -->
|
