Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Блокирующие сокеты

Автор: XSInet 15.4.2006, 18:13

Здравствуйте ! Возникла проблема следующего плана:
Использую блокирующие сокеты в программе, но программа встечая функцию recv не останавливается на ней.

Вот код:

Код


begin
 Res := recv(Client_Socket, Command, sizeof(Command), 0);
 if ((Res = (-1)) or (Res = INVALID_SOCKET)) then
    begin
      Error_ := false;
      continue;
    end;

    MessageBoxA(0, @Command, nil, 0);
end;

При приходе первого сообщения программа начинает вечно выдавать мне "MessageBoxA(0, @Command, nil, 0);"
В чём ошибка ?

Автор: XSInet 16.4.2006, 09:43

Странно, но перед accept я вставил "shutdown(Client_Socket, 0);" и всё заработало