Доброго времени, уважаемые форумчане!
Прошу помощи в следующем. Имеем "отладочное" приложение, которое содержит TServerSocket, работающий в неблокирующем режиме (stNonBlocking) и принимающий данные от кучи разных устройств/локальных клиентских программ и прочее. Все отлично работает, срабатывает событие OnClientRead(), выполняю обработку и, при необходимости, отправку данных при помощи SendText(). В случае, если данные были разбиты на части во время их передачи, OnClientRead() вызывается для каждой части по порядку и проблем тоже нет.



Затем, все это дело я оформил как службу - штатный TService. И появилась такая проблема - все работает примерно в течение часа, затем перестает работать. Служба запущена всегда, остановок и исключений нет. Сделал свой собственный простой и примитивный лог - вижу, что после определенного количества подключений (около 100 активных sockets) перестает срабатывать событие OnClientRead(). То есть, клиент подключается, подключение проходит, но событие уже не срабатывает. При перезапуске службы, разумеется, все начинает работать, опять-таки до поры до времени. Если кто сталкивался с чем-то подобным, пуду премного признателен.
Может быть, дело в том, что нельзя использовать stNonBlocking внутри службы? Программа была идеально отлажена именно в этом режиме работы сервера.

DmSer,
В том и дело, что нет никаких ShowMessage(), как будто бы есть какое-то ограничение на количество подключений (что-то типа ThreadCacheSize - но это для блокирующего режима и работы с потоками, а здесь все в главном потоке, ибо обработка очень быстрая).
Пока поставил в таймере такой "костыль" с интервалом на 1 час (3600000 мс).



Пока все это работает, но это не дело совсем, конечно...

DmSer,
Теоретически не должно быть зависаний, ибо действующие подключения еще некоторое время работают, потом вообще умирает все. Кстати, вышеприведенный "костыль" не помог - все равно перестает срабатывать событие, я это вижу по своему кустарному логу и по факту того, что ответ SendText() перестает приходить через некоторое время (отправляю при помощи Packet Sender - эмулирую сообщение клиента). А каким образом TService может взаимодействовать с TServerSocket? Только запуск, остановка, обработка событий от TServerSocket.
Экземпляр TServerSocket создаю динамически в RunTime, ибо убрали их давно из палитры компонентов, так удобнее.

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

DmSer,
try... except все на месте, но все равно сейчас пытаюсь проверить на зависание/срабатывание Exception, может, где что упустил. В десктопе, правда, никаких исключений не выпадало, все обрабатывается.

DmSer,
Зависание маловероятно, ибо поставил таймер и он работает в главном потоке, вижу по логам, да и действующие подключения еще живут какое-то время и работает обмен данными, что видно при помощи сниффера и при отправке эмуляции пакета и получением ответа программой Packet Sender. Исключений тоже нет - проверил, да и не было в десктопе - там все чисто по исключениям, расставлены все try ... except/finally.
А что значит - кончились сокеты? В декстопе же не кончались, я там тысячи подключений делал и работало идеально. Здесь же после 100 - 150 активных подключений уже все падает. Причем обнаружил такую вещь, которая совсем лишила меня понимания - иногда после "зависания" снова начинает работать, будто переполняется/высвобождается какой-то глобальный ресурс. В десктопе ничего подобного не было.

Пока вижу только два варианта -
1. Отказаться от службы и юзать десктопный вариант. Прям совсем не хотелось бы, ибо десктоп на сервере зло (нужен логин на сервер), а служба очень удобная вещь, сама запускается, работает в фоне, ресурсов минимум, не требует входа в систему - идеальный вариант для такого сервера.
2. Отказаться от TServerSocket и использовать что-то иное.

wadman,
Сейчас гляну...

Zelius,
Подключения постоянные - живут столько, сколько позволит сеть и условия. Там, где GPRS - рвется немного чаще, так как, по моему, сотовые операторы как-то регламентируют время жизни сессии. Там, где локалка - могут и сутками висеть

wadmanПальцем в небо: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\EnableConnectionRateLimiting - должно быть 0.
Вовсе нет такого параметра в этой ветви...

Zeliusoklalex,
посмотри netstat все же, сколько там висит соединений и в каком состоянии... может залипают соединения
Соединений там всегда очень много - некоторые из тех, что по GPRS, могут находиться в TIME_WAIT, это нормально для них в целом, потом, как я понимаю, они умирают и клиент переподключается. Те, которые по локальной сети или по LTE, там у всех ESTABLISHED всегда.

YuRockoklalexЗависание маловероятно, ибо поставил таймер и он работает в главном потоке, вижу по логамЗначит - точно MessageBox (или какое другое модальное окно) висит.
Он не мешает отрабатывать таймеру.
Если бы все было так просто ) Я этот код уже вверх дном перевернул, в десктопе запускал по-разному... Попробую еще поискать. Может, сам TServerSocket что выдает, но я его сообщения подавляю (ErrorCode задаю 0), а в лог себе вывожу перед этим

YuRockoklalexDmSer,
try... except все на месте, но все равно сейчас пытаюсь проверить на зависание/срабатывание Exception, может, где что упустил. В десктопе, правда, никаких исключений не выпадало, все обрабатывается.В "десктопе" были совсем другие права.
У службы, например, нет прав на сетевые шары, которые были у твоего "десктопа". И многое еще отличается. Ты можешь не видеть каких-то окон, объектов...
Может, в этом причина.
Вот про это думал тоже и не раз . Службу пробовал запускать, как от системной учетной записи, так и как сетевую службу, так и от имени администратора (задав логин и пароль в настройках службы). Ничего не помогает. Десктоп при этом запускал с обычными правами, как калькулятор. Да и служба там простая - парсит данные и сохраняет на отдельный локальный диск, никаких прав особых ей не требуется.