Bağlı tüm istemcilere komut gönderme

Question

Bir TIdHttpServer var, bazı komutları istemcilere geri göndermek için bağlantıyı açık tutmalıyım. Bir düğmeye bastığımda ve tüm bağlı istemcilere bir komut gönderdiğimde yinelemek istiyorum.

Bunu nasıl yapabilirim?

Answer 1

İstemcileri almak için Contexts özelliğini kullanabilir ve daha sonra bir ileti gönderebileceğiniz her bir müşterinin IOHandler numarasını kullanabilirsiniz.

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;