Hallo,
ich habe einen
COM-Server. Mit folgendem Code kann ich allen angeschlossenen Clients den gesendeten Text zukommen lassen.
Delphi-Quellcode:
procedure TEventInv.SendText(const Text: WideString);
var
Enum : IEnumConnections;
ConnectData : TConnectData;
Fetched : Cardinal;
begin
Enum := GetEnumerator;
if Enum <> nil then
begin
while Enum.Next(1, ConnectData, @Fetched) = S_OK do
if ConnectData.pUnk <> nil then
(ConnectData.pUnk as IEventInvEvents).OnText(Text);
end;
//frmComSrv.FEventsBuffer.OnText(Text);
end;
Wie kann ich den Client identifizieren, der das SendText-Ereignis ausgelöst hat?
mfg
wo