Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Работа с адресами



Вернуться к списку функций
 Проверка существования домена в глобальной сети

 Прислал: Dimka Maslov (Санкт-Петербург) ( 3 июля 2002 г. )
©  Dimka Maslov
 Описание:
Определяет существование указанного доменного имени пытаясь определить соответствующий IP-адрес.

 Зависимости:
WinSock

 Ограничения:
Проверено в D5/Win2K

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Проверка существования домена в глобальной сети

Определяет существование указанного доменного имени пытаясь определить соответствующий 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;


Вернуться к списку функций

Наверх ▲