Home

Page 151
Page 151
background image

 Глава 4

Выделите компонент idwhois и перейдите в окно инспектора объектов. По-

смотрите на свойство Host. Здесь вы должны указать адрес сервера, у кото-
рого есть сервис

 Точнее сказать, вы должны указать именно на этот

сервис. По умолчанию стоит адрес

 Я считаю, что на пер-

вых порах его менять не надо, потому что он вполне рабочий и очень быст-
рый. Но если вы решите изменить этот адрес, то обязательно проверьте,
кой порт используется у вашего любимчика. Если отличный от 43, то вы

ДОЛЖНЫ Изменить СВОЙСТВО Port

В принципе, настройки по умолчанию достаточно работают для любых до-
менов в зоне COM, 0RG и NET. Если вас интересует что-то специфиче-

ское, то только тогда вам может понадобиться смена сервера whois. Если

вам нужно узнать информацию о российском домене

 то придется искать

российский сервис.

В программировании компоненты

 так же просты, как и в настройке.

Создайте обработчик события

 для кнопки и напишите в нем сле-

дующее:
procedure

 TObject);

Line,

 string;

iPos: Integer;

begin

 //Очистка содержимого компонента

FindResult

 //Запускаем поиск

//Дальше идет форматирование полученной информации

while

 > 0 do

begin

iPos := Pos(#10, FindResult);
Line :=

 1, iPos - 1);

 1,

end;

end;

В первой строке очищаем содержимое компонента

 чтобы избавиться

от текста, оставшегося от предыдущих поисков. Во второй строке кода за-
пускается поиск. Для этого выполняется метод whois компонента

FindResult :=

В качестве единственного параметра этого метода передается содержимое

строки ввода Editl — имя искомого домена. Результат поиска сохраняется
в переменной FindResult. Хотя результат состоит из многих строк, в пере-


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.