13.06.2010, 21:26
|
|
Новичок
Регистрация: 02.01.2010
Сообщений: 23
Провел на форуме:
659771
Репутация:
33
|
|
я пробовал замерять момент между началом загрузки страницы и нулевым размером буфера через таймер в отдельном потоке
Код:
Procedure timer(it.l)
Repeat
Delay(1)
speedn.l = speedn.l + 1
Until speedn.l = 10000
EndProcedure
InternetReadFile_(hURL,@Buffer, Len(Buffer), @Bytes)
CreateThread(@timer(), 0)
If Bytes = 0
chk.d = Len(res)/speedn.l
Debug Str(chk.d)+" Kb/s"
EndIf
но результат очень странный, при скорости 4 Мбит/с выдало в 2 раза меньше
может дело в используемом сервере?
побывал грузить длинные манулы с ripn.net и соглашение с гугла  |
|
|