Socket Server

[strom]

hallo,

wie kann man die Anzahl der Clients am Server ermitteln?

[DeddyH]

Meinst Du TServerSocket? Wenn ich mich recht entsinne, müsste man das über TServerSocket.Socket.ActiveConnections abfragen können.

[strom]

Ja, TServerSocket!

[strom]

hallo,

Danke, bekomme den Wert 0 zurück! Ist das Richtig?

Delphi-Quellcode:

procedure TForm1.ServerSocket2ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  i : integer;
begin
   memo3.Lines.Add(ServerSocket2.Socket.ActiveConnections.ToString(i));
end;

[Klaus01]

.. vielleicht funktioniert es so:

Delphi-Quellcode:

procedure TForm1.ServerSocket2ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   memo3.Lines.Add(intToStr(ServerSocket2.Socket.ActiveConnections));
end;

Grüße
Klaus

[mjustin]

Zitat von strom:

hallo,

Danke, bekomme den Wert 0 zurück! Ist das Richtig?

Delphi-Quellcode:

procedure TForm1.ServerSocket2ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  i : integer;
begin
   memo3.Lines.Add(ServerSocket2.Socket.ActiveConnections.ToString(i));
end;

Das gibt 0 aus, da die noch nicht lokale initialisierte Variable i zufällig den Wert 0 hat ...

[strom]

Super"Klaus01" geht!

[mjustin]

Delphi-Quellcode:

procedure TForm1.ServerSocket2ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
   Memo3.Lines.Add(IntToStr(Socket.ActiveConnections));
end;

Sollte gehen, jedoch muss noch - falls die Methode nicht im Kontext des Hauptthreads aufgerufen wird - der Zugriff auf Memo3 synchronisiert werden, da es sonst zu Problemen wie "Hängern" kommt.