Просто технически: интернет построен на соединениях TCP / IP. Часть TCP описывает, как два компьютера устанавливают соединение друг с другом и передают данные. IP-часть главным образом касается того, как доставить сообщение через Интернет. Каждый подключенный компьютер имеет уникальный IP-адрес, который позволяет другим определить путь к любому компьютеру во всемирной сети (или во всем мире).
Чтобы получить IP-адрес компьютера, который вы используете при подключении к Интернету, нам нужно вызвать некоторые функции API, * определенные * в модуле Winsock.
Мы создадим GetIPFromHost функция, которая вызывает несколько функций Winsock API для получения IP. Прежде чем мы сможем использовать функции WinSock, у нас должен быть действительный сеанс. Этот сеанс создается с помощью функции WinSock WSAStartup. В конце нашей функции выполняется вызов функции SAC, чтобы прекратить использование API-интерфейсов Windows Sockets. Чтобы получить IP-адрес компьютера, мы должны использовать GetHostByName вместе с GetHostName. Каждый компьютер называется хостом, и мы можем получить имя хоста с помощью специального вызова функции: GetHostName. Затем мы используем GetHostByName, чтобы получить IP-адрес, связанный с этим именем хоста.
Начало Delphi и поместите один кнопка и два редактировать коробки на вновь созданной форме. Добавить GetIPFromHost функционировать в части реализации вашего модуля и назначить следующий код для обработчика события OnClick кнопки (ниже):