Не останавливается на recvfrom

[Gambler]

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

procedure TForm1.Button1Click(Sender: TObject);
const
IP = '127.0.0.1';
type
  mytype = array of array of longint;
var
  WSAData : TWSAData;
  hst      : PHOSTENT;
  my_sock : TSocket;
  dest_addr: sockaddr_in;
  bsize: integer;
  server_addr: sockaddr_in;
  server_addr_size : integer;
  buff: array [1..500] of char;

begin
  if (WSAStartup(MakeWord(2,2),WSAData)<>0) then
    begin
      exit;
    end;

  my_sock := socket(AF_INET,SOCK_DGRAM,0);
  if (my_sock=INVALID_SOCKET) then
    begin
      WSACleanup();
      exit;
    end;

  dest_addr.sin_family:=AF_INET;
  dest_addr.sin_port:=htons(666);

  if (inet_addr(IP)<>0)then
  begin
    dest_addr.sin_addr.s_addr:=inet_addr(IP);
  end else
  begin
      hst:=gethostbyname(IP);
      dest_addr.sin_addr.s_addr:=mytype(hst.h_addr_list)[0][0];
  end;

  server_addr_size:=sizeof(server_addr);
  bsize:=recvfrom(my_sock,buff,sizeof(buff),0,server_addr, server_addr_size);
  bsize:=recvfrom(my_sock,buff,sizeof(buff),0,server_addr, server_addr_size);
  bsize:=recvfrom(my_sock,buff,sizeof(buff),0,server_addr, server_addr_size);
end;

OS: Windows XP SP3. Помню была такая беда в никсах, но там я не сильно вникал, обошелся проверкой в цикле.

[veniside]

А биндить сокет кто будет? Или он, по-твоему, должен как папа карло висеть на всех портах сразу? )

[Gambler]

Это UDP клиент. на сколько я знаю его не надо с адресом вязать.

[veniside]

А ты проверь )

  bsize:=recvfrom(my_sock,buff,sizeof(buff),0,server_addr, server_addr_size);
  if (SOCKET_ERROR = bsize) then
    ShowMessage('Socket error: ' + IntToStr(WSAGetLastError()));

Если это UDP, это ещё не значит, что он без биндинга проживет. Ты можешь его забиндить на любой интерфейс ('0.0.0.0') и первый свободный порт (хотя это не самое удачное решение с ЮДП), но биндить надо явно или неявно. Неявно - путем отсылки чего-то через сокет. Это TCP-шный сокет неявно биндится при коннекте, а UDP-шному одного recvfrom() мало для биндинга, он просто не знает, на каком же порту ты собрался ловить данные.

И да, в UDP нет клиентов и серверов. Все сокеты равны )

[Gambler]

Спасибо! Ты был прав. Просто раньше всегда перед получение что то отправлял и знать не знал, что этим связываю сокет с адресом.

[veniside]

А от кого он тогда по-твоему отправлял пакет? ) В каждом пакете есть IP и PORT как получателя, так и отправителя. Вот чтобы заполнить данные отправителя, сокет и биндится при посылки первого пакета, справедливо считая, что если ты его явно не забиндил, то тебе пофиг, с какого интерфейса и порта он уйдёт.

[Пепел Феникса]

А от кого он тогда по-твоему отправлял пакет? )

а в UDP особо разницы нет от кого...

[veniside]

Т.е. поля FROM_IP и FROM_PORT в пакете заполняются значениями ПОФИГ_РАЗНИЦЫ_НЕТ? ) Если бы разницы не было, принимающая сторона никогда не узнала бы, от кого пришёл пакет, и, соответственно, никогда не смогла бы на него ответить. Другое дело, что разработчику бывает действительно без разницы, куда там реально прибиндится отправляющий сокет, тут спору нет.