Einzelnen Beitrag anzeigen

WoGe

Registriert seit: 16. Jun 2005
Ort: Kelkheim
178 Beiträge
 
Delphi 10.3 Rio
 
#1

COM Client identifizieren

  Alt 26. Aug 2005, 08:20
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
  Mit Zitat antworten Zitat