| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TCP / IP [D7, WinXP]
1+random(9999) © (2005-07-08 14:08:00)Привет всем !!! Подскажите пожалуйста как проверить существование домена в глобальной сети...
1+Random(9999) (2005-07-08 14:31:00) [1]Спасибо братка.. :)))
Big Joe (2005-07-08 14:26:00) [2]Определяет существование указанного доменного имени
пытаясь определить соответствующий IP-адрес.
Зависимости: WinSock
BekZhan@Almaty.KazPost.kz
***************************************************** }
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;
Digitman (2005-07-08 14:20:00) [3]ping domain_name
Big Joe (2005-07-08 14:14:00) [4]Сейчас напишу
| |
