Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Скорость прокси


Автор: KgCoder 7.4.2008, 12:02
Есть файл со списком проксей.
Можно ли пропинговать прокси сервера, и сортировать их по скорости.

Автор: aktuba 7.4.2008, 12:21
Вопрос не в тот раздел. Это раз.
Два - да, можно.

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

Автор: Alexeis 7.4.2008, 13:54
Компонент 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мс, иначе пинг просто не доходит. 

Автор: KgCoder 7.4.2008, 15:48
Цитата

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

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

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

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

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

Автор: KgCoder 7.4.2008, 19:53
Alexeis
Да, скорее всего это лучше чем просто пинговать...

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)