hello every body j'aimerais faire un chat mais voila le probleme (si on peut dire) c ke g delphi 7 avec comme composant installer Tcpserver et Tcpclient que j'utilise comme ceci mais apprement cela ne fonctionne po et avec mes maigres conaissance je n'arrive po a mettre la main sur le probleme g file le prog a un copain on sechange nos ip mais il recoit po ce ke j'envoi...
voici le code:
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit4.Text<>'' then if edit5.Text<>'' then begin
tcpclient1.RemoteHost:=edit4.Text;
tcpclient1.RemotePort:=edit5.Text;
tcpclient1.Open;
memo1.Lines.Add('Tentative de connection avec '+edit4.Text+' sur le port '+edit5.Text+' ...');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo1.Lines.Add('DKChat v0.1 - Bienvenu(e) !');
memo1.Lines.Add('--------------------------------------------');
edit1.Text:=tcpclient1.LocalHostAddr;
edit5.Text:='2089'; radiobutton1.Checked:=true;
tcpserver1.LocalPort:='2089';
tcpserver1.Active:=true;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
tcpclient1.Close; tcpserver1.Close;
application.Terminate;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
memo1.Clear;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
application.MessageBox('Free chat by dk ...','DKChat v.01 - dk@hdk.be.tf',MB_OK)
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if edit3.Text<>''then
begin
memo1.Lines.Add(edit2.Text+' dit : '+edit3.Text);
tcpclient1.Sendln(edit3.Text);
edit3.Clear;
end;
end;
procedure TForm1.TcpServer1GetThread(Sender: TObject;
var ClientSocketThread: TClientSocketThread);
begin
memo1.Lines.Add(tcpserver1.Receiveln);
end;
end.
dk2089