Create site free
Проверка существования домена в глобальной сети - TCP/IP - Интернет и сети в Delphi - Каталог статей - Mvi - развлечения
Среда, 08.02.2012, 14:37
Музыка, видео, игры - MVI
Главная | Каталог статей | Регистрация | Вход
Меню сайта
Категории каталога
ASP [2]
BackDoor [4]
CGI и Cookies [21]
Dial-up [18]
E-mail [31]
FTP [2]
ICQ [11]
TCP/IP [22]
Telnet [2]
URL [8]
XML [16]
Браузер [101]
Интернет [26]
Компоненты и Интернет [22]
Почтовый клиент [15]
Протоколы [18]
Сетевые диски [6]
Сеть [38]
Сокеты [27]
Файлы и Интернет [18]
Мини-чат
Наш опрос
Нужна ли возможность прослушивать музыку на нашем сайте?
Всего ответов: 67
Главная » Статьи » Интернет и сети в Delphi » TCP/IP

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

Автор: Dimka Maslov
WEB-сайт: http://delphibase.endimus.com

{ **** 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 | Добавил: mvi (18.11.2008)
Просмотров: 192 | Рейтинг: 0.0/0 |
Всего комментариев: 0

При копировании материалов данного сайта, ссылка на него обязательна!

Имя *:
Email:
Код *:
Форма входа
E-mail:
Пароль:
Поиск
Друзья сайта
Анекдоты
Реклама
Статистика


Рейтинг@Mail.ru

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Copyright MyCorp © 2012 Хостинг от uCoz