TCPServer и TCPClient на indy 10, Отправка сообщения с сервара

[pomkalk]

Всем привет, У меня стоит TCPServer на indy 10, к нему подключено большое число клиентов через блокирующие соединение, все отлично работает, но возникла задача отправлять прямо с сервера всем подключенным клиентам "Системное" сообщение, либо конкретному, как это сделать, как отправить сообщение с сервера клиенту.

Использую delphi/c++ builder и indy 10, TCPServer и TCPClient, не TServerSocket

Заранее спасибо!

[SERG1980]

создаёте структуру клиента, например

type
 сlient = record
  clIP:String;//ip клиента 
  Con:TIdContext;
  Used:boolean//занят слот или нет
 end;

создадим массив клиентов

var clients: array [1..50] of client;//на 50 клиентов

У сервера есть обработчик в котором будем добавлять клиентов

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var i:integer;
begin
 for i:=1 to High(clients) do
  if not clients[i].Used then //если не занят слот
   begin
    clients[i].clIP:=AContext.Connection.Socket.Binding.PeerIP);
    clients[i].Con:=AContext;
    clients[i].Used:=true;//слот занят 
   end;
end;

потом уж пробегайтесь в цикле по clients и если слот занят т.е. используется отсылайте сообщение

if clients[i].Used then clients[i].Con.Connection.IOHandler.WriteLn('привет')

ну и не забывайте при отсоединении клиента освобождать место

[pomkalk]

А в клиенте какое событие при этом среагирует?

[SERG1980]

а в клиенте придётся ставить таймер и в нём писать:

 if TCPClient.Connected then
  begin
   try
    s:=TCPClient.ReadLn;//var s:string;
   except
    on EIdReadTimeOut do;//игнорируем ошибки таймаута
    else TCPClient.Disconnect;//если чё не так то отсоединяемся 
  end;
  end;

ну и ставить таймер например на 100мс