projet de chat avec delphi 7

Question

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

cs_dk · Answer

oui bon en fait
g trouver mon erreur c po tcpserver1.receiveln mais clientsocket.receiveln
bientot
dk2089

Projet de chat avec delphi 7

1 réponse

Votre réponse

Discussions similaires