[Rusland]

В DCEF я делал так:

var Txt:String;
begin
Txt:=Chrom.Browser.MainFrame.Source;
end;

А теперь этот код не работает.
Как получить исходный код страницы из Chromium (DCEF3)?

[Rusland]

Сам же себе отвечаю:

Код:

  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;

Но может кто-то знает способ попроще? Буду рад услышать.