Jednostavno tehnički: Internet je izgrađen na TCP / IP vezama. TCP dio opisuje kako dva računala međusobno uspostavljaju vezu i prenose podatke. IP dio prvenstveno se bavi načinom na koji se poruka može preusmjeriti putem interneta. Svaki spojeni stroj ima jedinstvenu IP adresu koja omogućava drugima da pronađu put do bilo kojeg računala širom svijeta (ili precizno u svijetu).
Da bismo dobili IP adresu računala koje koristite kada ste povezani na Internet, moramo pozvati neke od API funkcija * definiranih * u Winsock jedinici.
Stvorit ćemo GetIPFromHost funkcija koja poziva nekoliko Winsock API funkcija radi dobivanja IP-a. Prije nego što uopće možemo koristiti WinSock funkcije, moramo imati valjanu sesiju. Ova sesija kreirana je funkcijom WinSock WSAStartup. Na kraju naše funkcije upućuje se poziv na SAC leanup radi prekida upotrebe API-ja za Windows Sockets. Da bismo stekli IP adresu računala, moramo koristiti GetHostByName zajedno s GetHostName. Svako se računalo naziva domaćin i možemo dobiti ime glavnog računala s pozivom posebne funkcije: GetHostName. Tada koristimo GetHostByName za dobivanje IP adrese povezanu s ovim nazivom hosta.
Početak Delphi i stavite jedan Dugme i dvije Uredi kutije na novo stvorenom Obrascu. Dodajte GetIPFromHost funkcionirajte na dijelu za implementaciju vaše jedinice i dodijelite sljedeći kôd alatu za upravljanje događajima OnClick gumba (dolje):