Enkelt teknisk: Internett er bygget på TCP / IP-tilkoblinger. TCP-delen beskriver hvordan to datamaskiner setter opp en forbindelse til hverandre og overfører data. IP-delen handler først og fremst om hvordan du får en melding dirigert over internett. Hver tilkoblede maskin har en unik IP-adresse som lar andre finne ut en vei til hvilken som helst datamaskin rundt hele verden (eller nettopp verden).
For å få IP-adressen til datamaskinen du bruker når du er koblet til internett, må vi ringe noen av API-funksjonene * definert * i Winsock-enheten.
Vi lager en GetIPFromHost funksjon som kaller flere Winsock API funksjoner for å få IP. Før vi til og med kan bruke WinSock-funksjoner, må vi ha en gyldig økt. Denne økten er opprettet med WinSock WSAStartup-funksjonen. På slutten av vår funksjon utføres en samtale til SAC leanup for å avslutte bruken av Windows Sockets API-er. For å få datamaskinens IP-adresse, må vi bruke GetHostByName i forbindelse med GetHostName. Hver datamaskin kalles en vert, og vi kan få vertsnavnet med en spesiell funksjonsanrop: GetHostName. Vi bruker deretter GetHostByName for å få IP-adressen, relatert til dette vertsnavnet.
Start Delphi og plasser en Knapp og to Redigere bokser på et nyopprettet skjema. Legg til GetIPFromHost funksjon til implementeringsdelen av enheten din og tilordne følgende kode til OnClick hendelsesbehandler av en knapp (nedenfor):