Simplesmente técnico: a Internet é construída em conexões TCP / IP. A parte TCP descreve como dois computadores configuram uma conexão entre si e transferem dados. A parte do IP lida principalmente com a maneira de obter uma mensagem roteada pela Internet. Cada máquina conectada possui um endereço IP exclusivo que permite que outras pessoas descubram um caminho para qualquer computador na Internet (ou no mundo com precisão).
Para obter o endereço IP do computador que você está usando quando conectado à Internet, precisamos chamar algumas das funções da API * definidas * na unidade Winsock.
Vamos criar um GetIPFromHost função que chama várias funções da API do Winsock para obter o IP. Antes de podermos usar as funções do WinSock, precisamos ter uma sessão válida. Esta sessão é criada com a função WinSock WSAStartup. Ao final de nossa função, é feita uma chamada para o agrupamento do SAC para encerrar o uso das APIs do Windows Sockets. Para obter o endereço IP do computador, precisamos usar GetHostByName em conjunto com GetHostName. Cada computador é chamado host e podemos obter o nome do host com uma chamada de função especial: GetHostName. Em seguida, usamos GetHostByName para obter o endereço IP, relacionado a esse nome de host.
Começar Delphi e coloque um Botão e dois Editar caixas em um formulário recém-criado. Adicione o GetIPFromHost para a parte de implementação da sua unidade e atribua o seguinte código ao manipulador de eventos OnClick de um botão (abaixo):