Просто технически: Интернет е изграден на TCP / IP връзки. TCP част описва как два компютъра установяват връзка помежду си и прехвърлят данни. IP част се занимава основно с това как да получите съобщение, пренасочено през интернет. Всяка свързана машина има уникален IP адрес, който позволява на другите да измислят път до всеки компютър в мрежата (или точно по света).
За да получим IP адреса на компютъра, който използвате, когато сте свързани с интернет, трябва да се обадим на някои от функциите на API *, дефинирани * в Winsock устройството.
Ще създадем a GetIPFromHost функция, която извиква няколко функции на API на Winsock, за да получи IP. Преди да можем дори да използваме функциите на WinSock, трябва да имаме валидна сесия. Тази сесия е създадена с функцията WinSock WSAStartup. В края на функцията ни се прави повикване за SAC leanup, за да се прекрати използването на API на Windows Sockets. За да получим IP адреса на компютъра, трябва да използваме GetHostByName във връзка с GetHostName. Всеки компютър се нарича хост и можем да получим името на хоста със специална покана за функция: GetHostName. След това използваме GetHostByName, за да получим IP адреса, свързан с това име на хост.
начало Delphi и поставете една бутон и две редактиране кутии върху новосъздаден формуляр. Добавете GetIPFromHost функция към частта за внедряване на вашето устройство и присвойте следния код на манипулатора на събитията OnClick на бутон (по-долу):