TCP / IP

← →
1+random(9999) (2005-07-08 14:08) [0]

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

← →
Big Joe (2005-07-08 14:14) [1]

Сейчас напишу

← →
Digitman © (2005-07-08 14:20) [2]

ping domain_name

← →
Big Joe (2005-07-08 14:26) [3]

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

← →
1+Random(9999) (2005-07-08 14:31) [4]

Спасибо братка.. :)))

TCP / IP Найти похожие ветки