Получение кода страницы TChromium DCEF3

@FF117 · Регистрация: 25.10.2014

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

Привет, гуру.

Необходимо получать код страницы, загруженной в хромиум, из главного потока приложения и из созданного мной. Используется версия хромиума отсюда. В этой версии у него нет свойства Browser.MainFrame.Source.

В примере guiclient из папки demos для получения кода загруженной страницы используют:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TMainForm.actGetSourceExecute(Sender: TObject);
begin
  crm.Browser.MainFrame.GetSourceProc(CallbackGetSource);
end;
 
procedure CallbackGetSource(const src: ustring);
var
  source: ustring;
begin
  source := src;
  source := StringReplace(source, '<', '&lt;', [rfReplaceAll]);
  source := StringReplace(source, '>', '&gt;', [rfReplaceAll]);
  source := '<html><body>Source:<pre>' + source + '</pre></body></html>';
  MainForm.crm.Browser.MainFrame.LoadString(source, 'source://html');
end;

Если использую этот код, то в переменной, в которой храню код страницы, верный код появляется только после нескольких получений. Гуглеж показал что этот способ получения кода требует некоторого времени для того, чтобы получился код текущей старницы (что-то связанное с асинхронностью и колбэками). Т.е. если проверять значение переменной с кодом сразу после вызова crm.Browser.MainFrame.GetSourceProc(Call backGetSource), то там будет предыдущее состояние.

Поэтому вопрос: как корректно получать код страницы, чтобы быть уверенным в его актуальности? И второй вопрос: как корректно получать код страницы из доп. потока?

@BOGG ART · 27.04.2016, 15:50

Версия Делфи?
Версия DCEF?
Какого ещё потока?

Ну проверяйте не сразу после вызова, не? С:

@FF117 · 27.04.2016, 18:49 **[ТС]**

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

Версия Делфи?
Версия DCEF?
Какого ещё потока?

Ну проверяйте не сразу после вызова, не? С:

1. XE3.
2. Указана первом сообщении.
3. Есть доп. поток в котором проверяю код страницы и делаю что надо.

Если проверять не сразу после вызова так:

Delphi
1
2
3
4
5
6
7
PageSource = '';
crm.Browser.MainFrame.GetSourceProc(CallbackGetSource);
while PageSource = '' do
  begin
    sleep(100);
    Application.ProcessMessages;
  end;

то это не вариант.

@FF117 · 29.04.2016, 20:24 **[ТС]**

Погуглил. Проблема (как я и писал) в том, что колбэк ф-я выполняется асинхронно, т.е. если после строчки

Delphi
1
crm.Browser.MainFrame.GetSourceProc(CallbackGetSource)

сразу же проверить переменную в которую пишем код страницы, то в ней не будет актуальной инфы. Она там появится только после того, как отработает CallbackGetSource.

Поэтому вопрос: как узнать о том, что CallbackGetSource выполнилась?

@BOGG ART · 29.04.2016, 21:47

Ну я именно это и подразумевал под "проверяйте не сразу".

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

2. Указана первом сообщении.

эм... Нет. Это репозиторий. Грубо говоря папка на сервере. Что-то удаляют, что-то добавляют, что-то меняют. Сейчас там есть 4 разные версии.
Кажется у вас какая-то старая. Вот так сделайте:

Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
Chromium1.Load('about:version');
end;

Добавлено через 50 минут
https://groups.google.com/foru... ckdcKOCLzw

@FF117 · 30.04.2016, 17:10 **[ТС]**

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

Кажется у вас какая-то старая.

CEF 3.2171.1979
Chromium 39.0.2171.95
WebKit 537.36

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

https://groups.google.com/foru... ckdcKOCLzw

GetSource() же тоже асинхронно вызывается, так что не подходит.

Да и во всех примерах, что есть в сети, код получают либо по событию OnLoadEnd, либо просто пишут в мемо. Мне же надо получить код и сразу же обработать результат.

@madzal · 30.04.2016, 18:04

попробуй через js повесить код на событие DomContentLoad

@BOGG ART · 30.04.2016, 18:10

CEF 3.2171.1979

Вывод, CEF3 версии 2171. Ей почти год. Сейчас на третьем месте по старости.
У меня пока как оказалось самая новая - 2454, но на Делфи 7 глючит чудовищно. А на XE+ вроде слышал что нормально.

