Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
ВнизУбить DCOM сервер. Найти похожие ветки
← →
yaJohn (2002-10-10 15:13) [0]Есть DCOM сервер, реализованный в виде EXE. Запускается он не как COM сервер, а как обычное приложение.
Собственно обращение к COM серверу идет из самого приложения (сам с собой общаюсь). При попытке закрыть приложение выдается сообщение There are still active COM objects in this application. Даже если активных коннектов к COM серверу нет. Нужно закрыть сие приложение без лишнего шума (без оного сообщения).
И как?
← →
kerk (2002-10-10 15:17) [1]Перед закрытием закрыввай все запущенные обьекты - CoDisconnectObject.
Best regards.
← →
yaJohn (2002-10-10 15:45) [2]Proshu proshenia, no ya v jutkoi zaparke, gde vziat" vse zapushenie ob"ekti? Vernee ih IUnknown.
Zaranee spasibo.
← →
kerk (2002-10-10 16:04) [3]Можно например так: в Initialize добовляется обьект в TThreadList MyThreadList.Add(Self), а в Destroy обьекта удаляяется MyThreadList.Remove(Self)(потом можно вызыать методы и свойства каждого из этих обьектов) ну и в OnClose:
var
I: Integer;
Connection: TMyComObject;
begin
with MyThreadList.LockList do
try
for I := 0 to Count - 1 do
begin
Connection := TMyComObject(Items[I]);
CoDisconnectObject(Connection as IUnknown, 0);
end;
finally
Connections.UnlockList();
end;
end;
Best regards.
← →
kerk (2002-10-10 16:16) [4]Кстати нужно создать в initialization а то если создать в OnCreate будут некоторые проблемы:
initialization
MyThreadList:= TThreadList.Create();
finalization
MyThreadList.Free();
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c