Убить 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();

Убить DCOM сервер. Найти похожие ветки