Как получить html код страницы в Delphi?

Получаем исходный код страницы сайта в Delphi

Зачастую приходится интегрировать программы с web-страницами и наоборот. Для этого используются различные программные решения.

Не так давно остро стоял вопрос, как получить исходный код веб-страницы в поле TMemo в Delphi 7. Это было необходимо, для дальнейшей обработки данных размещенных на ней.

Я потратил немало времени на поиски нужной информации, в итоге реализация была найдена. Чтобы в следующий раз не повторять поиск, я решил написать статью о том, как получить html код страницы в Delphi. Данные способ реализовывается быстро и работает отлично!

На различных форумах программистов, приводятся огромные портянки кода, в которых порой не все понятно, а времени разбираться совсем нет. На самом деле, задача, по сути, тривиальная, и в Delphi наверняка есть стандартные компоненты для её решения. Мое предположение оказалось верным.

Итак, пошагово рассказываю, как получить исходный код страницы сайта в Delphi в поле TMemo.

На форму помещаем 3 компонента:

  • Из вкладки «Standard»:

    текстовое поле Memo (StdCtrls) и обычную кнопку Button (StdCtrls).

  • Из вкладки «Indy Clients» добавляем компонент TIdHTTP.

Теперь осталось самое простое, написать код. Нажимаем двойным щелчком на Button1 и в обработчике события OnClick пишем следующий код:

memo1.Lines.Text:= IdHttp1.Get (‘URL страницы, исходный код которой необходимо загрузить’);

После запуска программы нажимаем на кнопку, и программа отправляет запрос на указанный URL и выдает html код страницы.

Все предельно просто. Допустим, я хочу загрузить код главной страницы своего блога, для этого я пишу следующий код:

procedure TForm1.Button1Click(Sender: TObject);

begin

mrwildwolf666.name/’);

Внешний вид моей программы можно посмотреть на картинке к статье.

Запускаю программу, нажимаю на кнопку «Загрузить». Готово! Исходный код страницы блога загружен в TMemo.

Задача решена! Быстро, просто и никаких «портянок», всего одна строка.

Если у вас будут возникать вопросы по данному методу, пишите их в комментарии. Отвечу на них и постараюсь помочь.

Источник: mrwildwolf666.name

Категория: Программное обеспечение

Похожие статьи:



X