Работа с текстом в TWebBrowser и сохранение форматирования в TRichEdit в Delphi 7

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

Извлечение текста из веб-страницы в TWebBrowser в Delphi 7

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

Шаг 1: Подготовка компонентов

Сначала убедитесь, что в вашем проекте присутствуют необходимые компоненты, такие как TWebBrowser, TMemo или TRichEdit, куда будет извлечен текст, а также TEdit для отображения URL.

Шаг 2: Обработка события DocumentComplete

Затем вам нужно обработать событие DocumentComplete компонента TWebBrowser. Это событие срабатывает, когда загрузка документа завершена, и вы можете начать его анализ.

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Document: IHtmlDocument2;
begin
  Edit1.Text := URL;
  Document := TWebBrowser1.Document as IHtmlDocument2;
  Memo2.Lines.Add(Trim(Document.Body.InnerHTML)); // для получения HTML-кода
  Memo1.Lines.Add(Trim(Document.Body.InnerText)); // для получения текста
end;

Шаг 3: Извлечение текста

Для извлечения текста без форматирования используйте свойство InnerText элемента body HTML-документа. Если вам необходимо сохранить форматирование, используйте InnerHTML.

Шаг 4: Сохранение форматирования в TRichEdit

Для сохранения форматирования текста в TRichEdit можно воспользоваться компонентом WPTools, который позволяет загружать данные из HTML-потока и экспортировать их в RTF. Это позволит сохранить такие элементы форматирования, как жирный шрифт, подзаголовки и т.д.

Шаг 5: Удаление тегов изображений

Если в тексте присутствуют теги изображений (<img>), их следует удалить, чтобы они не отображались в TRichEdit.

Заключение

Используя вышеописанные шаги и примеры кода, вы сможете извлечь текст из веб-страницы, отображаемой в TWebBrowser, и сохранить его в TRichEdit с поддержкой форматирования. Это может быть полезно для различных задач, таких как парсинг веб-страниц, сохранение статей и других текстовых данных.

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

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

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

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

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

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