dcef3与web程序交互

转载注明出处：http://blog.csdn.net/nuonuo815

这个用来记录我们单前的程序加载的网页

怎么记录呢

//加载完成 把主窗体记录下来
procedure TForm1.chrm1LoadEnd(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer);
begin
  MainFrame := frame;
end;

记录完成后我们定义一个执行js代码的方法

//用来执行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