Ftp 上传大文件导致 VB.Net 应用程序挂在 Stream.Close() 上

Question

我正在尝试将大文件（超过 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

Answer 1

我注意到您没有关闭输入文件流（fs）。我有一个通过 FTP 传输文件然后将其移动到“成功”文件夹的过程。因为 fs 没有关闭，所以当我尝试移动它时，我收到“文件正在被另一个进程使用”。我用 Try-catch 抓住了它。我不确定是否是这样，因为你说 50MB 文件成功，但这是一个想法。

我将放入 fs.close() 并查看是否可以解决我的错误。我移动了一个 189MB 的文件，这在我使用的连接上花费了一些时间......但在移动之前它似乎一直在工作。

Answer 2

那么，文件本身是否到达了 FTP？如果是这样，解决方法就是在这个特定时刻切断该流程，然后保留它。

您是否尝试过摆弄设置？

Answer 3

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

在循环外部放置一个 Try-Catch 来捕获返回的错误，您可能会发现错误是：

底层连接已关闭

希望有帮助！