[Rusland]

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

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

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

[Rusland]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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;

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