Pascal/Delphi Programa com Delphi e TCP/IP

[Insurgent3]

Olá pessoal,

 

Achei um artigo bem direto e prático para se aprender TCP/IP com Delphi:

 

http://theclub.com.br/Restrito/Revistas/201008/comu1008.aspx

 

E aqui esta um printscreen do sistema onde tento fazer a conexão do "Cliente" ao "Servidor":

 

 

Acontece que não funciona. Eu digitei meu IP de diversas formas no cliente para ele se conectar ao servidor mas ele não conecta.

 

Alguém sabe porque não funciona ou tem algum outro artigo sobre TCP/IP com Delphi?

 

Muito obrigado.

 

[Flávio Pedroza]

O cliente e o servidor estão na mesma máquina?

[Insurgent3]

Olá, 

 

Obrigado por responderem.

 

@Flávio Pedroza Sim, o servidor e o cliente estão na mesma máquina. Li algo a respeito e suspeito que não funcione na mesma máquina. Talvez funcione em maquina virtual que é exatamente o que irei fazer.

 

@KXSY Obrigado pelas informações!

 

Obrigado.

[Flávio Pedroza]

21 horas atrás, Insurgent3 disse:

Olá, 

 

Obrigado por responderem.

 

@Flávio Pedroza Sim, o servidor e o cliente estão na mesma máquina. Li algo a respeito e suspeito que não funcione na mesma máquina. Talvez funcione em maquina virtual que é exatamente o que irei fazer.

 

@KXSY Obrigado pelas informações!

 

Obrigado.

Acho que funciona sim, use o endereço IP 127.0.0.1 para conectar o cliente no servidor (localhost).

[Insurgent3]

@Flávio Pedroza Obrigado pela ajuda. Mas tentei praticamente todos as formas de se conectar ao "servidor", usando "localhost", "127.0.0.1", 127.0.0.1:3000 etc e NÂO funciona nada.hehe!

 

[Insurgent3]

Muito obrigado pelas ajudas!

 

Consegui.

 

 

 

Eu "liguei" as opções 'Active' para "true" e fiz umas verificações. Ficou assim:

 

 

No cliente:

TcpClient1.RemoteHost := edit1.Text;
TcpClient1.RemotePort := '100';
TcpClient1.Active := true;

No servidor:

 

TcpServer1.LocalPort := '100';
TcpServer1.Active := true;

 

Funcionou!

 

Muito obrigado pela ajuda.