Форум АНТИЧАТ - узнать скорость инет соединения используя пинг

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

узнать скорость инет соединения используя пинг

Возможно ли узнать скорость инет соединения используя эхо запрос?
Если можно установить размер нагрузки ICMP пакета до 65 000 байт и замерять время прохождения ответа, будет ли это реальной скоростью подключения?

не советовал бы так тестить. потому что ICMP мало надежный протокол, при этом он менее приоритетный и может фаером рубиться.
Вообще быстрее просто приконнектится к серваку и запросить страницу большую.

я пробовал замерять момент между началом загрузки страницы и нулевым размером буфера через таймер в отдельном потоке

Код:

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 и соглашение с гугла :)

Цитата:

Procedure timer(it.l)
Repeat
Delay(1)
speedn.l = speedn.l + 1
Until speedn.l = 10000
EndProcedure

Если Delay это аналог Sleep то процедура твоя половину времени спит
ЗЫ Могу и ошибаться

Цитата:

Сообщение от GhostOnline

Если Delay это аналог Sleep то процедура твоя половину времени спит
ЗЫ Могу и ошибаться

спит 1 мс в отдельном потоке а потом плюсует единицу в переменную, это для замера к-ва мсок с начала загрузки, код на PureBasic, я ток кусок привел, работает норм ;)

я думаю дело в сервере, гугл и рипн режут скорость в зависимости от того какую страницу запрашивает юзер, мне нужен сервер который дает минимум 10 Мбит/с на загрузку страниц

А если возложить эту задачу на сервис типа 2ip.ru?

Цитата:

Сообщение от Faost

А если возложить эту задачу на сервис типа 2ip.ru?

там каптча, да и изучать как оно работает нет времени

Цитата:

спит 1 мс в отдельном потоке а потом плюсует единицу в переменную, это для замера к-ва мсок с начала загрузки, код на PureBasic, я ток кусок привел, работает норм

Я тебе к тому, что твоя процедура может неправильно считать время
Я сделал тривиальный тест на дельфи:

Цитата:

var
old : Cardinal;
i :Integer;
begin
old := GetTickCount;
i := 0;
while i < 1000 do
begin
Sleep(1);
Inc(i);
end;
ShowMessage(IntToStr(GetTickCount - Old));

Все как у тебя: задержка, инкремент переменной
Так вот, в сообщении выдало 1953. Т.е. этот цикл выполнялся в два раза дольше чем должен был (по твоим рассуждениям)
Отсюда и у тебя неправильные результаты, типа скорость в 2 раза ниже.
PS Это предположение

нет, все четко, 10 секунд в цикле на глаз 10 секунд

так понял что на делфи гдет лишнее время теряется
у мя четко 10 сек

Inc - обычный инкремент.
Т.е. увеличение целочисленной переменной на единицу
Тоже самое что и i := i +1;
Или те кто на бэйсике даже не знают что такое инкремент?

Цитата:

нет, все четко, 10 секунд в цикле на глаз 10 секунд

по твоему коду у тебя не может быть больше 1000 =)

Не пойму мне видео снять еще?
Зачем мне врать то

PS От твоего поста я еще больше убедился в своей правоте

Цитата:

если чет печатает в ГУИ то там нехилая задержка должна быть, хотя дела это не меняет, в коде i может быть от 0 до 1000

Сначала вычисляется GetTickCount - Old, и только потом в дело вступает ГУИ и выводит что уже было вычислено. Да и все равно, задержка не может быть такой большой

Цитата:

так понял что на делфи гдет лишнее время теряется у мя четко 10 сек

Код в студию! Видать ты неправильно время измерил.
Не забывай что во время выполнения процедуры происходит переключение контекста. Ты его не учитываешь, а ведь время то на него уходит