使用vb.net获得ftp上传速度
使用vb.net获得ftp上传速度
提问于 2012-02-12 06:43:21
我正在尝试使用vb.net获取ftp流的上传速度，但未成功...
我不确定数学是否正确，我用谷歌搜索了一段时间，试图找到上传的公式，我在一些代码示例中找到了它，但用于下载……
下面是我的代码：
Dim chunksize As Integer = 2048
Dim offset As Long = 0
Dim readBytes As Long = 0
Dim startTime As DateTime
Dim endTime As DateTime
While offset < buffer.Length
readBytes = fileStream.Read(buffer, 0, chunksize)
requestStream.Write(buffer, 0, readBytes)
offset += readBytes
endTime = DateTime.Now
Dim duration = endTime - startTime
Dim inASec As Double = 1000 / duration.Milliseconds
startTime = DateTime.Now
RaiseEvent FileSpeed(Math.Round((64 * inASec) / 8, 2).ToString)
RaiseEvent FileProgress(offset, buffer.Length)
End WhileStack Overflow用户
回答已采纳
发布于 2012-02-12 08:19:30
我认为你做得有点不正确。我认为，通过测量已传输的总字节数，然后将其除以已过去的总秒数，可以更好地计算总体速度。
例如，大致如下所示：
Dim chunksize As Integer = 2048
Dim offset As Long = 0
Dim readBytes As Long = 0
Dim startTime As DateTime
Dim duration As Double
startTime = DateTime.Now
While offset < Buffer.Length
readBytes = fileStream.Read(Buffer, 0, chunksize)
requestStream.Write(Buffer, 0, readBytes)
offset += readBytes
duration = startTime.Subtract(Date.Now).TotalSeconds
' Avoid divide by 0 errors
If duration = 0 Then
duration = 1
End If
RaiseEvent FileSpeed(Math.Round(offset / duration, 2).ToString)
RaiseEvent FileProgress(offset, Buffer.Length)
End While页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/9244691
复制相关文章
相似问题
腾讯云开发者
