Egyszerűen technikai: az internet a TCP / IP kapcsolatokra épül. A TCP rész leírja, hogy két számítógép hogyan létesíti a kapcsolatot egymással, és hogyan továbbítja az adatokat. Az IP rész elsősorban azzal foglalkozik, hogyan lehet üzenetet továbbítani az interneten keresztül. Minden csatlakoztatott számítógépnek egyedi IP-címe van, amely lehetővé teszi mások számára, hogy kitalálják az elérési utat a világhálón (vagy pontosan a világon) található bármely számítógéphez.
Az internethez való csatlakozáskor használt számítógép IP-címének megszerzéséhez fel kell hívnunk a Winsock egységben * definiált * API-funkciók egy részét.
Létrehozunk egy GetIPFromHost funkció, amely több Winsock API funkciót meghív, hogy megkapja az IP-t. Mielőtt WinSock funkciókat használhatnánk, érvényes munkamenetre van szükségünk. Ez a munkamenet a WinSock WSAStartup funkcióval jön létre. Funkciónk végén felhívást kapunk az SAC leanupra a Windows Sockets API használatának megszüntetése érdekében. A számítógép IP-címének megszerzéséhez a GetHostByName-t és a GetHostName-t együtt kell használni. Minden számítógépet hosztnak hívunk, és a gazdagép nevét egy speciális függvényhívással kaphatjuk meg: GetHostName. Ezután a GetHostByName felhasználásával megkapjuk az ehhez a gazdagépnévhez tartozó IP-címet.
Rajt Delphi és helyezzen egyet Gomb és kettő szerkesztése dobozok az újonnan létrehozott űrlapon. Adja hozzá a GetIPFromHost funkciót az egység végrehajtási részéhez, és rendeljen hozzá egy következő kódot egy gomb OnClick eseménykezelőjéhez (lent):