TsgcWebSocketServer | İstemci Bağlantıları

Etkin istemci bağlantılarına erişmek için, listede yineleme yapmak ve istemci bağlantı sınıfına erişmek için Connections özelliğini kullanabilirsiniz. Connections özelliği iş parçacığı korumalı (threaded) bir listeye erişir, bu nedenle önce listeyi kilitleyin ve işiniz bittiğinde listenin kilidini açın.

 

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;