Показать исходный код Web-страницы в TMemo

Delphi , Компоненты и Классы , TMemo и TRichEdit

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// You need a TMemo, a TButton und a NMHTTP 
// Man braucht ein TMemo, einen TButton und eine TNMHTTP 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   NMHTTP1.Get('www.swissdelphicenter.ch');
   memo1.Text := NMHTTP1.Body
 end;

Перевод на русский язык:

Приведенный код Delphi - это простой пример, демонстрирующий, как использовать компонент TNMHTTP для получения содержимого HTML-страницы и отображения его в контроле TMemo.

Сюда включается подробное описание того, что код делает:

1. Процедура Button1Click вызывается при клике кнопки с надписью "Button1".
2. Внутри этой процедуры метод Get компонента NMHTTP1 используется для отправки GET-запроса на URL 'www.swissdelphicenter.ch'.
3. После получения ответа от сервера свойство Body компонента NMHTTP1 читается и присваивается свойству Text контрола Memo1.

Это означает, что содержимое HTML-страницы будет отображаться в контроле Memo после клика кнопки.

Вот улучшенная версия кода с некоторыми минимальными комментариями и улучшениями:

// Объявляем TMemo, TButton и TNMHTTP
var
  Memo1: TMemo;
  Button1: TButton;
  NMHTTP1: TNMHTTP;

procedure TForm1.Button1Click(Sender: TObject);
begin
   // Отправляем GET-запрос на URL 'www.swissdelphicenter.ch'
  NMHTTP1.Get('www.swissdelphicenter.ch');

   // Отображаем тело ответа в контроле Memo
  Memo1.Text := NMHTTP1.Body;
end;

Обратите внимание, что вам нужно заранее создать и спроектировать вашу форму с TMemo, TButton и TNMHTTP. Кроме того, убедитесь, что вы установили свойство Host компонента NMHTTP1 в 'www.swissdelphicenter.ch'.

В статье описывается создание интерфейса, позволяющего отображать исходный код Web-страницы в TMemo компоненте с помощью TNMHTTP и TButton в Delphi.

Комментарии и вопросы

:: Главная :: TMemo и TRichEdit ::