TChromium获取网页源代码delphi代码

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

1. 第一种方法

   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;

2. 在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;

3. 第三种

   Chromium1.Browser.MainFrame.ViewSource;