Discussion :

[korntex5]

salut je cherche a envoyer un message depuis mon apli serveur vers chaque clients en tcp j'ai fais ça mais mache pas seul le premier ip de la liste affiche le showmessage



//Pour le serveur qui à la liste des ip clients

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TVKForm2.Button7Click(Sender: TObject);
var
  i:integer;
  tempstr:string;
begin
  with IdTCPClient1 do
  begin
    try
      for i:=0 to Listeclients.Count-1 do
      begin
        tempstr:=copy(Listeclients.Items[i],1,Pos(':',Listeclients.Items[i])-2); //recup l'ip de la liste
        Host:=tempstr;
        if not Connected then
          Connect;
        IOHandler.WriteLn('Say '+edit5.text);//envoie le message à afficher cher le client
        //Disconnect;
      end;
    except
      on E : Exception do
      ShowMessage(E.Message);
    end;
  end;
end;

//code client

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure TForm1.IdCmdTCPServer1SayCommand(ASender: TIdCommand);
begin
  showmessage('Vous avez reçu un message !! : '+ASender.Params.Strings[0]);
end;

non là je sais pas ...

[korntex5]

personne n'a une petite idée???