Проблема с работой сервера (TWSocket) в сервисе

← →
Oleg (2007-10-23 00:14) [0]

Здравствуйте. Такая проблема:

Есть два класса: Сервер и Клиент, оба наследники от TWSocket.
Клиент - создается и "живет" в обычном Application.
Сервер тоже создавался в простом проекте Application, при этом все работает замечательно: сервер стартует, клиент к нему коннектится и они спокойно обмениваются нужными данными. Решил Серверное приложение переписать как сервис.
При использовании точно такого же кода, Сервер стартует и живет нормально, выполняет все действия, а Клиент не может подконнектится к Серверу, если он запущен как сервис.
В каком направлении вообще стоит искать? Что не так?

Tserver = class(TWSocket) ... public procedure Start; procedure Stop; ... end; - эти два метода Сервера работают всегда и везде.

TClient = class(TWSocket) ... public procedure Open; procedure Connect; ... end;
В клиенте метод Connect вызывается внутри метода Open, но возвращает ошибку в случае, если Сервер запущен из-под сервиса. Если Сервер запущен как простое приложение, все работает замечательно.

Создание экземпляра сервера в обоих случаях одинаково:
Server := TServer.Create(Self); Server.Start
Родитель у сервера в обоих случаях наследник от TComponent.

Вызов коннекта со стороны клиента
Client := TClient.Create(Self); Client.IP := sIP; или Client.CompName := sCompName; Client.Port := nPort; Client.Open;

здесь указывается IP или имя компьютера, на котором запущен сервер, и его порт.

← →
sniknik © (2007-10-23 00:29) [1]

> Что не так?
глюк в коде сервиса (того, что сдесь не показан). логический глюк (не то, что при компиляции выявляется)...
например (!!! только пример) не учтено, что сервис это фактически отдельный поток и не сделана обработка сообщений в его "рабочем методе".
ну, или еще чтото аналогичное.

← →
Германн © (2007-10-23 01:28) [2]

> В клиенте метод Connect вызывается внутри метода Open, но
> возвращает ошибку в случае, если Сервер запущен из-под сервиса.
>

Ну ошибку. А какую? Неужели совсем не понятно, что в вопросе об ошибке стоит процитировать сообщение об этой ошибке?

> Создание экземпляра сервера в обоих случаях одинаково:
> Server := TServer.Create(Self);
> Server.Start
> Родитель у сервера в обоих случаях наследник от TComponent.
>

А это вообще малопонятно. Если под "родителем" подразумевается Parent, то при чём тут сервис, который по определению "безоконный"?

у сервиса нет цикла обработки оконных сообщений, которые нужны для неблокирующих сокетов

Проблема с работой сервера (TWSocket) в сервисе Найти похожие ветки