je ne parviens pas a echanger des informations entre ces deux composants. si quelqu un pouvait m aider.
[code]
procedure TFormPrincipale.Button1Click(Sender: TObject);
begin
TcpServer1.Active:= not TcpServer1.Active;
if TcpServer1.Active= True
then ListBoxLog.Items.Add('Listening')
else ListBoxLog.Items.Add('Stoppé');
end;
procedure TFormPrincipale.Button2Click(Sender: TObject);
begin
TcpClient1.RemoteHost:='localhost';
TcpClient1.RemotePort:='1000';
TcpClient1.Active:= not TcpClient1.Active;
end;
procedure TFormPrincipale.Button3Click(Sender: TObject);
begin
TcpClient1.Sendln('salut !!!');
end;
procedure TFormPrincipale.TcpServer1GetThread(Sender: TObject;
var ClientSocketThread: TClientSocketThread);
begin
ListBoxLog.Items.Add(ClientSocketThread.ClientSocket.Receiveln);
end;
[\code]
merci