Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Вниз

COM + Служба 


MVova   (2002-04-19 14:21) [0]

Привет всем.

Есть COM сервер, работает.
Если делаю его как сервис то, запускается и какбы работает но при подключении клиентов запускается новый екземпляр(как обычное приложение) и все клиенты подключаются к нему. Как заставить клиентов подключаться к сервису?

При создании сервиса ставлю следующие параметры:

Dependence := TDependency(Dependencies.Add);
Dependence.Name := "MSSQLServer";
AllowPause := False;
Interactive := True;
DisplayName := "MyService";
Name := "My Service";
OnStart := Start;
OnStop := Stop;



Romkin   (2002-04-19 14:52) [1]

Клиенты должны подключаться к существующему серверу, а не к новому. Указание этого зависит от способа подключения



Shaman_Naydak   (2002-04-19 15:02) [2]

Мда, знакомая до боли тема, я на нее почти неделю убил..
Разъяняю:
а) во-первых, тут есть хитрость в регистрации такого ко-класса в
реестре (см. RegisterAsService)
б) во-вторых, он должен регистрить ко-классы при запуске не из основного потока, а естесственно из потока сервиса..

Короче, мужик, если хочешь, могу выслать переписанный под это
дело мной модуль comServ в NTServiceComServ +
простой пример.. Но так как меня время дико поджимало, там не все
красиво сделано, а руки так и не дошли до сих пор :(



vuk   (2002-04-19 15:33) [3]

Кстати о зависимостях. Для COM-сервиса необходимо добавить также зависимость от RpcSs.



MVova   (2002-04-19 15:39) [4]

Шли если можеш, посмотрю.
Спасибо.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.74 MB
Время: 0.022 c
14-2681           Malder                2002-03-25 13:03  2002.05.02  
Книга Архангельский А.Я.


7-2702            =www=                 2002-02-04 20:05  2002.05.02  
Шрифты


1-2609            Orvat                 2002-04-20 08:39  2002.05.02  
Форма в библиотеке


1-2586            Song                  2002-04-19 13:29  2002.05.02  
Нужно отсортировать по возрастанию дат ветви TTreeView


3-2467            Limonad               2002-04-11 08:53  2002.05.02  
Как удалить сразу несколько записей в базе данных?