>salut :
>j'ai developé un logiciel de chat(client-serveur)et j'ai mis le fichier serveur a mon pc et le fichier client dans le pc de mon ami,apres le test le fichier serveur n'as pas detecté le fichier client,l'adress ip est correcte,le port=1025 dans les deux fichiers le code d'ereur est 61 mais vraiment j'ai pas trouvé le problem,
>aidez moi svp
>merci d'avance.
vous pouver telecharger les sources avec ce lien
[ Lien ]
et voici les code sources du deux fichiers
le code de cienlt----------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if clientsocket1.Active=false then
begin
try
ClientSocket1.Address := IPBox.Text;
ClientSocket1.Active := True;
except
form1.Caption:=('** Error Connecting.');
end;
end;
end;
///////////
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
form1.Caption := 'Disconnected';
end;
//////////
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
form1.Caption := 'Connected!';
end;
///////////
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
clientsocket1.Active:=false;
end;
///////////
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
form1.Caption:=('** Error: ' + IntToStr(ErrorCode));
ErrorCode := 0;
end;
//envoyer un text---------------------------------------------
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
begin
try
clientsocket1.Socket.SendText(edit1.Text);
except
end;
end;
end;
//recevoire un text------------------------------------
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('il: '+clientsocket1.Socket.ReceiveText);
end;
-----------------------------------------------------------
le code de serveur
//connection----------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Active := True;
Label1.Caption := 'Listening for connections.';
end;
//envoyer un text----------------------------------------------------
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
begin
try
serversocket1.Socket.Connections[0].SendText(edit1.Text);
memo1.Lines.Add('moi: '+edit1.Text);
except
end;
end;
end;
//recevoire un text--------------------------------------
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add('il: '+serversocket1.Socket.ReceiveText);
end;