|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#18
|
||||
|
||||
Цитата:
Мои исхи давно канули в лету, поэтому привожу пример из книги Фленова (вечный сервер, вырубается по ошибке): Код:
tv.tv_sec := 1; // Тайм-аут - секунды tv.tv_usec := 0; while true do begin FD_ZERO(ReadSet); FD_SET(sServer, ReadSet); ReadySock := select(0, @ReadSet, 0, 0, @tv); if (ReadySock = SOCKET_ERROR) then exit; if (FD_ISSET(sServer, ReadSet)) then begin sClient := accept(sServer, ...); if sClient = INVALID_SOCKET then exit; // клиент подключен end; end; Разумеется, сокет должен быть неблокирующий. jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 11.02.2013 в 22:02. |