Отлов исходного кода веб-страницы через интерфейс WebBrowser в Delphi

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

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

Подтвержденный ответ

Для получения исходного кода веб-страницы через компонент WebBrowser в Delphi, можно использовать свойство Document компонента, после того как загрузка страницы будет завершена. В событии DocumentCompleted можно получить текст страницы через свойство DocumentText. Однако, стоит отметить, что в некоторых версиях Delphi это свойство может отсутствовать, и в таком случае следует использовать другие подходы.

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

1. Использование свойства InnerHTML объекта Body документа:

var
  Web: TWebBrowser;
begin
  ...
  Web.Navigate('foo.xml');
  // Ожидание завершения загрузки страницы
  while Web.ReadyState < rsComplete do
    Sleep(100);
  // Получение исходного кода страницы
  var
    html: string;
  begin
    html := IHTMLDocument2(Web.Document).body.innerHTML;
  end;
  ...
end;

1. Использование события DocumentCompleted для получения текста страницы:

procedure TForm1.WebBrowser1DocumentCompleted(Sender: TObject);
begin
  with WebBrowser1 do
  begin
    if ReadyState = rsComplete then
      // Получение текста страницы
      var
        text: string;
      begin
        text := DocumentText;
      end;
  end;
end;

1. Использование компонента Synapse и функции HttpGet для получения исходного кода:

// Пример использования внешней библиотеки, не включен в базовый код Delphi

1. Сохранение HTML страницы в файл через интерфейс IPersistStreamInit:

procedure TMainForm.WebBrowser1DownloadComplete(Sender: TObject);
begin
  if (WebBrowser1.Document <> nil) and not (WebBrowser1.Busy) then
  begin
    WB_SaveAs_HTML(WebBrowser1, 'test.html');
    // Обработка файла 'test.html' далее по коду
  end;
end;

procedure TMainForm.WB_SaveAs_HTML(WB: TWebBrowser; const FileName: string);
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  FileStream: TFileStream;
begin
  if not Assigned(WB.Document) then
  begin
    // Обработка ошибки, если документ не загружен
    Exit;
  end;
  ...
  // Код для сохранения HTML страницы в файл
end;

Заключение

В данной статье мы рассмотрели несколько способов получения исходного кода веб-страницы через компонент WebBrowser в Delphi. Важно помнить, что для корректной работы с исходным кодом страницы необходимо дождаться полной загрузки всех ресурсов, что можно сделать, отслеживая состояние свойства ReadyState компонента WebBrowser. Использование дополнительных библиотек, таких как Synapse или EmbeddedWB, может расширить функциональность и упростить работу с веб-контентом.

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

Вопрос пользователя касается способов извлечения исходного кода веб-страницы с использованием компонента WebBrowser в среде разработки Delphi.

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

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

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