problema conexiune cleint-server

[dannypapuc]

salut.la incercarea de a ma conecta dupa ce am bagat ip meu imi da o eroare:  asynchronous socket error 10060...
este o conexiune client server.am aici mai jos codul de la client.ma puteti ajuta cu o idee?
ip meu l-am bagat sub forma 184.88.45.121



procedure TClient.Button1Click(Sender: TObject);
begin
ClientSocket1.Address:=Edit1.Text;
 ClientSocket1.Active:=True;
end;

procedure TClient.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 Label1.Caption:='Esti conectat';
 Button1.Enabled:=False;
 Button2.Enabled:=True;
end;

procedure TClient.Button2Click(Sender: TObject);
begin
ClientSocket1.Active:=False;

end;

procedure TClient.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Label1.Caption:='Esti deconectat';
Button1.Enabled:=False;
Button2.Enabled:=True;
end;

procedure TClient.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=VK_RETURN)  then
ClientSocket1.Socket.SendText(Edit2.Text);
end;

iar cel de la server il am aici:

procedure TServer.Button1Click(Sender: TObject);
begin
ServerSocket1.Active:=True;
Label1.Caption:='Listenening for conection';
end;

procedure TServer.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Label1.Caption:=Socket.ReceiveText;
end;


v-asi fi recunoscator daca m-ati ajuta sa ma pot conecta...

[dannypapuc]

gata,problema rezolvata.era vb de ip de retea nu cel care il da pag www.whatismyip.com

[SkullAds]