Приветствую всех !
Столкнулся вот с какой задачей:
Реализован внешний Com-сервер автоматизации (Automation Object), обеспечивающий обратную связь со своими клиентами посредством событий:
| Код |
TDateListVes = class(TAutoObject, IConnectionPointContainer, IDateListVes)
//...
function TDateListVes.GetconnectionEnamerator: IEnumConnections;
var
Container: IConnectionPointContainer;
CP: IConnectionPoint;
begin
Result:=nil;
OleCheck(QueryInterface(IConnectionPointContainer, Container));
OleCheck(Container.FindConnectionPoint(AutoFactory.EventIID, CP));
CP.EnumConnections(Result);
end;
procedure TDateListVes.DoChange;
var
EC: IEnumConnections;
ConnectData: TConnectData;
Fetched: Cardinal;
begin
EC:=GetconnectionEnamerator;
if EC <> nil then
begin
while EC.Next(1, ConnectData, @Fetched) = S_OK do
if ConnectData.pUnk <> nil then
if Assigned(ConnectData.pUnk) then
try
(ConnectData.pUnk as IDateListVesEvents).OnChange; //здесь получаем AV
except
end;
end;
end;
|
В процедуре DoChange получаем перечень клиентов сервера, затем перебираем клиентов и генерируем на их "стоках" событие OnChange. При закрытии программы - клиента на OnClose главной формы осуществляется отключение от сервера автоматизации:
| Код |
ListCX: IDateListVes;
//...
InterfaceDisconnect(ListCX, IDateListVesEvents, FCookie);
FEventSink.Free;
ListCX:=nil;
|
Проблема в том, что приложение - клиент может быть закрыто через диспетчер задач (вкладка "Процессы") или какой-либо другой тяжелой артиллерией и процедура отключения от сервера не сработает -> сервер не будет знать о том, что клиент отключился и при попытка генерации события на "стоке" клиента он получит ошибку AV. Я поставил заглушку в виде блока try..except, но это ведь не дело. Подскажите как перед генерацией события мне проверить доступность клиента ?
ЗЫ: описал задачу как смог, если понадобятся уточнения, то спрашивайте. |
)