Получить исходный код HTML из Chromium Embedded

Как это сделать с помощью встроенного компонента Delphi Chromium? Я знаю, как это сделать с помощью TWebBrowser. Но поскольку для этого нет документов, я уверен, что у кого-то еще была такая же проблема.

Спасибо


google-chrome delphi delphi-xe2 tchromium
person Community    schedule 10.11.2012    source источник

Ответы (2)


arrow_upward
8
arrow_downward

Вот как вы это делаете..

procedure TCustomLoad.OnLoadEnd(const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer);
  var
  data:tstringlist;
begin
  data:=tstringlist.create;
  if frame.IsMain then
  data.text:=frame.Source; // HTML Source    
end;
  data.free;
end;
person Community    schedule 10.11.2012

arrow_upward
6
arrow_downward

в дцеф 3

procedure StringVisitor(const str: ustring);
begin
  //str is the SourceHtml
showmessage(str);
end;

function GetSourceHTML: string;
var
CefStringVisitor:ICefStringVisitor;
begin
  CefStringVisitor := TCefFastStringVisitor.Create(StringVisitor);
  Chromium1.Browser.MainFrame.GetSource(CefStringVisitor);
end;
person Delhpi    schedule 08.03.2014
comment
Предупреждение: процедура StringVisitor вызывается асинхронно. - person Stéphane B.; 15.05.2015
comment
@STBLand В этом случае кажется, что страница перезагружается. Как получить исходник без перезагрузки страницы? - person delphirules; 22.12.2015