Работа с сокетом

[STRELOK-2007]

Приветствую!
Помогите пожалуйста с проблемой!

Клиент подключается к серверу.
В обычном режиме проходит рукопожатие, когда предполагается что данные точно есть.

Затем сервер переключает режим сокета:

 UV:=0;
 ioctlsocket(FSocked, FIONBIO, UV);
 FillChar(swapBuffer, SizeOf(swapBuffer), 0);

и начинает в цикле слушать:
Если сокет выбрался, значит в нем что-то есть и можно получить.

У меня всегда посылаются маленький рабор данных, максимум 44 байта. Обычно 14-18 байт, поэтому, считаю что, если что-то пришло - значит это наш пакет, посланный клиентом.

 FD_ZERO(FD);
 _FD_SET(FSocked, FD);

 TV.tv_sec:=2;
 SocketSet:= select(0, @FD, @FD, nil, @TV);

 if FD_ISSET(FSocked, FD) then
  begin
   ...
  end;

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

С сокетами последний раз работал полтора года назад, тогда все шло все гладко.

Что я делаю не так?
Проект должен был еще вчера сдавать, но просидел весь вечер и ночь с этими "дырками".

Может быть как-то по-другому сделать надо?
Все это нужно для межпроцессного взаимодействия, сокеты выбрал лучшим вариантом. В процессе идет работа с устройством, бывает что, иногда, процесс виснет наглухо и его надо перезапускать.
Именно поэтому, решил каждое устройство выделить в отдельном процессе - повиснет и бог с ним, главное что сервер-хост жив-здоров и может штатно перезапустить.

А я залип с этими сокетами.

P.S.
3 параметр в select добавил недавно, до этого было nil - тоже особо не помогало.

В клиенте тоже пытался делать так:

 UV:=0;
 ioctlsocket(hSocket, FIONBIO, UV);
 FillChar(swapBuffer, SizeOf(swapBuffer), 0);
 TV.tv_sec:=2;

 FD_ZERO(FD);
 _FD_SET(hSocket, FD);

 TV.tv_sec:=2;
 SocketSet:= select(0, @FD, @FD, nil, @TV);

3 параметр так-же здесь появился недавно.

Заранее, спасибо!

[Stilet]

поэтому, считаю что, если что-то пришло - значит это наш пакет, посланный клиентом.

А если это какой-нибудь вирус пингует этот порт, засылая свои пакеты?
И ты это принимаешь в цикле?

[STRELOK-2007]

Сообщение от Stilet

А если это какой-нибудь вирус пингует этот порт, засылая свои пакеты?
И ты это принимаешь в цикле?

Хм, и как тогда поступить в таком случае?
Позднее, планирую добавить симметричное шифрование пакетов с ассиметричным обменом ключа шифрования.

[Stilet]

А я даже не знаю... Сам такую защиту на свои проги не вешал.
Я принимаю пакеты в цикле, но у меня кол-во байт каждого пакета передается заранее, поэтому я знаю когда и сколько считывать из буфера.

[STRELOK-2007]

Сообщение от Stilet

А я даже не знаю... Сам такую защиту на свои проги не вешал.
Я принимаю пакеты в цикле, но у меня кол-во байт каждого пакета передается заранее, поэтому я знаю когда и сколько считывать из буфера.

То-же самое.
Когда то давно я писал бота для одной из онлайн игрушек, там использовался Netty протокол для создания пакетов.
Написал класс, втянулся, понравилось.

 FD_ZERO(FD);
 _FD_SET(FSocked, FD);

 TV.tv_sec:=2;
 SocketSet:= select(0, @FD, @FD, nil, @TV);

 if FD_ISSET(FSocked, FD) then
  begin
   c:= recv(Device.SockedCurrent, swapBuffer, 65536, MSG_PEEK);

   if c = SOCKET_ERROR then
    Exit;

   if c = 0 then
    Exit;

   //MonitorLog(lrtMessage, 'Incomming TCP packet: size '+IntToStr(c));

   Res:= Proto.NettyRecv(Netty);

   //MonitorLog(lrtMessage, Format('Incomming Netty packet: %s, ID = %d, Length = %d', [BoolToStr(Res, true), Netty.ID, Netty.Length]));

function TssProtocol.NettyRecv(var Netty: TNetty): Boolean;
var
 Header: TssPacketHeader;
 Buf: AnsiString;
begin
 Result:= False;

 if not SocketRecv(Header, ssAuchPacketHeader) then
  begin
   Exit;
  end;

 if header.Length > 0 then
  begin
   SetLength(Buf, header.Length);

   if not SocketRecv(Buf[1], Header.Length) then
    begin
     Exit;
    end;
  end
 else
  buf:='';

 Netty.ID:= Header.ID;
 Netty.Reserved1:= Header.Reserved1;
 Netty.Reserved2:= Header.Reserved2;

 Netty.asString:= Buf;

 Result:= True;
end;