Vienkārši tehnisks: internets ir veidots, izmantojot TCP / IP savienojumus. TCP daļā aprakstīts, kā divi datori izveido savienojumu viens ar otru un pārsūta datus. IP daļa galvenokārt nodarbojas ar to, kā iegūt ziņojumu, izmantojot internetu. Katrai pievienotajai mašīnai ir unikāla IP adrese, kas ļauj citiem izdomāt ceļu uz jebkuru datoru visā tīmeklī (vai precīzi visā pasaulē).
Lai iegūtu tā datora IP adresi, kuru izmantojat, kad ir izveidots savienojums ar internetu, mums ir jāizsauc dažas no API funkcijām *, kas definētas * Winsock vienībā.
Mēs izveidosim GetIPFromHost funkcija, kas izsauc vairākas Winsock API funkcijas, lai iegūtu IP. Lai mēs varētu pat izmantot WinSock funkcijas, mums ir jābūt derīgai sesijai. Šī sesija tiek izveidota ar WinSock WSAStartup funkciju. Pēc mūsu funkcijas beigām tiek izsaukts SAC serviss, lai pārtrauktu Windows Sockets API izmantošanu. Lai iegūtu datora IP adresi, mums ir jāizmanto GetHostByName kopā ar GetHostName. Katru datoru sauc par resursdatoru, un resursdatora nosaukumu mēs varam iegūt ar īpašas funkcijas izsaukumu: GetHostName. Pēc tam mēs izmantojam GetHostByName, lai iegūtu IP adresi, kas saistīta ar šo resursdatora nosaukumu.
Sākt Delfi un ievieto vienu Poga un divi Rediģēt kastes uz jaunizveidotas veidlapas. Pievienojiet GetIPFromHost funkciju sava vienības ieviešanas daļai un pogas OnClick notikumu apstrādātājam (zemāk) piešķiriet šo kodu: