0

Имеется форма с Webbrowser. Имеется сайт, на котором комментарии к сайтам выводятся с помощью js (mail.ru) Требуется скопировать весь текст с открытой в Webbrowser страницы после выполнения JS.

Простое копирование HTML кода ничем не поможет - т.к. там нет части текста

1
  • Скопировать лучше в StringList Commented 1 нояб. 2018 в 21:50

1 ответ 1

4

Может, я неправильно понял ваш вопрос, но проблема состоит в том, чтобы получить текст после рендеринга в браузере? Это достаточно просто, нужно обратиться после выполнения кода TWebBrowser'ом к нему как к OLE-контейнеру.

Создадим на тестовом сайте для проверки простой HTML-файл с яваскриптом:

<html>

<head>
  <meta charset="utf-8">
</head>

<body>

  <p>Начало документа...</p>
  <script>
    document.write( 'Привет, Мир!' );
  </script>

  <p>...Конец документа</p>

</body>

</html>

На форму бросим TWebBrowser и пишем код:

  WebBrowser1: TWebBrowser;
  str:TStringList;
<...>

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);

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

begin
  with ASender as TWebBrowser do str.Text:=OleObject.document.body.innerText; // здесь будет результат
end;

<...>

str:=TStringList.Create;
WebBrowser1.Navigate('http://мойсайт.com/test_js.html');

Наш результат:

введите сюда описание изображения

1
  • Да, это именно то, что я искал. Спасибо! Commented 2 нояб. 2018 в 5:31

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.