Показать код HTML страницы в TMemo

Delphi , Интернет и Сети , Браузер

// You need a TMemo, a TButton und a NMHTTP
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  NMHTTP1.Get('www.swissdelphicenter.ch'); 
  memo1.Text := NMHTTP1.Body 
end;

Here is the translation of the content into Russian:

Код HTML для простого компонента заметки в Delphi:

<TMemo Name="memo1">
   <Caption>HTML-страница</Caption>
   <Font Name="Tahoma" Size=-11 Color=clWindowText>
     <b>Похвала памяти Ивана Сусина!</b>
     <p>Вы слышали о новом русском браузере? Он называется "Иван Сусин" и никто не смог его выпустить.</p>
   </Font>
</TMemo>

и соответствующий код Delphi:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  HTTPApp;

type
  TForm1 = class(TForm)
    Button1: TButton;
    NMHTTP1: TNetResource;
    memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

end.

Код создает форму с кнопкой, компонентом ресурса сети (NMHTTP) и компонентом заметки. Когда кнопка нажата, он отправляет запрос GET по указанному URL с помощью компонента NMHTTP, а затем устанавливает текст компонента заметки в тело ответа.

Обратите внимание, что этот код требует Delphi 2007 или более поздней версии, а также единицы HTTPApp. Кроме того, убедитесь, что настроили проект для включения единицы HTTPApp в список используемых единиц.

В статье рассматривается возможность отображения кода HTML страницы в компоненте TMemo при помощи использования класса NMHTTP и процедуры Get для скачивания содержимого указанной страницы.

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

:: Главная :: Браузер ::