Урок 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.
Вот так должен выглядеть текст объявления полей формы полсе наших манипуляций:
|
type TfrmMain = class(TForm) IdHTTP: TIdHTTP; btnExec: TButton; edURL: TEdit; moResult: TMemo; procedure btnExecClick(Sender: TObject); private { Private declarations } public { Public declarations } end; |
А вот так у нас должна выглядеть сконструированная форма*:
Напишем так же обработчик события нажатия на кнопку
procedure TfrmMain.btnExecClick(Sender: TObject);
begin
moResult.Lines.Text:=IdHTTP.Get(edURL.Text);
end; |
Если мы запустим приложение и в поле ввода наберем адрес сайта, например, http://www.easyprog.ru, а заем нажмем на кнопку "Выполнить", то в поле многострочного ввода увидим содержимое этого ресурса в HTML формате (стоит иметь ввиду, что если Интернет медленный, то программа "повиснет" на некоторое время) :
Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями в соответствии со ст. 1274 ГК РФ программного продукта "Delphi", авторское право на который принадлежит Borland Delphi..