Рис.1.2. Внешний вид будущей программы

Найдите закладку Indy Clients на палитре компонентов и перенесите на форму компонент idwhois с этой закладки. Выделите компонент idwhois и перейдите в окно инспектора объектов. Посмотрите на свойство Host. Здесь вы должны указать адрес сервера, у которого есть сервис Whois. Точнее сказать, вы должны указать именно на этот сервис. По умолчанию стоит адрес whois.internic.net. Его пока менять не надо, потому что он вполне рабочий и очень быстрый. Но если вы хотите изменить этот адрес, то обязательно проверьте, какой порт используется. Если отличный от 43, то вы должны изменить свойство port у компонента IdWhois. В принципе, настройки по умолчанию достаточно работают для любых доменов в зоне COM, ОRG и NET. Если вас интересует что-то специфическое, то только тогда вам может понадобиться смена сервера whois. Если вам нужно узнать информацию о украинском домене.uа, то придется искать украинский сервис. В программировании компоненты Indy так же просты, как и в настройке. Создайте обработчик события onClick для кнопки «Найти».

При создании программы можно придерживаться следующих указаний:

§ Использовать очистку содержимого компонента ТМеmо от текста, оставшегося от предыдущих поисков;

§ При создании строки кода поиска использовать метод whois компонента IdWhois:

FindResult:=IdWhoIs.WhoIs(Edit1.Text)

где, FindResult – переменная строкового типа, Edit1 – имя искомого домена.

§ Результат поиска будет состоять из нескольких строк, а в переменной он будет выглядеть как одна длинная строка, в которой разделителем текстовых строк является шестнадцатеричный символ #10. Чтобы текст выглядел нормально, необходимо отформатировать содержимое переменной FindResult.

Примечание. #10 – код символа перевода каретки (перехода на новую строку), который используется в ОС семейства *nix. В Windows принято конец строки обозначить парой символов #13 и #10.

Для выяснения информации об интересующем имени домена, необходимо запустить вашу программу, и она сама обращается куда надо и показывает вам информацию в удобном для восприятия виде. Работает все просто, потому что компонент отправляет запрос серверу в Интернете (в данном случае whois.internic.net) и получает ответ. Никаких самостоятельных поисков по базам данных не происходит.

Самостоятельная работа.

Задание 1. Согласно своему порядковому номеру в списке группы найти информацию о домене: