Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.018 c
3-2482            MCFire                2002-04-11 11:45  2002.05.02  
Опять TreeView


3-2472            Леонид                2002-04-11 11:09  2002.05.02  
Поле просмотра в TDBGrid


1-2512            Николай.              2002-04-18 06:49  2002.05.02  
Создание exe-файла


4-2709            alexey1               2002-02-27 12:40  2002.05.02  
Вопрос на использование функции FindWindowEx


3-2455            Roman_Tutov           2002-04-10 17:33  2002.05.02  
dBase & cp1251