Парсинг динамической страницы сайта

@mrOzzo · Регистрация: 14.04.2017

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

Всем привет, помогите разобраться.
На странице имеется ссылка

HTML5
1
<a href="javascript:set_lcheck2(v1, v2, vc2, 2);"> </a>

при нажатии на которую происходит выбор всех Чекбоксов под ней. Их количество динамически меняется. Т.е. обновив страницу через какое-то время, число чекбоксов будет другим.
Затем при нажатии кнопки

HTML5
1
<input class="msbtn1" style="width:120px;" value="Далее" type="submit">

создается другая страница (которая мне и нужна), состоящая из всех выбранных в чекбоксах элементах.
Как можно программно выбрать чекбоксы и нажать на кнопку, чтобы в итоге получить нужную мне страницу.
Использую компонент IdHTTP. Полазив на форуме понял, что нужно использовать метод Post, но не пойму как передать ему параметры?
Или есть какой-то другой способ работы с динамически создаваемыми страницами?

@Avazart · 07.05.2017, 13:26

Сообщение от mrOzzo

Парсинг динамической страницы сайта - C++ Builder

Нормально возможен только в браузере.

@Почтальон · 08.05.2017, 08:38

mrOzzo, компонентом IdHTTP здесь не обойтись, нужен движок, который будет эмулировать работу браузера, например, Chromium

@mrOzzo · 08.05.2017, 08:46 **[ТС]**

И что, нет других вариантов?

Почтальон
В Builder'е его нет. И как вообще с ним работать?

@Почтальон · 08.05.2017, 09:29

mrOzzo, вот как это делается на дельфийском:
Где скачать компонент TChromium и как его установить?
Думаю как подключить разберетесь, да и поиском по форуму можно много чего накопать

@mrOzzo · 08.05.2017, 16:26 **[ТС]**

Почтальон, если честно, не могу разобраться.
по вашей ссылке инфа устаревшая. Как я понял с оф. сайта https://bitbucket.org/chromiumembedded/cef компонент TChromium включен в состав Chromium Embedded Framework (CEF).

А вот как его добавить в Builder понять не могу (у меня RAD Studio 10 Seattle)
Скачал последнюю версию с http://opensource.spotify.com/cefbuilds/index.html но не могу разобраться как ее встроить. В дистрибутиве нет файлов *.dproj и *.dpk, чтоб добавить в Delphi, а потом уже в Builder как описано по вашей ссылке

Где подробно расписано как это делается? Или если можно опишите все шаги здесь, как добавить в Delphi, а потом прикрепить в Builder.
В крайнем случае, растолкуйте по этой теме, что к чему, я уже что-то совсем запутался, в голове каша от избытка новой информации.

@Avazart · 08.05.2017, 17:10

Можно и использовать и TСppWebBrowser но нужно будет настроить совместимость в реестре для своего приложения.

@mrOzzo · 08.05.2017, 17:26 **[ТС]**

Avazart,
с CppWebBrowser вообще работать не получается, ошибка выскакивает после размещения компонента на форме

RAD Studio 10 Seattle

Details

