How to do this with Delphi Chromium Embedded Component i know how to do this with TWebBrowser. But since no docs are present for this I am sure someone else had same problem.
Thanks
asked
Nov 10 '12 at 17:06
Here is how you do it..
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;
answered
Nov 10 '12 at 18:12
in 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;
转载于:https://www.cnblogs.com/delphi-xe5/p/6025107.html