Como obter o IP do computador? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como obter o IP do computador?

 

Em alguns casos, como por exemplo, em um gerador de chaves de segurança,
precisamos obter o IP do computador onde o sistema está sendo executado.

Para simplificar este trabalho, foi criada uma função que deixa
esta atividade muito fácil de ser executada.

É necessário estar declarado WinSock na seção uses,
em versões unicode declare Winapi.WinSock;

Abaixo segue o código fonte da função.

1
2
3
4
5
6
7
function GetIpMachine: String;
var
  wsaData : TWSAData;
begin
  WSAStartup(257, wsaData);
  Result := Trim(inet_ntoa( PInAddr( GetHostByName( nil )^.h_addr_list^ )^ ));
end;

Exemplo de uso.

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Exemplo de retorno: 192.168.0.200
  ShowMessage(GetIpMachine);
end;
Facebook Comments

Posts Relacionados

  • Administrador
  • 547 views
  • 0 comentários
  • 29 de março de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo


© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados