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

Советы » TCP/IP » Проверка существования домена в глобальной сети

{ **** 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com