Ftp上传大文件导致VB.Net App挂起Stream.Close()

时间:2011-06-22 04:29:01

标签: vb.net file upload hang ftpwebrequest

我正在尝试将一个大文件(超过50Mb)上传到我的网络服务器,但我的应用程序在尝试关闭流时挂起。如果上传的文件大于50Mb,则.Close()会导致它挂起 - 根本没有错误消息 - 但是小于50Mb的文件会成功。

你有什么建议绕过fstream.Close()挂我的应用程序?

Dim target As New Uri(uploadedFilePath)
Dim fRequest As System.Net.FtpWebRequest = System.Net.WebRequest.Create(target)
fRequest.Credentials = New System.Net.NetworkCredential(usr, pswd)
fRequest.KeepAlive = False
fRequest.Proxy = Nothing
fRequest.UsePassive = True
fRequest.UseBinary = True
fRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
fRequest.Timeout = 180000

Dim count As Integer = 0
Dim readBytes As Integer = 0
Const bufferLength As Integer = 8192
Dim buffer As Byte() = New Byte(bufferLength - 1) {}
Dim fs As FileStream = File.OpenRead(localFileName)
Dim fStream As Stream = fRequest.GetRequestStream
Console.WriteLine("Writing bytes to the stream. {0}", String.Format("{0:HH:mm}", Now))
Do
    readBytes = fs.Read(buffer, 0, bufferLength)
    fStream.Write(buffer, 0, readBytes)
    count += readBytes
Loop While readBytes <> 0
Console.WriteLine("Writing {0} bytes to the stream. {1}", count, String.Format("{0:HH:mm}", Now))
fStream.Close()
Console.WriteLine("fstream Closed {0}", String.Format("{0:HH:mm}", Now))

将输出显示为:

Writing bytes to the stream. 13:08

Writing 51391500 bytes to the stream. 13:18

请注意,最后一个Console.Writeline永远不会输出。

PS使用Visual Studio 2010和.Net Framework 4.0

3 个答案:

答案 0 :(得分:1)

我注意到你没有关闭输入文件流(fs)。我有一个FTP文件然后将其移动到'成功'文件夹的进程。因为fs没有关闭,当我试图移动它时,我得到了“另一个进程正在使用的文件”。我在Try-catch中抓住了它。我不确定是不是这样,因为你说50MB文件成功,但这是一个想法。

我要放入fs.close(),看看是否能解决我的错误。我移动了一个189MB的文件,这花了一些时间与我正在使用的连接...但它似乎工作直到移动。

答案 1 :(得分:0)

那么,文件本身是否到达了FTP?如果是这样,一个解决方法就是在这个特定的时刻切断过程,并保持原状。

您是否尝试过摆弄设置?

答案 2 :(得分:0)

我认为您可能只需要增加超时时间。

在循环外放一个Try-Catch来捕获返回的错误,你可能会发现错误是:

  

底层连接已关闭

希望有所帮助!