TClient/Server Sockets: String an alle Clients gleichzeitig?

[romber]

Hallo!

Mehrere Clients sind mithilfe der Sockets mit dem Server verbunden. Kann ich irgendwie einen String an alle Clients gleichzeitig senden?

[sakura]

Ich habe es nicht getestet, da ich iA mit den Indy-Tools arbeite, aber hier mein Vorschlag

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  with TcpServer1.ServerSocketThread.ThreadPool do
    for I := 0 to Pred(Count) do
      with TCustomIpClient(Items[I]) do
        if Connected then
          SendTo(....)
end;

......

[XHelp]

Mit TClient/ServerSocket geht das so:

Delphi-Quellcode:

for i:=0 to SS1.Socket.ActiveConnections-1 do begin
  SS1.Socket.Connections[i].SendText('test');
end;

[romber]

Vielen Dank!