(F011E4CC){bds.exe } [F011F4CC]
[50993529]{vcl230.bpl } Vcl.Controls.TControl.WndProc (Line 7249, "Vcl.Controls.pas" + 91) + $6
[509967EA]{vcl230.bpl } Vcl.Controls.TWinControl.GetControl (Line 9166, "Vcl.Controls.pas" + 4) + $A
[5005FA5A]{rtl230.bpl } System.@IsClass (Line 16668, "System.pas" + 1) + $8
[50AD88EB]{vcl230.bpl } Vcl.Forms.TraverseClients3 (Line 7390, "Vcl.Forms.pas" + 5) + $29
[50998069]{vcl230.bpl } Vcl.Controls.TWinControl.WndProc (Line 10079, "Vcl.Controls.pas" + 158) + $6
[50AD3860]{vcl230.bpl } Vcl.Forms.TCustomForm.WndProc (Line 4454, "Vcl.Forms.pas" + 206) + $5
[50060708]{rtl230.bpl } System.TMonitor.TryEnter (Line 18148, "System.pas" + 10) + $0
[50060288]{rtl230.bpl } System.TMonitor.Enter (Line 17841, "System.pas" + 4) + $2
[5006010C]{rtl230.bpl } System.TMonitor.CheckOwningThread (Line 17759, "System.pas" + 2) + $0
[50060416]{rtl230.bpl } System.TMonitor.Exit (Line 17945, "System.pas" + 1) + $2
[50060467]{rtl230.bpl } System.TMonitor.Exit (Line 17967, "System.pas" + 2) + $7
[50157312]{rtl230.bpl } System.Classes.TInterfaceList.GetCount (Line 5068, "System.Classes.pas" + 5) + $9
[50067110]{rtl230.bpl } System.@IntfClear (Line 36551, "System.pas" + 10) + $0
[5249094E]{vcldesigner230.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3656, "VCLSurface.pas" + 186) + $28
[5005FA5A]{rtl230.bpl } System.@IsClass (Line 16668, "System.pas" + 1) + $8
[50993529]{vcl230.bpl } Vcl.Controls.TControl.WndProc (Line 7249, "Vcl.Controls.pas" + 91) + $6
[50ADEB3F]{vcl230.bpl } Vcl.Forms.TApplication.DispatchAction (Line 11644, "Vcl.Forms.pas" + 9) + $C
[50993164]{vcl230.bpl } Vcl.Controls.TControl.Perform (Line 7027, "Vcl.Controls.pas" + 10) + $8
[50ADEB3F]{vcl230.bpl } Vcl.Forms.TApplication.DispatchAction (Line 11644, "Vcl.Forms.pas" + 9) + $C
[50ADC29B]{vcl230.bpl } Vcl.Forms.TApplication.WndProc (Line 10007, "Vcl.Forms.pas" + 98) + $B
[5017252C]{rtl230.bpl } System.Classes.StdWndProc (Line 16881, "System.Classes.pas" + 8) + $0
[50997C78]{vcl230.bpl } Vcl.Controls.TWinControl.WndProc (Line 9954, "Vcl.Controls.pas" + 33) + $6
[2116206E]{designide230.bpl} DeskUtil.SetFocusHook (Line 463, "DeskUtil.pas" + 4) + $C
[50B1A235]{vcl230.bpl } Vcl.OleCtrls.TOleControl.WndProc (Line 2476, "Vcl.OleCtrls.pas" + 29) + $4
[50997688]{vcl230.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9786, "Vcl.Controls.pas" + 3) + $6
[5017252C]{rtl230.bpl } System.Classes.StdWndProc (Line 16881, "System.Classes.pas" + 8) + $0
[50ADCDDC]{vcl230.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 10417, "Vcl.Forms.pas" + 2) + $9
[50ADCEFE]{vcl230.bpl } Vcl.Forms.TApplication.HandleMessage (Line 10468, "Vcl.Forms.pas" + 1) + $4
[50ADD231]{vcl230.bpl } Vcl.Forms.TApplication.Run (Line 10606, "Vcl.Forms.pas" + 26) + $3

@Avazart · 08.05.2017, 17:34

Сообщение от mrOzzo

Avazart,
с CppWebBrowser вообще работать не получается, ошибка выскакивает после размещения компонента на форме

Еще раз :

Сообщение от Avazart

Можно и использовать и TСppWebBrowser но нужно будет настроить совместимость в реестре для своего приложения.

@mrOzzo · 08.05.2017, 17:48 **[ТС]**

И как это сделать?

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	08.05.2017, 08:38
	mrOzzo, компонентом IdHTTP здесь не обойтись, нужен движок, который будет эмулировать работу браузера, например, Chromium 0

@mrOzzo 0 / 0 / 0 Регистрация: 14.04.2017 Сообщений: 9
	08.05.2017, 08:46 [ТС]
	И что, нет других вариантов? Почтальон В Builder'е его нет. И как вообще с ним работать? 0

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	08.05.2017, 09:29
	mrOzzo, вот как это делается на дельфийском: Где скачать компонент TChromium и как его установить? Думаю как подключить разберетесь, да и поиском по форуму можно много чего накопать 1

@mrOzzo 0 / 0 / 0 Регистрация: 14.04.2017 Сообщений: 9
	08.05.2017, 16:26 [ТС]
	Почтальон, если честно, не могу разобраться. по вашей ссылке инфа устаревшая. Как я понял с оф. сайта https://bitbucket.org/chromiumembedded/cef компонент TChromium включен в состав Chromium Embedded Framework (CEF). А вот как его добавить в Builder понять не могу (у меня RAD Studio 10 Seattle) Скачал последнюю версию с http://opensource.spotify.com/cefbuilds/index.html но не могу разобраться как ее встроить. В дистрибутиве нет файлов .dproj и .dpk, чтоб добавить в Delphi, а потом уже в Builder как описано по вашей ссылке Где подробно расписано как это делается? Или если можно опишите все шаги здесь, как добавить в Delphi, а потом прикрепить в Builder. В крайнем случае, растолкуйте по этой теме, что к чему, я уже что-то совсем запутался, в голове каша от избытка новой информации. 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	08.05.2017, 17:10
	Можно и использовать и TСppWebBrowser но нужно будет настроить совместимость в реестре для своего приложения. 0

