[ Trodmi @ 24.11.2009. 15:24 ] @
Delphi 7 indy 9 i sledeci kod:
Code:

Procedure TForm1.Button2Click(Sender: TObject);
var
  List: TList;
  Index: integer;
begin
  List := IdTCPServer1.Threads.LockList;

  try

    for Index := 0 to List.Count-1 do
    begin

      with  TIdPeerThread(List[Index]).Connection do
      begin
        WriteLn('STOP');
        Readln();
        end;


    end;

  finally
    IdTCPServer1.Threads.UnlockList;
  end;
end;


Server mi se zablokira ili veliki delay. Postoji li neki elegantniji nacin za slanje poruke svim klijentima?
Hvala.
[ savkic @ 24.11.2009. 22:43 ] @
> WriteLn('STOP');
> Readln();
> Server mi se zablokira ili veliki delay. Postoji li neki elegantniji nacin za slanje poruke svim klijentima?

Ako očekuješ neku povratnu vrednost od klijenta onda ne, ako je dovoljno da samo pošalješ poruku, izbaci ReadLn.