VPF::Скорость прокси - Форум программистов

KgCoder

Дата 7.4.2008, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 6.3.2008
Где: KGstan

Репутация: нет
Всего: нет

Есть файл со списком проксей.
Можно ли пропинговать прокси сервера, и сортировать их по скорости.

aktuba

Дата 7.4.2008, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Вопрос не в тот раздел. Это раз.
Два - да, можно.

--------------------

KgCoder

Дата 7.4.2008, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 6.3.2008
Где: KGstan

Репутация: нет
Всего: нет

Я справшиваю в разделе для новичков, потому что считаю себя новичком.
Можно пример?

Alexeis

Дата 7.4.2008, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Компонент TIdIcmpClient из палитры индюков.

Код


var
 Count : integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Count := 1;
  IdIcmpClient1.Host := '10.0.0.1';
  IdIcmpClient1.Ping('', Count);
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  if count > 1
  then
    Memo1.Lines.Add(IntToStr(AReplyStatus.MsRoundTripTime));

  inc(Count);
  Application.ProcessMessages;
  sleep(100);
  Application.ProcessMessages;

  if Count < 6
  then
    IdIcmpClient1.Ping('', Count);
end;

Добавлено через 2 минуты и 24 секунды
Фик его знает, у меня не позволяет пинговать чаще чем через 100мс, иначе пинг просто не доходит.

--------------------

Vit вечная память.

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

гениальность идеи состоит в том, что ее невозможно придумать

KgCoder

Дата 7.4.2008, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 6.3.2008
Где: KGstan

Репутация: нет
Всего: нет

Цитата

Фик его знает, у меня не позволяет пинговать чаще чем через 100мс, иначе пинг просто не доходит.

Хм..А можно ли просто через IdHTTP сделать типа IdHTTP.Host:='10.0.0.1:8080'
Потом connect, а затем Get('http://website/')...??
И из этого как-то получить скорость?

Это сообщение отредактировал(а) KgCoder - 7.4.2008, 15:51

Alexeis

Дата 7.4.2008, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Стоп, вопрос в чем? Насколько быстро приходит ответ или насколько быстро идет передача данных? Это разные параметры, мало связанные.

--------------------

KgCoder

Дата 7.4.2008, 17:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 6.3.2008
Где: KGstan

Репутация: нет
Всего: нет

Нужно на все прокси из списка отправить запрос или пропинговать их...
И отсортировать их учитывая время передачи данных и время получение ответа. (in+out)

Alexeis

Дата 7.4.2008, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

KgCoder, можно попробовать грузить определенный файл (20-30кб) через этот прокси и засечь время загрузки. Т.е. настроить этот сервер как прокси сервер для IdHTTP и произвести загрузку файла. Правда нужен сервер со стабильной скоростью передачи данных или чтобы его пропускная способность была намного больше чем у соединения через которое будет осуществляться проверка.

--------------------

KgCoder

Дата 7.4.2008, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 6.3.2008
Где: KGstan

Репутация: нет
Всего: нет

Alexeis
Да, скорее всего это лучше чем просто пинговать...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »