tcpserver et tcpclient

Question

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&#233;');
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

Filipe35 · Answer

Regarde ma source

Utilisation Simple de winsock ou socket je sais plus ^^

Tcpserver et tcpclient

1 réponse

Votre réponse

Discussions similaires