Eenvoudig technisch: het internet is gebouwd op TCP / IP-verbindingen. Het TCP-gedeelte beschrijft hoe twee computers een verbinding met elkaar opzetten en gegevens overdragen. Het IP-gedeelte behandelt voornamelijk hoe een bericht via internet kan worden gerouteerd. Elke aangesloten machine heeft een uniek IP-adres waarmee anderen een pad kunnen vinden naar elke computer op het world wide web (of juist de wereld).
Om het IP-adres te verkrijgen van de computer die u gebruikt wanneer u verbonden bent met internet, moeten we enkele van de API-functies * gedefinieerd * in de Winsock-eenheid aanroepen.
We maken een GetIPFromHost functie die verschillende Winsock API-functies aanroept om het IP te verkrijgen. Voordat we zelfs WinSock-functies kunnen gebruiken, moeten we een geldige sessie hebben. Deze sessie is gemaakt met de WinSock WSAStartup-functie. Aan het einde van onze functie wordt een beroep gedaan op SAC leanup om het gebruik van de Windows Sockets API's te beëindigen. Om het IP-adres van de computer te verkrijgen, moeten we GetHostByName gebruiken in combinatie met GetHostName. Elke computer wordt een host genoemd en we kunnen de hostnaam krijgen met een speciale functieaanroep: GetHostName. We gebruiken vervolgens GetHostByName om het IP-adres op te halen, gerelateerd aan deze hostnaam.
Begin Delphi en plaats er een Knop en twee Bewerk vakken op een nieuw gemaakt formulier. Voeg de GetIPFromHost functie aan het implementatiegedeelte van uw eenheid en wijs de volgende code toe aan de OnClick-gebeurtenishandler van een knop (hieronder):