dcef3 基本使用经验总结

dcef3 基本使用经验总结

https://www.cnblogs.com/h2285409/p/10517483.html

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure  OnBeforeCmdLine(const processType: ustring; const commandLine: ICefCommandLine); begin      //加载系统安装的flash，使用前系统需安装flash播放器    //commandLine.AppendSwitch('--enable-system-flash');      //允许js跨域    commandLine . AppendSwitch( '--disable-web-security' );   str_ip:='218.207.212.79:80';   //设置代理ip  120.203.159.18:8118  218.189.26.20:8080   commandLine.AppendSwitchWithValue('proxy-server',str_ip);      //禁用代理    //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方法

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

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方法

1 2 3 4 5 6

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版本单进程不是很稳定，不建议使用单进程模式

转载于:https://www.cnblogs.com/delphi-xe5/p/11058695.html