Школьный учитель спрашивает учеников о профессии родителей.
- Тим, чем твоя мама занимается на работе?
Тим встает и гордо говорит:
- Она - доктор.
- Замечательно, ну как насчет тебя, Эмми?
Девочка стеснительно произносит:
- Мой папа разносит почту.
- Спасибо, Эмми, - говорит учитель. - Ну, а твои родители что делают, Билл?
Билл гордо встает и объявляет:
- Мой папа играет музыку в борделе!
Обалдевший учитель решил направиться к Биллу домой.
- В каких условиях вы растите ребенка? - спрашивает он у отца.
Тот отвечает:
- Вообще-то я программист и специализируюсь на TCP/IP
коммуникационном протоколе в системе UNIX. Ну как объяснить
это семилетнему пацану?
uses
WinSock;
const
WINSOCK_VERSION = $0101;
function GetIPAddress(name: string): string;
var
WSAData: TWSAData;
p: PHostEnt;
begin
WSAStartup(WINSOCK_VERSION, WSAData);
p := GetHostByName(PChar(name));
Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
WSACleanup;
end;
Программа на Delphi для получения IP-адреса по хостнэйму!
Давайте разбить это: программа использует unit WinSock, который предоставляет способ работы с сокетами TCP/IP в Windows.
Функция GetIPAddress принимает параметр name (хостнэйм) и возвращает соответствующий IP-адрес в виде строки. Вот что код делает:
Он инициализирует структуру WSAData с помощью WSAStartup, указывая версию WinSock для использования.
Он использует GetHostByName для разрешения хостнэйма (name) до списка IP-адресов.
Он извлекает первый IP-адрес из списка, используя свойство h_addr_list переменной p, которая является указателем на PHostEnt.
Он конвертирует IP-адрес (бинарное значение) в строку с помощью inet_ntoa, который принимает указатель на PInAddr как входной параметр.
Наконец, он очищает, вызывая WSACleanup.
Чтобы использовать эту функцию, просто вызовите ее с хостнэймом в виде строки, например:
Обратите внимание, что если хостнэйм не найден или не имеет связанного IP-адреса, функция вернет пустую строку. Вы можете добавить обработку ошибок для таких случаев.
Также помните, что это код использует API WinSock, который является специфичным для Windows. Если вам нужно решение, работающее на нескольких платформах, рассмотрите использование другой подходы, например, разрешения DNS или библиотеки, такие как c-ares.
В статье описывается способ получения IP-адреса компьютера по имени домена с помощью программирования в языке Pascal, используя библиотеку WinSock и функцию GetHostByName.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал