Simplu tehnic: internetul este construit pe conexiuni TCP / IP. Partea TCP descrie modul în care două computere își stabilesc o conexiune între ele și își transferă date. Partea IP se ocupă în primul rând despre modul de a primi un mesaj dirijat pe internet. Fiecare mașină conectată are o adresă IP unică care permite altor persoane să-și dea seama de o cale către orice computer de pe întregul web (sau mai precis despre lume).
Pentru a obține adresa IP a computerului pe care îl utilizați când sunteți conectat la internet, trebuie să apelăm la unele dintre funcțiile API * definite * din unitatea Winsock.
Vom crea un GetIPFromHost funcție care apelează mai multe funcții API Winsock pentru a obține IP. Înainte de a putea folosi chiar funcțiile WinSock, trebuie să avem o sesiune validă. Această sesiune este creată cu funcția WinSock WSAStartup. La sfârșitul funcției noastre, se apelează la apăsarea SAC pentru a înceta utilizarea API-ului Windows Sockets. Pentru a obține adresa IP a computerului, trebuie să folosim GetHostByName împreună cu GetHostName. Fiecare computer se numește gazdă și putem obține numele de gazdă cu un apel funcțional special: GetHostName. Apoi folosim GetHostByName pentru a obține adresa IP, legată de acest nume de gazdă.
start Delphi și așezați unul Buton si doi Editați | × căsuțe pe un formular nou creat. Adaugă GetIPFromHost funcționează la partea de implementare a unității tale și alocă codul următor gestionarului de eveniment OnClick al unui buton (mai jos):