Jednoducho technické: internet je postavený na pripojeniach TCP / IP. Časť TCP popisuje, ako dva počítače nastavujú vzájomné spojenie a prenášajú údaje. Časť IP sa predovšetkým zaoberá tým, ako získať správu smerovanú cez internet. Každý pripojený stroj má jedinečnú IP adresu, ktorá umožňuje iným zistiť cestu k akémukoľvek počítaču na celom svete (alebo presne na celom svete).
Aby sme získali IP adresu počítača, ktorý používate pri pripojení na internet, musíme zavolať niektoré z funkcií API * definovaných * v jednotke Winsock.
Vytvoríme GetIPFromHost funkcia, ktorá volá niekoľko funkcií rozhrania Winsock API, aby získala IP. Predtým, ako budeme môcť používať funkcie WinSock, musíme mať platnú reláciu. Táto relácia je vytvorená pomocou funkcie WinSock WSAStartup. Na konci našej funkcie sa uskutoční výzva na vyčistenie protokolu SAC, aby sa ukončilo používanie rozhraní API rozhrania Windows Sockets. Na získanie IP adresy počítača musíme použiť GetHostByName v spojení s GetHostName. Každý počítač sa nazýva hostiteľ a môžeme ho získať pomocou špeciálneho volania funkcie: GetHostName. Potom pomocou GetHostByName získame IP adresu súvisiacu s týmto menom hostiteľa.
štart Delphi a umiestnite jeden gombík a dva editovať na novovytvorenom formulári. Pridajte GetIPFromHost fungujú implementačnej časti jednotky a priraďujú nasledujúci kód obsluhe udalosti OnClick tlačidla (nižšie):