可重复的文件下载器C＃到vb.net

Question

我正在尝试转换我在另一个网站上找到的C＃脚本：http：//www.codeproject.com/tips/tips/307548/resume-suppoert-downloading

到目前为止，我已经设法将大部分转换为转换，但是一旦运行程序，它将创建一个仅0个字节的文件。当C＃运行时，它可以很好地工作，因此我知道这是我的转换技能（或在这种情况下缺乏）的问题。

这是C＃

        static void DownloadFile(string sSourceURL, string sDestinationPath)
    {
        long iFileSize = 0;
        int iBufferSize = 1024;
        iBufferSize *= 1000;
        long iExistLen = 0;
        System.IO.FileStream saveFileStream;
        if (System.IO.File.Exists(sDestinationPath))
        {
            System.IO.FileInfo fINfo =
               new System.IO.FileInfo(sDestinationPath);
            iExistLen = fINfo.Length;
        }
        if (iExistLen > 0)
            saveFileStream = new System.IO.FileStream(sDestinationPath,
              System.IO.FileMode.Append, System.IO.FileAccess.Write,
              System.IO.FileShare.ReadWrite);
        else
            saveFileStream = new System.IO.FileStream(sDestinationPath,
              System.IO.FileMode.Create, System.IO.FileAccess.Write,
              System.IO.FileShare.ReadWrite);
        System.Net.HttpWebRequest hwRq;
        System.Net.HttpWebResponse hwRes;
        hwRq = (System.Net.HttpWebRequest)System.Net.HttpWebRequest.Create(sSourceURL);
        hwRq.AddRange((int)iExistLen);
        System.IO.Stream smRespStream;
        hwRes = (System.Net.HttpWebResponse)hwRq.GetResponse();
        smRespStream = hwRes.GetResponseStream();
        iFileSize = hwRes.ContentLength;
        int iByteSize;
        byte[] downBuffer = new byte[iBufferSize];
        while ((iByteSize = smRespStream.Read(downBuffer, 0, downBuffer.Length)) > 0)
        {
            saveFileStream.Write(downBuffer, 0, iByteSize);
        }
    } 

现在我的vb.net

        Dim sSourceURL As String = TextBox1.Text
    Dim sDestinationPath As String = TextBox2.Text
    Dim iFileSize As Long = 0
    Dim iBufferSize As Integer = 1024
    iBufferSize *= 1000
    Dim iExistLen As Long = 0
    Dim saveFileStream As System.IO.FileStream
    If System.IO.File.Exists(sDestinationPath) Then
        Dim fINfo As New System.IO.FileInfo(sDestinationPath)
        iExistLen = fINfo.Length
    End If
    If iExistLen > 0 Then
        saveFileStream = New System.IO.FileStream(sDestinationPath, System.IO.FileMode.Append, System.IO.FileAccess.Write, System.IO.FileShare.ReadWrite)
    Else
        saveFileStream = New System.IO.FileStream(sDestinationPath, System.IO.FileMode.Create, System.IO.FileAccess.Write, System.IO.FileShare.ReadWrite)
    End If
    Dim hwRq As System.Net.HttpWebRequest
    Dim hwRes As System.Net.HttpWebResponse
    hwRq = DirectCast(System.Net.HttpWebRequest.Create(sSourceURL), System.Net.HttpWebRequest)
    hwRq.AddRange(CInt(iExistLen))
    Dim smRespStream As System.IO.Stream
    hwRes = DirectCast(hwRq.GetResponse(), System.Net.HttpWebResponse)
    smRespStream = hwRes.GetResponseStream()
    iFileSize = hwRes.ContentLength
    Dim iByteSize As Integer
    Dim downBuffer As Byte() = New Byte(iBufferSize) {}
    While ((smRespStream.Read(downBuffer, 0, downBuffer.Length))) > 0
        saveFileStream.Write(downBuffer, 0, iByteSize)
    End While

我相信我正在遇到的问题是在此代码中：

    While ((smRespStream.Read(downBuffer, 0, downBuffer.Length))) > 0
        saveFileStream.Write(downBuffer, 0, iByteSize)
    End While

感谢您的时间：）

Answer 1

我认为您缺少对iBytesize的作业，这就是所检查的大于0。

这样的东西：

While (iByteSize = (smRespStream.Read(downBuffer, 0, downBuffer.Length))) > 0
   saveFileStream.Write(downBuffer, 0, iByteSize)
End While

编辑：也许是这样的东西，但我没有在本地测试过！

iByteSize = (smRespStream.Read(downBuffer, 0, downBuffer.Length))
While (iByteSize > 0)
   saveFileStream.Write(downBuffer, 0, iByteSize)
   iByteSize = (smRespStream.Read(downBuffer, 0, downBuffer.Length))
End While