Получение исходного кода в компоненте Chromium (Delphi)

Раньше для того, чтоб получить исходный код в компоненте Chromium хватало выполнить подобный код:

Однако, с некоторых пор свойство Source перестало работать таким способом.

Теперь, чтоб получить исходный код, необходимо выполнить такой код:

Нужно признать, что код усложнился. Не для чего разработчики внесли такие изменения… Но, факт — на лицо.

One comment

  • На Lazarus вот так:

    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;

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *