TServerSocket User auslesen und an Client übergeben

[Lill Jens]

Hey DP'ler :)

Hab mir ein kleines Chat Programm gebastelt mit TServerSocket und TClientSocket.

Hab folgende Frage:

Ist es möglich die Clients die sich auf meinen auf meinen ServerSocket verbinden an alle verbundenen Clients zu übergeben, sprich das in einer ListBox alle User die Online sind bei jedem angzeigt werden?

Danke für eure Hilfe

LJ

[sirius]

Na klar, du musst sie nur an alle clients senden :gruebel:

[Lill Jens]

Zitat:

Zitat von sirius

Na klar, du musst sie nur an alle clients senden :gruebel:

Danke für deine Antwort. Aber wie stell ich das an?

[DeddyH]

Mit SendText an alle Clients, würde ich mal aus dem Hut vorschlagen.

[Lill Jens]

Schon klar ;)

Aber was genau muss ich an die Clients schicken das die Nicknames oder die Ips beim Client landen?

Der Client selber schreibt den abgeholten Text in ein Memo die User an sich möchte ich aber in einer Listbox anzeigen lassen...und geht der user off soll natürlich sein name nicht mehr angzeigt werden.

[DeddyH]

Ich hab die Socket-Kompos nicht installiert, aber in den Demos war doch IIRC ein Chat dabei, da könnte man mal nachsehen.

[Lill Jens]

Alles klar dann schau ich mal in die Demo da hatte ich noch garnet drüber nachgedacht.

Thx

// Edit: Na super unter RadStudio gibt es keine Demos mehr?!

[MSSSSM]

Delphi-Quellcode:

var i:integer;
begin
  if Server.Socket.ActiveConnections > 0 then
  begin
    for i:=0 to Server.Socket.Connections[i].SendText('Hallo an alle!');
  end;
end;

So mache ich es...

[Namenloser]

Zitat:

Zitat von MSSSSM

Delphi-Quellcode:

var i:integer;
begin
  if Server.Socket.ActiveConnections > 0 then
  begin
    for i:=0 to Server.Socket.Connections[i].SendText('Hallo an alle!');
  end;
end;

So mache ich es...

Glaube ich dir nicht :mrgreen:

[MSSSSM]

Bin ich dämlich... :wall: :wall: :stupid:

Delphi-Quellcode:

var i:integer;
begin
  if Server.Socket.ActiveConnections > 0 then
  begin
    for i:=0 to Server.Socket.ActiveConnections do
      Server.Socket.Connections[i].SendText('Hallo an alle!');
  end;
end;