TClientSocket, duvida cruel.

Delphi

08/09/2008

Crie 2 aplicações, Servidor e Cliente
o cliente se conecta ao servidor localmente sem problemas,
porém remotamente ele não consegue se conectar, a porta do meu modem está aberta e o servidor em execução, como tive duvidas de que poderia ser problema na configuração do modem usei este site https://www.grc.com/x/ne.dll?bh0bkyd2 para fazer um teste.

O resultado, me deixou confuso, o site conseguiu se conectar ao meu servidor que avisa sempre que uma conexão é recebida.


Cliente : 

procedure TForm1.BtnConnectClick(Sender: TObject);
begin
ClientSocket1.Address := Edit1.Text;
ClientSocket1.Port := 1234;
Try
ClientSocket1.Active := not ClientSocket1.Active;
Except End;
end;



Servidor :

procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Active:= not ServerSocket1.Active;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Msgs.Lines.Add(´Conectado com:´ + Socket.RemoteAddress);
end;



A dúvida no caso seria o por que de o site conseguir se conectar e o meu cliente não ?


Espero ideias , opniões...

abraço :D


Lucas_msn

Lucas_msn

Curtidas 0

Respostas

Lucas_msn

Lucas_msn

08/09/2008

após achar alguém disposto a fazer esse teste pra mim, ocorreu tudo corretamente.


GOSTEI 0
POSTAR