[Delphi] Pegar IP de uma URL.

[Pricesz 4]

Vou ensinar algo simples de como pegar o IP de uma URL (Site). Para quem não sabe o que é IP, é um endereço utiliza-se a forma de endereços de domínio, tal como "www.webcheats.com.br". Cada endereço de domínio é convertido em um endereço IP pelo DNS. Este processo de conversão é conhecido como "resolução de nomes".

 

Abra seu Delphi, e crie um novo projeto, logo após adicione em seu form:

• 1 Edit
  
• 1 Button
  
• 1 Memo
  

 

Declare a Uses:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Logo, declare estas funções:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Adiciona o evento no Button:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Resultado:

 

Detalhe: Não coloque http:// Irá dar um erro de Host não conhecido. Então coloque somente www. Exemplo:

[noparse]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/noparse]

Por: Rodolfo Drosdosky Bodenmüller

[bubaloo 0]

Legal, to iniciando com delphi agora :D

e to curtindo muito.

[Pricesz 4]

Legal, to iniciando com delphi agora

e to curtindo muito.

Oba, que legal. Continue aprendendo. qualquer coisa me chame ^^

[Lacy 6]

Este Metodo é mais Complicado e Avançado, aqui vai uma maneira bem mais simples:

 

Basta adicionar um IdIcmpClient na aba Indy Clients

 

Depois adicionar :

 

1Edit

1Button

1Memo

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

['CODE 1]

Este Metodo é mais Complicado e Avançado, aqui vai uma maneira bem mais simples:

 

Basta adicionar um IdIcmpClient na aba Indy Clients

 

Depois adicionar :

 

1Edit

1Button

1Memo

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Nossa , bem mais simples e funcional.

 

Sou tambem mais um iniciante no Delphi e gostei '-'.

 

É bem mais pratico e rapido do que utilizar o Ping '-'.