Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Indy 9 server slanje poruke svim klijentima

[es] :: Pascal / Delphi / Kylix :: Indy 9 server slanje poruke svim klijentima

[ Pregleda: 1673 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Trodmi

Član broj: 58036
Poruke: 193
212.200.206.*



Profil

icon Indy 9 server slanje poruke svim klijentima24.11.2009. u 15:24 - pre 174 meseci
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.
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Indy 9 server slanje poruke svim klijentima24.11.2009. u 22:43 - pre 174 meseci
> 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.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Indy 9 server slanje poruke svim klijentima

[ Pregleda: 1673 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.