Парсинг сайта. Переход на следующую страницу

@Gamlex · Регистрация: 02.07.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте, великие гуру.

Возник такой вопрос. Предположим я использую WebBrowser в Delphi. Мне нужно сделать действие аналогичное нажатию мышкой на ссылку "Следующая страница" чтобы перейти на следующую страницу. Просто переход по ссылке с изменением номера страницы &page=2 не подходит.

Кусок кода HTML страницы с этой ссылкой такой:

HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
<div class="pager i-pager">
    <div class="pageToInsert" data-current="1" data-show-prefix="False">
  
                    <span class="pagination-item active">1</span>
                    <a href="/catalog/aksessuary/aksessuary-dlya-volos?page=2" class='pagination-item' data-value="2">2</a>
                    <a href="/catalog/aksessuary/aksessuary-dlya-volos?page=3" class='pagination-item' data-value="3">3</a>
                    <a href="/catalog/aksessuary/aksessuary-dlya-volos?page=4" class='pagination-item' data-value="4">4</a>
                    <a href="/catalog/aksessuary/aksessuary-dlya-volos?page=5" class='pagination-item' data-value="5">5</a>
                    <a href="/catalog/aksessuary/aksessuary-dlya-volos?page=6" class='pagination-item' data-value="6">6</a>
                    <a href="/catalog/aksessuary/aksessuary-dlya-volos?page=7" class='pagination-item' data-value="7">7</a>
                    <span class="pagination-dotes">...</span>
                    <a class='pagination-next' href='/catalog/aksessuary/aksessuary-dlya-volos?page=2' data-value="2">Следующая страница<span class='arrow next'></span></a>    
    </div>
</div>

Собственно вопрос - как в Delphi сделать действие аналогичное нажатию мышкой на "Следующая страница", чтобы браузер перешёл на следующую страницу?

Заранее благодарю за ответы!

@GoodWeather · 04.11.2020, 14:09

Найти a с классом .pagination-next.
А дальше либо взять значение его href и делать с ним чё заботите.
Либо вызвать узлу метод click().

@Gamlex · 04.11.2020, 14:36 **[ТС]**

GoodWeather, да, это есть в html коде который я привел выше. Переход по ссылке не нужен, нужен именно клик по этому элементу. Подскажите пожалуйста как в Delphi вызвать метод click этому узлу?

@GoodWeather · 04.11.2020, 15:58

а... На него какие-то события JS что ли навешаны? хм... Ну надо пробовать.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
Procedure TForm1.Button1Click(Sender: TObject);
Var
  document, collection: OleVariant;
Begin
document := WebBrowser1.OleObject.document;
// Тут можно дополнительно проверять что document существует вообще...
collection := document.querySelectorAll('.pager .pageToInsert .pagination-next');
If (collection.length > 0) Then
  collection.item(0).click()
Else
  ShowMessage('Не найдено ни одного узла подходящего по фильтру!');
End;

Добавлено через 1 минуту
Возможно для этого кода требуется обязательное повышение версии эмуляции...

Добавлено через 1 минуту

Сообщение от BOGG ART

Повысить версию TWebBrowser aka FEATURE_BROWSER_EMULATION

Добавлено через 1 минуту
В реестре значение установить. Для предварительного тестирования программы - можно и вручную.

@Gamlex · 04.11.2020, 22:25 **[ТС]**

GoodWeather,
Большое спасибо за развёрнутый ответ. Завтра попробую так сделать.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@GoodWeather 886 / 588 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	04.11.2020, 14:09
	Найти `a` с классом `.pagination-next`. А дальше либо взять значение его `href` и делать с ним чё заботите. Либо вызвать узлу метод `click()`. 0

@Gamlex 0 / 0 / 0 Регистрация: 02.07.2012 Сообщений: 66
	04.11.2020, 14:36 [ТС]
	GoodWeather, да, это есть в html коде который я привел выше. Переход по ссылке не нужен, нужен именно клик по этому элементу. Подскажите пожалуйста как в Delphi вызвать метод click этому узлу? 0

@Gamlex 0 / 0 / 0 Регистрация: 02.07.2012 Сообщений: 66
	04.11.2020, 22:25 [ТС]
	GoodWeather, Большое спасибо за развёрнутый ответ. Завтра попробую так сделать. 0