Invia comando a tutti i client connessi

Question

Ho un TIdHttpServer che deve mantenere aperta la connessione per inviare alcuni comandi ai client. Voglio ripetere quando premo un pulsante e invio un comando a tutti i client connessi.

Come posso fare questo?

Answer 1

È possibile utilizzare la proprietà Contexts per ottenere i client e quindi utilizzare lo IOHandler di ogni client che è possibile inviare un messaggio.

Var 
    Clients : TList; 
    i : integer; 
begin 

    if not Assigned(IdTCPServer1.Contexts) then exit; 

    Clients:=IdTCPServer1.Contexts.LockList; 
    try 
    for i := 0 to Clients.Count-1 do 
     try 
     TIdContext(Clients[i]).Connection.IOHandler.Write(LBuffer);//LBuffer is a TBytes with the data to send 
     except 
     ... 
     end; 
    finally 
    IdTCPServer1.Contexts.UnlockList; 
    end; 

end;