delphi chrome获取html5,TChromium获取网页源代码delphi代码

使用Webbrowser取得网页源代码网上已经有很多例子了，而TChromium如何获得网页源代码呢？

第一种方法

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;

在dcef3中

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;

第三种

Chromium1.Browser.MainFrame.ViewSource;