@mrOzzo 0 / 0 / 0 Регистрация: 14.04.2017 Сообщений: 9
	08.05.2017, 17:26 [ТС]
	Avazart, с CppWebBrowser вообще работать не получается, ошибка выскакивает после размещения компонента на форме RAD Studio 10 Seattle Details (F011E4CC){bds.exe } [F011F4CC] [50993529]{vcl230.bpl } Vcl.Controls.TControl.WndProc (Line 7249, "Vcl.Controls.pas" + 91) + $6 [509967EA]{vcl230.bpl } Vcl.Controls.TWinControl.GetControl (Line 9166, "Vcl.Controls.pas" + 4) + $A [5005FA5A]{rtl230.bpl } System.@IsClass (Line 16668, "System.pas" + 1) + $8 [50AD88EB]{vcl230.bpl } Vcl.Forms.TraverseClients3 (Line 7390, "Vcl.Forms.pas" + 5) + $29 [50998069]{vcl230.bpl } Vcl.Controls.TWinControl.WndProc (Line 10079, "Vcl.Controls.pas" + 158) + $6 [50AD3860]{vcl230.bpl } Vcl.Forms.TCustomForm.WndProc (Line 4454, "Vcl.Forms.pas" + 206) + $5 [50060708]{rtl230.bpl } System.TMonitor.TryEnter (Line 18148, "System.pas" + 10) + $0 [50060288]{rtl230.bpl } System.TMonitor.Enter (Line 17841, "System.pas" + 4) + $2 [5006010C]{rtl230.bpl } System.TMonitor.CheckOwningThread (Line 17759, "System.pas" + 2) + $0 [50060416]{rtl230.bpl } System.TMonitor.Exit (Line 17945, "System.pas" + 1) + $2 [50060467]{rtl230.bpl } System.TMonitor.Exit (Line 17967, "System.pas" + 2) + $7 [50157312]{rtl230.bpl } System.Classes.TInterfaceList.GetCount (Line 5068, "System.Classes.pas" + 5) + $9 [50067110]{rtl230.bpl } System.@IntfClear (Line 36551, "System.pas" + 10) + $0 [5249094E]{vcldesigner230.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3656, "VCLSurface.pas" + 186) + $28 [5005FA5A]{rtl230.bpl } System.@IsClass (Line 16668, "System.pas" + 1) + $8 [50993529]{vcl230.bpl } Vcl.Controls.TControl.WndProc (Line 7249, "Vcl.Controls.pas" + 91) + $6 [50ADEB3F]{vcl230.bpl } Vcl.Forms.TApplication.DispatchAction (Line 11644, "Vcl.Forms.pas" + 9) + $C [50993164]{vcl230.bpl } Vcl.Controls.TControl.Perform (Line 7027, "Vcl.Controls.pas" + 10) + $8 [50ADEB3F]{vcl230.bpl } Vcl.Forms.TApplication.DispatchAction (Line 11644, "Vcl.Forms.pas" + 9) + $C [50ADC29B]{vcl230.bpl } Vcl.Forms.TApplication.WndProc (Line 10007, "Vcl.Forms.pas" + 98) + $B [5017252C]{rtl230.bpl } System.Classes.StdWndProc (Line 16881, "System.Classes.pas" + 8) + $0 [50997C78]{vcl230.bpl } Vcl.Controls.TWinControl.WndProc (Line 9954, "Vcl.Controls.pas" + 33) + $6 [2116206E]{designide230.bpl} DeskUtil.SetFocusHook (Line 463, "DeskUtil.pas" + 4) + $C [50B1A235]{vcl230.bpl } Vcl.OleCtrls.TOleControl.WndProc (Line 2476, "Vcl.OleCtrls.pas" + 29) + $4 [50997688]{vcl230.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9786, "Vcl.Controls.pas" + 3) + $6 [5017252C]{rtl230.bpl } System.Classes.StdWndProc (Line 16881, "System.Classes.pas" + 8) + $0 [50ADCDDC]{vcl230.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 10417, "Vcl.Forms.pas" + 2) + $9 [50ADCEFE]{vcl230.bpl } Vcl.Forms.TApplication.HandleMessage (Line 10468, "Vcl.Forms.pas" + 1) + $4 [50ADD231]{vcl230.bpl } Vcl.Forms.TApplication.Run (Line 10606, "Vcl.Forms.pas" + 26) + $3 0

@mrOzzo 0 / 0 / 0 Регистрация: 14.04.2017 Сообщений: 9
	08.05.2017, 17:48 [ТС]
	И как это сделать? 0