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

[Puhovoi]

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

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

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];

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

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

[veniside]

select() для этого предназначен. вот пример для проверки одного сокета, а вобще там можно сразу 64 за один вызов проверить:

type
  pbool = ^boolean;

// --  --
function fdset(s: tSocket; v: pbool; fds: pfdset): pfdset; 
begin
  if (v <> nil) then begin
    //
    FD_SET(s, fds^);
    //
    result := fds;
  end
  else
    result := nil;
end;

// --  timeout in milliseconds --
function select(s: tSocket; r, w, e: pbool; timeout: integer): integer;
var
  fds_r: tfdset;
  fds_w: tfdset;
  fds_e: tfdset;
  //
  fds_rptr: pfdset;
  fds_wptr: pfdset;
  fds_eptr: pfdset;
  //
  tv: tTimeval;
  timeptr: pTimeval;
begin
  if (INVALID_SOCKET <> s) then begin
    //
    fds_rptr := fdset(s, r, @fds_r);
    fds_wptr := fdset(s, w, @fds_w);
    fds_eptr := fdset(s, e, @fds_e);
    //
    if (timeout <> INFINITE) then begin
      //
      if (1 > timeout) then begin
	//
	tv.tv_sec  := 0;
	tv.tv_usec := 0;
      end
      else begin
	//
	tv.tv_sec := timeout shr 10;			// ~ timeout div 1000
	if (1 = timeout) then
	  tv.tv_usec := 10
	else
	  tv.tv_usec := (timeout mod 1000) shl 10;	// ~ (timeout mod 1000) * 1000;
	//
	if (999999 < tv.tv_usec) then
	  tv.tv_usec := 999999;
      end;
      //
      timeptr := @tv;
    end
    else
      timeptr := nil;
    //
    result := WinSock.select(1, fds_rptr, fds_wptr, fds_eptr, timeptr);
    if (1 = result) then begin
      //
      if (r <> nil) then r^ := FD_ISSET(s, fds_r);
      if (w <> nil) then w^ := FD_ISSET(s, fds_w);
      if (e <> nil) then e^ := FD_ISSET(s, fds_e);
    end
    else begin
      //
      if (0 = result) then // timeout?
      else
	result := WSAGetLastError();
    end;
    //
  end
  else
    result := WSAENOTSOCK;
end;