Mehrere Sockets in einer Anwendung

[Muetze1]

Der ServerSocket hat eine Untereigenschaft Connections[] und ConnectionCount. Darin findest du den Socket zu jedem Client der mit dir verbunden ist. Somit kannst du doch leicht nach empfangen einer Nachricht von einem Client diese an alle anderen Clients weitersenden.

Delphi-Quellcode:

procedure TForm1.ServerSocketClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  i: Integer;
  lMsg: string;
begin
  lMsg := Socket.ReceiveText;

  for i := 0 to pred(ServerSocket1.Socket.ConnectionCount) do
  begin
    if ServerSocket1.Socket.Connections[i] <> Socket then // nicht an den Sender selbst schicken
      ServerSocket1.Socket.Connections[i].SendText(lMsg);
  end;
end;