VPF::Отклонить входящее соединение на TServerSocket

anikss

Дата 18.11.2005, 21:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.11.2005
Где: Москва

Репутация: нет
Всего: нет

Здравствуйте.

Мне нужно сделать так, чтобы к сокету TServerSocket мог присоединиться только один клиент.
Как это сделать? Как можно отклонить входящее соединение на неблокирующем TServerSocket? Очень желательно при том, чтобы клиент получил ошибку.

Спасибо!

RaIDeR

Дата 19.11.2005, 02:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 20.6.2005

Репутация: 1
Всего: 4

У TServerSocket'а есть св-во ActiveConnections.

Дата 19.11.2005, 03:11 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115

Код


procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin 
if ServerSocket1.Socket.ActiveConnections = 1 then Socket.Disconnect(2);
end;

Это сообщение отредактировал(а) RAdmin - 19.11.2005, 03:11

anikss

Дата 19.11.2005, 03:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.11.2005
Где: Москва

Репутация: нет
Всего: нет

Спасибо большое! А как ошибку на клиенте сгенерировать?

anikss

Дата 19.11.2005, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.11.2005
Где: Москва

Репутация: нет
Всего: нет

Не понимаю в чем дело... Я вот переписал TCustomServerSocket, чтобы он вызывал Listen() не с QueueSize:=SOMAXCONN, а с QueueSize:=1, а все равно коннектится неограниченное количество клиентов smile

Подскажите, как сделать, чтобы коннектился только один клиент, а остальным при попытке соединения выдавалось что-то вроде WSAERRCONNREFUSED?

Mayk

Дата 19.11.2005, 14:15 (ссылка)

(нет голосов)

Загрузка ...

^аВаТаР^ сообщение>>

Профиль
Группа: Участник
Сообщений: 2616
Регистрация: 22.5.2005
Где: за границей разум а

Репутация: нет
Всего: 134

Цитата(anikss @ 19.11.2005, 17:59)

понимаю в чем дело.

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

Кстати, может будет проще закрыть серверный сокет после установки соединения?

Это сообщение отредактировал(а) Mayk - 19.11.2005, 14:16

--------------------

Здесь был кролик. Но его убили.
Человеки < кроликов, йа считаю.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »