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

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

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

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

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

1 Comment

  1. На 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;

Leave a Reply

Your email address will not be published.


*