TServerSocket - количество клиентов

[Don Karleone]

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

[sxcine]

в TWSocketServer это свойство MaxClients.
а тут при подключении проверять, есть ли подключенный сокет, если есть то отключать новую сессию, ИМХО

[Don Karleone]

Сообщение от sxcine

в TWSocketServer это свойство MaxClients.
а тут при подключении проверять, есть ли подключенный сокет, если есть то отключать новую сессию, ИМХО

да, в событии OnConnect на стороне сервера я могу проверить следующее:

if ServerSocket1.Socket.ActiveConnections > 1 then Socket.Close

т.е. если количество активных подключений > 1 то закрыть это соединение.
в этом событии кол-во активных подключений уже =2.
Но дело в том, что на стороне этого клиента все равно возникнет событие OnConnect а следом за ним OnDisconnect. А мне нужно, чтобы у данного клиента OnConnect не возникло. Вот как это сделать?

[sxcine]

Сообщение от Don Karleone

А мне нужно, чтобы у данного клиента OnConnect не возникло. Вот как это сделать?

это, если я не ошибаюсь, невозможно.

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

событие OnAccept.

[Don Karleone]

Сообщение от Пепел Феникса

событие OnAccept.

результат тот же самый...
Первым возникает событие OnConnect на сервере, а за тем OnAccept

[Аватар]

Так актуально, что бы OnConnect не возникало? Разве в этом случае нет возможности в событии обойти какой-то критичный участок кода?

[Don Karleone]

Сообщение от Аватар

Так актуально, что бы OnConnect не возникало? Разве в этом случае нет возможности в событии обойти какой-то критичный участок кода?

да, актуально. В событии OnConnect на стороне клиента прописано:

ShowMessage('соединение установлено');

а в OnDisconnect:

ShowMessage('соединение разорвано')

вот нужно сделать так, чтобы пользователь не увидел этих окон. А то как-то некрасиво получается. В начале соединение установлено, а потом сразу же разорвано.

[Аватар]

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

[Don Karleone]

Сообщение от Аватар

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

в том то и дело, что ShowMessage() в OnConnect информирует о том, что соединение установлено и теперь можно совершать какие-то действия )
Как в OnDisconnect проследить причину разрыва?