Bonjour! Alors voila, je voudrai realisé un Chat Multi-Client et je voudrai que depuis mon serveur, je puisse selectioné le Thread a qui envoyé le message, seulement deja quand j'envoi mon message a tout les Client, les clients ne reçoivent rien:
Serveur:
procedure TForm1.Button4Click(Sender: TObject);
var List: TList;
i:Integer;
begin
List:= Server.Threads.LockList;
For i:=0 to pred(List.Count) do
Server.Threads.UnlockList;
List.Free;
end;
Client(Cette procedure est placée OnWork):
procedure TForm1.ClientWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
Edit1.Text:=Client.ReadLn();
end;
end.
Ou est mon erreur?
Et.... en passant, si a la place de i je met le numero du Client (par exemple 1 si je veu parlé au premier client connecté) la methode est-elle bonne? Merci beaucoup de vos reponse