Как извлечь исходный код HTML-страницы из TWebBrowser для отображения в компоненте Memo в Delphi

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

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

Подход к решению

Для получения исходного кода HTML-страницы из компонента TWebBrowser можно использовать интерфейс IPersistStreamInit и метод save, который позволяет сохранить содержимое веб-браузера в поток данных. Ниже приведен пример кода на Object Pascal, который демонстрирует, как это можно сделать:

uses
  ActiveX;

function GetWebBrowserHTML(const WebBrowser: TWebBrowser): String;
var
  LStream: TStringStream;
  Stream: IStream;
  LPersistStreamInit: IPersistStreamInit;
begin
  if not Assigned(WebBrowser.Document) then Exit;
  LStream := TStringStream.Create('', TEncoding.UTF8);
  try
    LPersistStreamInit := WebBrowser.Document as IPersistStreamInit;
    Stream := TStreamAdapter.Create(LStream, soReference);
    LPersistStreamInit.Save(Stream, True);
    Result := LStream.DataString;
  finally
    LStream.Free();
  end;
end;

Этот код создает поток TStringStream, который затем используется для сохранения содержимого документа. Полученный поток преобразуется в строку, которую можно отобразить в компоненте Memo.

Обратная задача

Также пользователь задавал вопрос о возможности "обратной" функции, то есть о том, как вставить измененный исходный код обратно в TWebBrowser. Для этого достаточно использовать метод Load интерфейса IPersistStreamInit вместо Save.

Альтернативный подход

Существуют и другие способы извлечения исходного кода HTML-страницы. Например, можно использовать интерфейс IHTMLElement для получения внешнего HTML элемента:

uses
  MSHTML;

function GetHTML(w: TWebBrowser): String;
var
  e: IHTMLElement;
begin
  Result := '';
  if Assigned(w.Document) then
  begin
    e := (w.Document as IHTMLDocument2).body;
    while e.parentElement <> nil do
      e := e.parentElement;
    Result := e.outerHTML;
  end;
end;

Однако стоит отметить, что этот метод возвращает DOM-реpresentation документа, а не исходный код HTML.

Важные замечания

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

Заключение

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

Создано по материалам из источника по ссылке.

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

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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