Jednoduše technické: internet je postaven na připojení TCP / IP. Část TCP popisuje, jak dva počítače nastavují vzájemné spojení a přenášejí data. Část IP se primárně zabývá tím, jak získat zprávu přes internet. Každý připojený stroj má jedinečnou IP adresu, která umožňuje ostatním zjistit cestu k libovolnému počítači po celém světě (nebo přesně na celém světě).
Abychom získali IP adresu počítače, který používáte při připojení k internetu, musíme zavolat některé z funkcí API * definovaných * v jednotce Winsock.
Vytvoříme GetIPFromHost funkce, která volá několik funkcí Winsock API za účelem získání IP. Než budeme moci používat funkce WinSock, musíme mít platnou relaci. Tato relace je vytvořena pomocí funkce WinSock WSAStartup. Na konci naší funkce se uskuteční volání do SAC leanup za účelem ukončení používání API rozhraní Windows Sockets. Abychom získali IP adresu počítače, musíme použít GetHostByName ve spojení s GetHostName. Každý počítač se nazývá hostitel a my můžeme získat název hostitele pomocí zvláštního volání funkce: GetHostName. Potom pomocí GetHostByName získáme IP adresu, která souvisí s tímto názvem hostitele.
Start Delphi a umístěte jeden Knoflík a dva Upravit polí na nově vytvořeném formuláři. Přidat GetIPFromHost funkce implementační části vaší jednotky a přiřaďte následující kód manipulátoru události OnClick tlačítka (níže):