voila javais deja eu qq petits soucis avec le prjet de chat que je suis en train de realiser mais jamais a cette ampleur lol, qd je lance mon prog ca se passe bien apparement je peux communiker sans prob avec interlocuteur mais je suis obliger de lui donner mon ip et lui de meme mais j'aimerais qu'un seul de nous doivent donner son ip ...
2 eme prob le plus important entre () c que qd je clike mon programme g au moins 5 erreurs differents ce qui fait que windows plante et je suis obliger de rebooter je me suis dit d'abord que ct parce ke je ne refermait po le tcpserver et tcpclient donc g ajouter des lignes pour que ce soit le cas mais ca ne change absolument rien donc je suis un peu desesperait vu ke je vois vraiment po ce ke je pourrait faire mis a part rajouter la gestion des erreurs de connection mais la aussi je bloke un peu voici mon code aidez moi svp

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('--------------------------------------------');
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(edit2.Text+' dit: '+edit3.Text);
edit3.Clear;
end;

end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
while clientsocket.Active=true do
memo1.Lines.Add(clientsocket.Receiveln);
end;

end.


dk2089

g oublier de stipuler que j'ai rajouter ceci dans la procedure tcpserver1accept en fait voila la procedure au comlpet:

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
memo1.lines.add('connexion etablie avec '+clientsocket.remotehost+' ');
memo1.lines.add('***debut de conversation***');

while clientsocket.Active=true do
memo1.Lines.Add(clientsocket.Receiveln);

memo1.lines.add('***Fin de conversation***');
end;




dk2089

oki ben c po la peine de repondre a ce post g trouver mon erreur tout seul si jamais vous avez le meme probleme que moi voici ce que j'ai mis dans ma procedure

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var s:string;
begin
memo1.Lines.Add('Connexion avec '+clientsocket.RemoteHost+' etablie !');
memo1.Lines.Add('***Debut de conversation***');
s:=clientsocket.Receiveln;
while s<>'' do begin
memo1.Lines.Add(s);
s:=clientsocket.Receiveln;
end;
memo1.Lines.Add('***Fin de conversation***');
end;

et maintenant je n'ai plus qu'une toute petite erreur mais uniquement quand je lance le prog apres lavoir compiler avec delphi si je lance unikement lexecutable que g creer, qd je le ferme g n'ai po d'erreur donc je considere mon probleme comme regler a 95%
@ bientot


dk2089