[Kirhanter]

Здравствуйте, создаю мессенджер и нужно отправить всем подключённым клиентам сообщение. Server.socket.sendtext(И тут текс) - не подходит т.к. отправляет определённому клиенту. Прошу помочь

[Alegun]

Подходит

Код:

...
 for i := 0 to Server.Socket.ActiveConnections-1 do 
      Server.Socket.Connections[i].SendText('И тут текс');
...

[nixon232]

опоздал...

Код:

var
  client: TCustomWinSocket;
begin
  for I := 0 to ServerSocket1.Socket.ActiveConnections-1 do
  begin
    client := ServerSocket1.Socket.Connections[i];
    client.SendText(msg);
  end;
end;

[Kirhanter]

Всем спасибо большое)