Чем же не подходит? GetSource() > Visit > готово.
Или на самый-самый крайний случай: выключаем флаг > GetSource > Visit (включает флаг в конце) > ждём флаг > готово.

@FF117 · 30.04.2016, 20:11 **[ТС]**

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

Чем же не подходит? GetSource() > Visit > готово.

Пробовал этот вариант http://stackoverflow.com/quest... and-method, суть та же, что и в том, что по твоей ссылке https://groups.google.com/foru... ckdcKOCLzw. Visit выполняется после того, как сработает моя проверка переменной с кодом.

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

Или на самый-самый крайний случай: выключаем флаг > GetSource > Visit (включает флаг в конце) > ждём флаг > готово.

Мой вопрос как раз в том и заключается: как ждать флаг? Причем ждать его нужно как из главного потока приложения, так и из доп. потока, созданного мной.

@BOGG ART · 30.04.2016, 23:14

А нельзя просто делать всё что нужно в Visit() ?

@FF117 · 01.05.2016, 02:38 **[ТС]**

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

А нельзя просто делать всё что нужно в Visit() ?

Нельзя. После проверки куча кода идет.

@FF117 · 04.05.2016, 21:34 **[ТС]**

ап темы

@FF117 · 11.05.2016, 00:23 **[ТС]**

есть идеи?

Fix777 · 12.05.2016, 14:07

Там демки роде есть...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure GetChromSource(const src: ustring);
var
  source: ustring;
begin
  source := src;
  Form1.Memo1.Lines.Add( source );
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var HTML : ustring;
begin
 Chromium1.Browser.MainFrame.GetSourceProc(GetChromSource);
end;

@FF117 · 12.05.2016, 21:44 **[ТС]**

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

Там демки роде есть...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure GetChromSource(const src: ustring);
var
  source: ustring;
begin
  source := src;
  Form1.Memo1.Lines.Add( source );
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var HTML : ustring;
begin
 Chromium1.Browser.MainFrame.GetSourceProc(GetChromSource);
end;

Перечитай мое самое первое сообщение в теме...
GetChromSource вызывается асинхронно. Вопрос в том, как ждать результат ее выполнения.

@BOGG ART · 12.05.2016, 22:05

Не по теме:

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

После куча кода идет.

А я всё ещё не понимаю почему эту кучу нельзя вызвать из Visit()...

@FF117 · 19.05.2016, 21:58 **[ТС]**

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

Не по теме:

А я всё ещё не понимаю почему эту кучу нельзя вызвать из Visit()...

Потому что тогда проект с понятной структурой кода превратится непонятно во что. Однако, если не требуется большого числа проверок кода страницы, то такой метод вполне имеет право на жизнь.

@BOGG ART · 20.05.2016, 00:46

Не по теме:

Метод вида AfterGetSource() вполне себе понятен... А что значит "проверять"? Зачем его "проверять"? Получили - обработали.

@FF117 · 20.05.2016, 17:36 **[ТС]**

Тему можно закрывать.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@BOGG ART 592 / 459 / 147 Регистрация: 09.12.2013 Сообщений: 2,385 Записей в блоге: 2
	27.04.2016, 15:50
	Версия Делфи? Версия DCEF? Какого ещё потока? Ну проверяйте не сразу после вызова, не? С: 0

@madzal 54 / 54 / 40 Регистрация: 22.08.2014 Сообщений: 424
	30.04.2016, 18:04
	попробуй через js повесить код на событие DomContentLoad 0

@BOGG ART 592 / 459 / 147 Регистрация: 09.12.2013 Сообщений: 2,385 Записей в блоге: 2
	30.04.2016, 23:14
	А нельзя просто делать всё что нужно в Visit() ? 0

@FF117 0 / 0 / 0 Регистрация: 25.10.2014 Сообщений: 44
	04.05.2016, 21:34 [ТС]
	ап темы 0

@FF117 0 / 0 / 0 Регистрация: 25.10.2014 Сообщений: 44
	11.05.2016, 00:23 [ТС]
	есть идеи? 0

@BOGG ART
	20.05.2016, 00:46
	Не по теме: Метод вида AfterGetSource() вполне себе понятен... А что значит "проверять"? Зачем его "проверять"? Получили - обработали. 0

@FF117 0 / 0 / 0 Регистрация: 25.10.2014 Сообщений: 44
	20.05.2016, 17:36 [ТС]
	Тему можно закрывать. 0