![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте!
Помогите пожалуйста с реализацией одной задачи на delphi 10, сам никак не могу разобраться. Использую компонент Chronium мне нужно получить исходный код\содержимое всплывающего по js скрипту окна в Memo. Например кликаешь на кнопку войти и всплывает форма входа. Вот этот код позволяет получить содержимое только основной страницы. Код:
public { Public declarations } HTML:ustring; ... procedure ShowSource(const SRC: ustring); begin Form1.HTML:=SRC; end; procedure TForm1.ChromLoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer); begin // это событие срабатывает, когда документ загружен if (browser <> nil) and (browser.Identifier = Chrom.BrowserId) and ((frame = nil) or (frame.IsMain)) then Chrom.Browser.MainFrame.GetSourceProc(ShowSource); end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(HTML); end; Можно конечно сделать через костыли, при появлении js окна выделить все, скопировать и вставить. Но это очень ненадежно и криво. Буду раз любой помощи! Скрин примера-окна в прикрепленном файле Код:
Chromium1.browser.MainFrame.SelectAll; Chromium1.browser.MainFrame.Copy; Memo1.PasteFromClipboard; |