WinSock, Не могу разорвать коннект!

[lollollollol]

Всем привет! Уже третьи сутки не могу разорвать все коннекты в приложении.

Есть серверное приложение, которое должно работать неделями без перезапуска.
Но из созданных 10к подключений, примерно 500-700 остаются висеть не закрытыми.

Я пытался и читать данные перед закрытием(думал вдруг нельзя закрыть пока не прочтёшь все данные с сокета, конечно идея бредовая, но проверяю всё, ибо реально задолбался)

Вот код, я сейчас так пытаюсь закрыть коннекты:

  r:integer;
  buff:array[0..10230] of char;
  TimeOutSSS:integer;
  l:linger;
  on_sock : LongInt;
begin
  on_sock:=1;
  TimeOutSSS:=2000;
  SetSockOpt(s,SOL_SOCKET, SO_RCVTIMEO, @TimeOutSSS, SizeOf(TimeOutSSS)); //ставлю таймаут, чтобы не долго ждать ecv сли нет данных
  ioctlsocket(s,FIONBIO,on_sock);//Пытался менять режим блокирующий/неблокирующий перед закрытием, все варианты лесом
  r:=winsock.shutdown(s,2); //Блокирую доступ к сокету(тут я и 0 и 1 и 2 пытался ставить во втором параметре)
  while (Recv(s,buff,sizeof(buff),0)>0) do sleep(50); //Забираю из него всю инфу
  l.l_linger:=0;
  l.l_onoff:=1;
  setsockopt(s,SOL_SOCKET,SO_LINGER,@l,sizeof(l)); //А об этом я на этом форуме где-то читал, мне не помогло
  closesocket(s);

Очень прошу подсказать как жестко, на 100% обрубить коннект.
Приветствуются любые ссылки на инфу(msdn читал про закрытие портов, чтото не видел нужной инфы)

p.s. код на делфи, но это не имеет значения, когда пишешь на винсок+винапи код делфи-си и наоборот переводится легко.

Всем заранее спасибо!

[Stilet]

из созданных 10к подключений, примерно 500-700 остаются висеть не закрытыми.

Глупый вопрос: А как определил что висят?

[lollollollol]

Фаервол.
как набирает чуть больше 5к незакрытых, не может создать больше(сервак винда, такие ограничения)

[Stilet]

А попробуй проверку поставить на closesocket
что она возвращает. Если не 0 то через WSAGetLastError() полуйчай код ошибки и пиши его в лог файл. Так хотя бы поймешь из-за чего может не закрываться.

P.S. А можешь выложить всю прогу?
А то я тут прослушки не вижу, и не могу понять как ты обустроил работу с несколькими сокетами...

[lollollollol]

Забыл написать, делал, всегда ноль возвращает.

Выложить не могу,
Но работа с сокетами выполняется в потоке, 1 поток 1 сокет. Блокирующий режим.

var
  phe:PHostEnt;
  addr:sockaddr_in;
  sock:integer;
  error:integer;
  TimeOutSSS:integer;
begin
  phe := gethostbyname(PChar(domain));                                
  if (phe=nil) then begin
    result:=False;
    exit;
  end;
  addr.sin_family := AF_INET;
  addr.sin_port   := htons(port);
  addr.sin_addr   := PInAddr(phe.h_addr_list^)^;
  sock := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  if (sock=INVALID_SOCKET) then begin
    result:=False;
    exit;
  end;
  TimeOutSSS:=2500;
  SetSockOpt(sock, SOL_SOCKET, SO_RCVTIMEO, @TimeOutSSS, SizeOf(TimeOutSSS));
  error := connect(sock, addr, sizeof(addr));
  if (error=SOCKET_ERROR) then begin
    result:=False;
  end else begin
    result:=True;
  end;
//Далее работа
//И тут попытка закрыть, как в первом посте

[waleri]

10K потоков?!?
Прочитайте про SO_LINGER - может проблема в этом.

Так же вот еще материалы:
http://www.isi.edu/touch/pubs/infoco...nfocomm99-web/
http://stackoverflow.com/questions/7...e-wait-problem
http://msdn.microsoft.com/en-us/libr...v=bts.20).aspx
http://publib.boulder.ibm.com/infoce...ccllal0264.htm

[lollollollol]

10K потоков?!?

Не может быть впринципе на винде столько потоков, максимум 2к на процесс

10к подключений в сумме набираются со временем. потоков 30.
Серверное ПО должно неделями не выключаться, и обрабатывать информацию/запросы

SO_LINGER

дак вот же, или не то?

l.l_linger:=0;
  l.l_onoff:=1;
  setsockopt(s,SOL_SOCKET,SO_LINGER,@l,sizeof(l));

сейчас почитаю.

[lollollollol]

Ссылки глянул, в реестре у меня вообще не было тех веток, создал, тоже самое

[waleri]

Да, тот самый linger - я не заметил, что он есть...
Насчет отсуствия ключей в реестре - весьма странно. Может не туда смотрите? Не путаете LOCAL_MACHINE и CURRENT_USER?

[lollollollol]

нет вроде,
HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\services\Tcpip\Parameters
(это с открытой ветки в regedit скопировал)

для теста быстро создаю 2к подключений, из них 80 остаются висеть.
Самое интересное что фаерволом их можно разорвать, а программой моей не могу.
Closesocket возвращает ноль.

Может быть существует какой-нибудь жесткий способ обрубить подключение? ну фаервол же как-то это делает(хотя он скорей всего это делает на уровне драйвера).


поигрался с лингером, такое впечатление что вообще никакой реакции. что с ним, что без него.
Может я неверно устанавливаю...
Долго гипнотизировал строку
setsockopt(s,SOL_SOCKET,SO_LINGER,@ l,sizeof(l));
но ничего не увидел...

Добавлю ещё что соединения отаются висеть, даже когда выхожу из потока
ExitThread(0), и закрываю хендл потока CloseHandle(ThID);