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; |
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; |
procedure TForm1.Button1Click(Sender: TObject);
begin
// Exemplo de retorno: 192.168.0.200
ShowMessage(GetIpMachine);
end;
-
InfusTec
-
6.520 views
- 0 comentários
- 29 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo