TsgcWebSocketServer | Client Connections

Aby uzyskać dostęp do aktywnych połączeń klientów, można użyć właściwości Connections w celu iterowania po liście i uzyskania dostępu do klasy połączenia klienta. Właściwość Connections umożliwia dostęp do listy z obsługą wątków, dlatego należy najpierw zablokować listę, a po zakończeniu pracy ją odblokować.

procedure DoClientIPAddresses;
var
  i: Integer;
  oList: TList;
  oConnection: TsgcWSConnectionServer;
begin
  oList := TsgcWebSocketHTTPServer1.LockList;
  Try
    for i := 0 to oList.Count - 1 do
    begin
      oConnection := TsgcWSConnectionServer(TIdContext(oList[i]).Data);
      ShowMessage(oConnection.IP + ':' + IntToStr(oConnection.Port));
    end;
  Finally
    TsgcWebSocketHTTPServer1.UnLockList;
  End;
end;