Программирование - это просто
Advertisement
Главная arrow Уроки Delphi arrow Пишем на Delphi 7 мониторинг поисковых запросов arrow Урок 1. Как загрузить содержимое сайта (TIdHTTP, TEdit, TMemo и TButton)
27.02.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Урок 1. Как загрузить содержимое сайта (TIdHTTP, TEdit, TMemo и TButton) Печать E-mail
Автор megabax   
09.08.2009 г.
В этой статье будет пошагово описано создание на Delphi приложение

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

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

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

 

HTML, TIdHTTP, Delphi 7, Web, сайт, как загрузить сайт http, www

 

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

 

HTML, TIdHTTP, Delphi 7, Web, сайт, как загрузить сайт http, www

 

В частности, форму назовем 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;

 

 

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

 

HTML, TIdHTTP, Delphi 7, Web, сайт, как загрузить сайт http, www 

 

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

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

 

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

 

HTML, TIdHTTP, Delphi 7, Web, сайт, как загрузить сайт http, www

 


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


Последнее обновление ( 07.11.2011 г. )
 
« След.   Пред. »
 
© 2024 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги