Проверка существования домена в глобальной сетиDelphi , Интернет и Сети , TCP/IPПроверка существования домена в глобальной сети
Автор: Dimka Maslov { **** UBPFD *********** by delphibase.endimus.com **** >> Проверка существования домена в глобальной сети Определяет существование указанного доменного имени пытаясь определить соответствующий IP-адрес. Зависимости: WinSock Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург Copyright: Dimka Maslov Дата: 3 июля 2002 г. ***************************************************** } function CheckDomain(Domain: string): Boolean; var Error: DWORD; HostEntry: PHostEnt; Data: WSAData; Address: In_Addr; begin Result := False; Error := WSAStartup(MakeWord(1, 1), Data); if Error = 0 then begin HostEntry := gethostbyname(PChar(Domain)); Result := GetLastError = 0; end; WSACleanup(); end; Статья Проверка существования домена в глобальной сети раздела Интернет и Сети TCP/IP может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |