| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с работой сервера (TWSocket) в сервисе [D6, D7, WinXP]

Oleg ©   (2007-10-23 00:14:00) 

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

Есть два класса: Сервер и Клиент, оба наследники от 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 или имя компьютера, на котором запущен сервер, и его порт.

---

umbra   (2007-10-23 11:32:00) [1]

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

---

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

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

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


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

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

---

sniknik   (2007-10-23 00:29:00) [3]

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

---

Наверх