Ограничение количества подключаемых клиентов

← →
Gleb Grenkin (2004-09-27 12:28) [0]

Все доброго времени суток!
Мой вопрос: я работаю с TServerSocket и TClientSocket.
Как мне сделать так, чтобы к серверу могло подключиться НЕ БОЛЕЕ ОДНОГО клиента?
Спасибо.

← →
Digitman © (2004-09-27 12:39) [1]

никак

← →
Reindeer Moss Eater © (2004-09-27 12:40) [2]

Заранее открыть столько дескрипторов на машине с сервером, что бы соединение первого же клиента съело последний свободный.

← →
Digitman © (2004-09-27 13:10) [3]

> Reindeer Moss Eater

ну ты загнул)
гланды через причинное место ?)

← →
Digitman © (2004-09-27 13:14) [4]

впрочем, через "причинное место" можно сделать и это ...
перехватить вызов WSAStartup, SetSockOpt, Listen, accept и иже с ними и работать с ws v2.xx, задействуя true conditional acceptance, ежели тек.ОС есть не менее чем Винтукей

стоит ли вот только ?

← →
Devel © (2004-09-27 13:55) [5]

а если в событии OnClientConnect проверить, и если соединение уже есть сразу же оключить?

← →
Digitman © (2004-09-27 14:10) [6]

> Devel © (27.09.04 13:55) [5]

и как это соответствует условиям, заданным в вопросе ?
да никак не соответствует !

← →
Polevi © (2004-09-28 17:05) [7]

поправить scktcomp, добавив туда cond accept - не такая уж сложная задача, делов на пару часов максимум

← →
Gleb Grenkin (2004-10-21 11:23) [8]

Devel ©
суть правильна, только при отключении вызывается какое-то там событие (onDisconnect или какое-то ещё - название из головы вылетело), и в TLabel не тот статус показывается.

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

← →
Smithson (2004-10-21 12:41) [9]

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

> надо, чтобы, когда кто-то подключается к серваку, к которому
> уже подключились, у клиента, который пробует подконнектиться,
> возникала ошибка соединения или что-то типа того

именно такую фичу и дает задействование механизма true conditional acceptance

Че мозги то парить?:

procedure TForm1.ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
if ServerSocket.Socket.ActiveConnections >1 then Socket.Close;
end;

> Xtron © (02.11.04 05:45) [11]

когда ты говоришь Socket.Close, то это подразумевает, что коннект только что установлен, и ты просто закрываешь его тут же .. и где же это соответствует условию ограничения именно подключений ?

Ограничение количества подключаемых клиентов Найти похожие ветки