Sende Befehl an alle angeschlossenen Clients

Question

Ich habe einen TIdHttpServer Ich muss die Verbindung offen halten, um einige Befehle zurück an die Clients zu senden. Ich möchte iterieren, wenn ich eine Taste drücke und einen Befehl an alle verbundenen Clients sende.

Wie kann ich das tun?

Answer 1

Sie können die Contexts Eigenschaft verwenden, um die Clients zu erhalten und dann die IOHandler jedes Clients verwenden, die Sie eine Nachricht senden können.

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;