dcef3 基本使用经验总结

 

查看版本号，插件

chrome://plugins/

chrome://version/

 

加载命令启动参数    --enable-system-flash 会加载系统默认的flash浏览器

procedure OnBeforeCmdLine(const processType: ustring; const commandLine: ICefCommandLine);
begin
  commandLine.AppendSwitch('--enable-system-flash');
  commandLine.AppendSwitch('--disable-web-security');
  commandLine.AppendSwitch('no-proxy-server');
end;

begin
  CefCache := 'cache';
  CefLocale := 'zh-CN';
  CefOnBeforeCommandLineProcessing := OnBeforeCmdLine;
  CefSingleProcess := False;

  if not CefLoadLibDefault then
    Exit;

  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

　　

其它cmdLine

procedure OnBeforeCmdLine(const processType: ustring; const commandLine: ICefCommandLine);
begin

  //加载系统安装的flash，使用前系统需安装flash播放器
  //commandLine.AppendSwitch('--enable-system-flash');

  //允许js跨域
  commandLine.AppendSwitch('--disable-web-security');

  //禁用代理
  //commandLine.AppendSwitch('no-proxy-server');

  //不同域名不同进程
  commandLine.AppendSwitch('--process-per-site');

  //指定子进程渲染
  //commandLine.AppendSwitchWithValue('browser-subprocess-path', 'cefsubprocess.exe');

  //加载指定flash版本
  commandLine.AppendSwitchWithValue('ppapi-flash-version', '21.0.0.213');
  commandLine.AppendSwitchWithValue('ppapi-flash-path', 'PepperFlash\pepflashplayer.dll');
end;

 

 

拓展JS方法

TCustomRenderProcessHandler = class(TCefRenderProcessHandlerOwn)
  protected
    procedure OnWebKitInitialized; override;
  end;

TTestExtension = class
class function hello: string;
class procedure mouseover(const data: string);
end;

procedure TCustomRenderProcessHandler.OnWebKitInitialized;
begin
{$IFDEF DELPHI14_UP}
  TCefRTTIExtension.Register('app', TTestExtension);
{$ENDIF}
end;

class procedure TTestExtension.mouseover(const data: string);
var
msg: ICefProcessMessage;
begin
msg := TCefProcessMessageRef.New('mouseover');
msg.ArgumentList.SetString(0, data);
TCefv8ContextRef.Current.Browser.SendProcessMessage(PID_BROWSER, msg);
end;

class function TTestExtension.hello: string;
begin
Result := 'Hello from Delphi';
end;

initialization
  CefRemoteDebuggingPort := 9000;
  CefRenderProcessHandler := TCustomRenderProcessHandler.Create;
  CefBrowserProcessHandler := TCefBrowserProcessHandlerOwn.Create;

　　

Delphi执行JS方法

procedure TMainForm.actExecuteJSExecute(Sender: TObject);
begin
  if crm.Browser <> nil then
    crm.Browser.MainFrame.ExecuteJavaScript(
      'alert(''JavaScript execute works!'');', 'about:blank', 0);
end;

　

 

一般单进程模式是用来调试的，release版本最好是多进程模式，如果debug版本也是多进程的话，由于Browser、Rendder等进程是独立分开的，所以即便在一些函数中打上断点也进不去！而单进程话就都可以进去。至于debug版本多进程模式下为何会弹出两个主程序窗口我也不是很清楚，但是release版本多进程模式下就正常了，只有一个主程序窗口。并且多进程模式下调用CefShutdown就是OK的，app也能够正常析构，而单进程模式调用CefShutdown会直接崩溃！

  另外，官方文档上说release版本单进程不是很稳定，不建议使用单进程模式