FTP, узнать скорость

[Demonx]

Код: Выделить всё


hFile = FtpOpenFile(Server, "/file.exe", GENERIC_READ, FTP_TRANSFER_TYPE_BINARY, 0)
sBuffer = Space(1024)
Do
   InternetReadFile hFile, sBuffer, sReadBuffer, ret
   FileData = FileData + sBuffer
Loop Until ret <> sReadBuffer
InternetCloseHandle hFile

Как узнать скорость принятия данных?

[hCORe]

Speed = ChunkSize/ChunkRecvTime

[Demonx]

Пример можно?

[Demonx]

Ну никто не скажет?

[hCORe]

Оно?

Код: Выделить всё

sBuffer = Space$(sReadBuffer)
FileData = vbNullString
SentBytes = 0
StartT = GetTickCount

Do
    InternetReadFile hFile, sBuffer, sReadBuffer, Ret
    If Ret <> sReadBuffer Then
        sBuffer = Left$(sBuffer, Ret)
    End If
    FileData = FileData + sBuffer
    SentBytes = SentBytes + Ret
    sAllBytes = sAllBytes + Ret
    If SentBytes <> 0 Then
        t = GetTickCount - StartT
        If t <> 0 Then
            spRate = (spRate + ((SentBytes / 1000) / (t / 1000))) / 2
            lbSpeed.Caption = Format(spRate, "#.##") & " KB/s"
        End If
    End If
Loop Until Ret <> sReadBuffer

[Demonx]

Я это уже видел.. что-то этот код скорость не правильно показывает.. в Total Commander совсем по-другому. А тут просто она постоянно снижается.