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
non là je sais pas ...
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;
Partager