|
|
|
новичок
участник
Last Login: 25.07.2005 13:32
Сообщ.: 4,
Visits: 45
|
|
У меня есть зарегистрированный COM+ компонент.
Этот компонент запускается автоматически когда к нему идет обращение.
Но вот чтобы его застопить (shatDown) мне нужно зайти в Администативные утилиты/Component Services и дальше по веточкам COM+ Applications... и ручками застопить этот компонент.
Вопрос. Как можно программно (WinAPI или как-нить по-другому) сделать shatdown COMплюсового компонента.
Приму любые советы на любом языке программирования.
Спасибо.
|
|
|
|
|
Forum Guru
участник
Last Login: 21.03.2008 17:41
Сообщ.: 73,
Visits: 815
|
|
Я так понимаю, нуна организовать извещение в экземпляры компонента команду останова.
Как одно из решений (не скажу что оптимально и в духе кома)...
Шаред область данных. В области данных - любые охранные хэндлеры, кол-во экземпляров, хэндлеры семафоров - всё что нужно для многопользовательского разруливания. Единственное ограничение - место хранения (может и глючу) - одно и то же должно быть.
с уважением
(круглый)
|
|
|
|
|
новичок
участник
Last Login: 25.07.2005 13:32
Сообщ.: 4,
Visits: 45
|
|
Спасибо за ответ.
Первая фраза - правильная.
Да. Нужно каким-то образом послать сообщение СОМ+ серверу, чтобы он закрылся.
Это СОМ приложение разработано не мной. Поэтому я не могу вмешаться во внутреннюю реализацию (области данных, семафоры... и т.д.)
Одновременно мне абсолютно все равно если там какой-нибудь клиент этого СОМ+а отвалится.
Мне нужно принудительно зашатдаунить это приложение как это делается в
АдминистративТулз\Component Services\...\СОМ+ Applications\TraTaTaCOM+\Shat Down
|
|
|
|
|
новичок
участник
Last Login: 25.07.2005 13:32
Сообщ.: 4,
Visits: 45
|
|
Все. нашел. всем спасибо. :)
Dim oCatalog 'As COMAdmin.COMAdminCatalog'
Dim sName 'As String'
Set oCatalog = CreateObject("COMAdmin.COMAdminCatalog","имякомпа")
sName = "ИмяСОМа"
oCatalog.ShutdownApplication sName
Set oCatalog = Nothing
|
|
|
|