BorlandTalk.com

Parmod · Guest

I am trying to write a COM server and various COM clients. The code works
until the client crashes for some reason, at which point the server just
goes crazy trying to send events to the client who has passed away. Can
someone tell me how to determine that the client is no longer there. I use
the following code to send events.

Thanks in advance for your help.

Parmod

function GetConnectionEnumerator: IEnumConnections;
var
Container: IConnectionPointContainer;
CP: IConnectionPoint;
begin
Result := nil;
try
//+++++got error here
OleCheck(QueryInterface(IConnectionPointContainer, Container));
OleCheck(Container.FindConnectionPoint(AutoFactory.EventIID, CP));
OleCheck(CP.EnumConnections(Result));
except
on E: Exception do
ShowMessage('GetConnectionEnumerator: '+E.Message);
end;
end;

procedure OnAboutRequest;
var
EC: IEnumConnections;
ConnectData: TConnectData;
Fetched: Cardinal;
begin
EC := GetConnectionEnumerator;
if EC <> nil then
begin
while EC.Next(1, ConnectData, @Fetched) = S_OK do
if (Fetched = 1) and (ConnectData.pUnk <> nil) then
(ConnectData.pUnk as ISpeechXTrayEvents).OnAbout;
end;
end;

Maynard Philbrook · Guest

just post some kind of ping message to the client that has to echo back.

Parmod wrote: