转载注明出处:http://blog.youkuaiyun.com/nuonuo815
这个用来记录我们单前的程序加载的网页
怎么记录呢
//加载完成 把主窗体记录下来
procedure TForm1.chrm1LoadEnd(Sender: TObject; const browser: ICefBrowser;
const frame: ICefFrame; httpStatusCode: Integer);
begin
MainFrame := frame;
end;
//用来执行js
function TForm1.InsertScript2Page(sScript:string): Integer;
begin
if MainFrame = nil then Exit;
MainFrame.ExecuteJavaScript(sScript,'',0);
end;
每次执行 只需要调用这个方法即可
再有如何能够获取网页给客户端传递的消息呢 这就需要在嵌入到chro中加上chrm1Jsdialog事件了
procedure TForm1.chrm1Jsdialog(Sender: TObject; const browser: ICefBrowser;
const originUrl, acceptLang: ustring; dialogType: TCefJsDialogT