सभी कनेक्टेड क्लाइंट्स को कमांड भेजें

Question

मेरे पास एक TIdHttpServer है, मुझे क्लाइंट को कुछ कमांड भेजने के लिए कनेक्शन को खोलना होगा। जब मैं एक बटन दबाता हूं और सभी जुड़े ग्राहकों को आदेश भेजता हूं तो मैं पुन: प्रयास करना चाहता हूं।

मैं यह कैसे कर सकता हूं?

Answer 1

आप ग्राहकों को प्राप्त करने के लिए Contexts संपत्ति का उपयोग कर सकते हैं और फिर प्रत्येक ग्राहक के IOHandler का उपयोग करके आप एक संदेश भेज सकते हैं।

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;