Необходима помощь в понимании сокетов

[Antony41]

try используются

[Antony41]

Процитирую одну из цитат одного форумчанина

Тут все просто. Каждое соединение отрабатывается в своем потоке и использует блокирующие сокеты. Во время работы вызывается метод execute, который отрабатывает(OnExecute)... после его завершения менеджер соединений проверяет, активно ли соединение, опять вызывает execute и так по кругу. Ну так вот, блокирующий сокет плох тем, что при отсутствии данных в буфере, ждет их появления, "подвешивая" поток на этой инструкци (Msg:=AThread.Connection.ReadLn). А поскольку OnExecute "висит" на этой команде, то и менеджер соединений проверить состояние соединения не может. Вы закрываете форму, а у Вас остаются соединения, ждущие данные, отсюда и ошибка.
Я боролся с этим следующим образом: при выключении "сервера" отсылается некое спец-сообщение всем клиентам(BYE), они его "признают" и посылают обратно серверу также некое спец-сообщение(BYE). Сервер отрабатывает инструкцию Msg:=AThread.Connection.ReadLn и, видя BYE, вызывает инструкцию AThread.Connection.Disconnect. Это позволит закрыть соединение и завершить блок OnExecute. А дальше менеджер соединений увидит, что соединение закрыто и больше не будет вызывать метод execute. Вам останется только перед закрытием программы дождаться закрытия всех соединений.

Использование сокетов в Delphi - хорошая статья, мало ли пригодится. Я после её прочтения вообще плюнул на все эти дикие компоненты и стал программировать сокеты напрямую. Smile

Так как я не имею исходников сервера ретрансляции и не могу реализовать данный метод разрыва соединения, то уже начинаю подумывать тоже забить на инди.
Верно ли убеждение? или что можно сделать в таком случае

[Antony41]

вот эта штука помогла Server.Scheduler.ActiveYarns.Clear; перед остановом сервера. теперь серв при любых условиях не зависает