delphi - delphi - 从Chromium Embedded获取HTML源代码

如何使用Delphi Chromium Embedded Component我知道如何使用TWebBrowser执行此操作。 但由于没有文件存在,我相信其他人也有同样的问题。

谢谢

时间:

这就是你要做的。


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;



在 dcef 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;



:/无论如何 - 因为我非常检查html源代码,我声明


CefStringVisitor := TCefFastStringVisitor.Create(StringVisitor);



在程序开始时,然后仅使用


function GetSourceHTML: string;


begin


 Chromium1.Browser.MainFrame.GetSource(CefStringVisitor);


end;



我想问一下我是否应该知道它 - 也许这是一个坏主意?

在Delphi XE10 Seattle:


function TfrmMain.GetSource: String;


var sResult: String;


begin


 chmBrowser.Browser.MainFrame.GetSourceProc(


 procedure (const src : ustring)


 begin


 sResult := src;


 end


 );


 Result:= sResult;


end;



...