Lihtsalt tehniline: Internet on üles ehitatud TCP / IP-ühendustele. TCP-osa kirjeldab, kuidas kaks arvutit loovad üksteisega ühenduse ja edastavad andmeid. IP-osa tegeleb peamiselt sellega, kuidas saada sõnum üle Interneti. Igal ühendatud masinal on ainulaadne IP-aadress, mis võimaldab teistel välja mõelda tee ükskõik millisesse arvutisse veebis (või täpselt maailma).
Interneti-ühenduse korral kasutatava arvuti IP-aadressi saamiseks peame helistama mõnele Winsocki üksuses määratletud * * * API funktsioonile.
Loome a GetIPFromHost funktsioon, mis kutsub IP-i saamiseks mitu Winsock API funktsiooni. Enne WinSocki funktsioonide kasutamist peame olema kehtiv seanss. See seanss luuakse funktsiooniga WinSock WSAStartup. Meie funktsiooni lõppedes helistatakse SAC-i leanupile, et lõpetada Windows Sockets API-de kasutamine. Arvuti IP-aadressi saamiseks peame kasutama GetHostByName koos GetHostName-ga. Igat arvutit nimetatakse hostiks ja hostinime saame spetsiaalse funktsioonikõnega: GetHostName. Seejärel kasutame selle hostinimega seotud IP-aadressi saamiseks GetHostByName'i.
Alusta Delphi ja asetage üks Nupp ja kaks Redigeeri kastid vastloodud vormil. Lisage GetIPFromHost funktsiooni oma üksuse juurutusosale ja määrake nupu OnClicki sündmuse käitlejale (allpool) järgmine kood (allpool):