Урок 1. Как загрузить содержимое сайта (TIdHTTP, TEdit, TMemo и TButton)

В этом цикле статей будет пошагово описано создание на Delphi приложение «Мониторинг поисковых запросов». Это приложение предназначено для определения позиции сайта по заданным поисковым запросам.

И так, пожалуй начнем. Очевидно, для разработки этого приложения нам понадобится знать, как средствами Delphi соединиться с Web-сайтом и получить с него текст, который отображается в браузере, когда вы набираете URL. Для этого в Delphi 7 предусмотрен компонент TIdHTTP, он находиться на закладке Indy Clients*.

И так, кладем на форму компоненты TIdHTTP, TEdit, TMemo и TButton. Сразу присвоим им, а так же самой форме нормальные идентификаторы, отредактировав в Object Inspector-е свойство Name*.

В частности, форму назовем frmMain, поле редактирования edURL (потому что в нем мы будем набирать URL адреса, с которого хотим загрузить страницу). Поле текста назовем moResult, кнопочку btmExec, сам объект для соединения с сайтом IdHTTP.

Вот так должен выглядеть текст объявления полей формы полсе наших манипуляций:

А вот так у нас должна выглядеть сконструированная форма*:

Напишем так же обработчик события нажатия на кнопку

procedure TfrmMain.btnExecClick(Sender: TObject);
begin
    moResult.Lines.Text:=IdHTTP.Get(edURL.Text);
end;

 Если мы запустим приложение и в поле ввода наберем адрес сайта, например, http://www.easyprog.ru, а заем нажмем на кнопку "Выполнить", то в поле многострочного ввода увидим содержимое этого ресурса в HTML формате (стоит иметь ввиду, что если Интернет медленный, то программа "повиснет" на некоторое время) :

Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями  в соответствии со ст. 1274 ГК РФ программного продукта "Delphi", авторское право на который принадлежит Borland Delphi..