Автоматизация копирования текста с веб-страницы Google: решения проблемы с TWebBrowser

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

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

Проблема

Когда вы открываете веб-страницу Google с помощью компонента TWebBrowser, курсор может оказаться в одном из текстовых полей, что приводит к копированию только этого текста. Команда ExecWB с параметром OLECMDID_SELECTALL выделяет текст, но только в том случае, если курсор находится в начале текста всего документа.

Решение

Чтобы решить эту проблему, вам необходимо сначала сфокусировать курсор на теле документа, прежде чем выполнять команду выделения. Это можно сделать, обратившись к элементу body документа и вызвав его метод focus. Вот пример кода на Object Pascal, который демонстрирует этот подход:

procedure TForm2.Button22Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  // Загрузка страницы
  WebBrowser1.Navigate('http://www.google.com.au/advanced_search?hl=en');
  // Ожидание полной загрузки страницы
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
  begin
    // Код для паузы до полной загрузки страницы
    Pause(1000);
  end;
  // Фокусировка на теле документа
  ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLElement2).focus;
  // Выделение всего текста
  WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);
  // Копирование выделенного текста
  WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut);
end;

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

В качестве альтернативного решения можно использовать свойство innerText элемента body, чтобы получить текст веб-страницы, минуя необходимость в выделении и копировании:

procedure TForm2.Button22Click(Sender: TObject);
var
  text: string;
begin
  // Загрузка страницы
  WebBrowser1.Navigate('http://www.google.com.au/advanced_search?hl=en');
  // Ожидание полной загрузки страницы
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
  begin
    // Код для паузы до полной загрузки страницы
    Pause(1000);
  end;
  // Получение текста веб-страницы
  text := WebBrowser1.Document.body.innerText;
  // Текст теперь доступен в переменной text
end;

Заключение

При автоматизации копирования текста с веб-страницы важно учитывать, что курсор может находиться в различных элементах, и необходимо убедиться, что выделение охватывает весь текст. Использование метода focus для элемента body и последующее выполнение команды ExecWB с параметром OLECMDID_SELECTALL является одним из способов решения этой задачи. Альтернативно, можно использовать свойство innerText для получения текста без необходимости в выделении и копировании.

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

Автоматизация копирования текста с веб-страницы Google в приложении на Delphi с использованием компонента TWebBrowser требует дополнительных шагов для корректного выделения и копирования всего текста, включая возможность сфокусировать курсор и использова

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

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

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