VPF::Проверка состояния массива неблокирующих сокетов

Puhovoi

Дата 2.7.2012, 21:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго времени суток!

Изучение работы неблокирующих сокетов решил начать с написания простенького прокси-чекера, позволяющего определить статус соединения с тем или иным прокси.

Код

var
  data : twsadata;
  sock : array [0..9] of tsocket;
  addr : tsockaddr;
  blck : u_long;
  i : integer;
  t : timeval;
begin

  blck := 1;
  wsastartup ($101, data);

  for i := 0 to 9 do
  begin
    sock[i] := socket (AF_INET, SOCK_STREAM, 0);
    while sock[i] = INVALID_SOCKET do sock[i] := socket (AF_INET, SOCK_STREAM, 0);
    ioctlsocket (sock[i], FIONBIO, blck);
    addr.sin_family := AF_INET;
    addr.sin_addr.s_addr := inet_addr (pansichar ('{proxy adress}'));
    addr.sin_port := htons ({proxy port});
    connect (sock[i], addr, sizeof (addr));
  end;

  sleep (1000);

  for i := 0 to 9 do closesocket (sock[i]);

  wsacleanup;

end;

Задача:
- загрузить 10 прокси в один поток
- попытаться соединиться с каждым в неблокирующем режиме
- через N времени проверить открытые сокеты на предмет того, есть ли соединение, или прокси мертв

Третий пункт решить не получается, прошу помощи.

Грубо говоря, я представляю это так:

for i := 0 to 9 do // проверка sock[i];

Но как сделать - не понимаю.

Заранее спасибо за ответы.

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