json – 跟踪HttpWebRequest和HttpWebResponse的进度

Private Function InvokeShareFiLeoperation(ByVal requesturl As @R_616_10495@ng) As JObject

    Dim request As httpWebrequest = Webrequest.Create(requesturl)
    Dim response As httpWebResponse = request.GetResponse()

    Dim reader As StreamReader = New StreamReader(response.GetResponseStream())

    Dim json As @R_616_10495@ng = reader.ReadToEnd()
    response.Close()
    Return JObject.Parse(json)

End Function

Dim response As httpWebResponse = request.GetResponse()

编辑：我认为您无法以任何准确的方式衡量进度,因为大部分操作似乎依赖于处理请求的远程服务器. GetResponse()处理设置DNS,连接,发送和等待远程服务器,这完全不在您手中.只有返回内容长度标头,才能读取响应流.我个人最初会显示20％的进度,GetResponse返回时会显示60％,如果你在下载之前有内容长度,那么最后40％可以逐步显示,或者在读完响应流后一次性完成.

作为Web请求,您可以先查找内容长度,然后使用缓冲区而不是ReadToEnd()读取响应流.这允许您在下载响应时计算进度并触发通知.

Dim request As httpWebrequest = Webrequest.Create(requesturl)

Using response As httpWebResponse = request.GetResponse()
  Dim contentLength As Long = response.ContentLength
  Dim bytesReceived As Long
  Dim bufferLength as Integer = 8192
  Dim buffer(bufferLength) As Char
  Dim sb As new StringBuilder

  Using reader As StreamReader = New StreamReader(response.GetResponseStream())
    Do
      Dim bufferedCount As Integer = reader.Read(buffer,bufferLength)
      sb.Append(buffer,bufferedCount)
      bytesReceived += bufferedCount
      Console.WriteLine(bytesReceived / contentLength * 100 & "%")
    Loop While bytesReceived < contentLength
  End Using

  Return JObject.Parse(sb.To@R_616_10495@ng)
End Using

显然,您可以使用进度更新功能替换Console.WriteLine或者调用SignalR集线器来更新网页,您可以尝试使用缓冲区大小来查看哪种方法最适合您.