dcef3 基本使用经验总结

痛定思痛。 2021-12-01 11:58 418阅读 0赞

# [dcef3 基本使用经验总结][dcef3] #

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

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

其它cmdLine

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div>
      1 
    </div> 
    <div>
      2 
    </div> 
    <div>
      3 
    </div> 
    <div>
      4 
    </div> 
    <div>
      5 
    </div> 
    <div>
      6 
    </div> 
    <div>
      7 
    </div> 
    <div>
      8 
    </div> 
    <div>
      9 
    </div> 
    <div>
      10 
    </div> 
    <div>
      11 
    </div> 
    <div>
      12 
    </div> 
    <div>
      13 
    </div> 
    <div>
      14 
    </div> 
    <div>
      15 
    </div> 
    <div>
      16 
    </div> 
    <div>
      17 
    </div> 
    <div>
      18 
    </div> 
    <div>
      19 
    </div> 
    <div>
      20 
    </div> 
    <div>
      21 
    </div> 
    <div>
      22 
    </div> </td> 
   <td> 
    <div> 
     <div> 
      <code>procedure</code> 
      <span>&nbsp;<code>OnBeforeCmdLine(</code><code>const</code><span>&nbsp;<code>processType: ustring;<span>&nbsp;</span></code><code>const</code><span>&nbsp;<code>commandLine: ICefCommandLine);</code></span></span></span> 
     </div> 
     <div> 
      <code>begin</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>//加载系统安装的flash，使用前系统需安装flash播放器</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>//commandLine.AppendSwitch('--enable-system-flash');</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>//允许js跨域</code> 
     </div> 
     <div> 
      <div> 
       <code>&nbsp;&nbsp;</code> 
       <code>commandLine</code> 
       <code>.</code> 
       <code>AppendSwitch(</code> 
       <code>'--disable-web-security'</code> 
       <code>);</code>&nbsp; 
      </div> 
      <div> 
       <div> 
        <code>&nbsp;str_ip:='218.207.212.79:80';&nbsp;<span>&nbsp;</span></code> 
        <code>//设置代理ip&nbsp; 120.203.159.18:8118&nbsp; 218.189.26.20:8080</code> 
       </div> 
       <div> 
        <code>&nbsp;&nbsp;commandLine.AppendSwitchWithValue('proxy-server',str_ip);</code> 
        <code></code> 
       </div> 
       <div>
         &nbsp; 
       </div> 
      </div> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>//禁用代理</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>//commandLine.AppendSwitch('no-proxy-server');</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>//不同域名不同进程</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>commandLine</code> 
      <code>.</code> 
      <code>AppendSwitch(</code> 
      <code>'--process-per-site'</code> 
      <code>);</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>//指定子进程渲染</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>//commandLine.AppendSwitchWithValue('browser-subprocess-path', 'cefsubprocess.exe');</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>//加载指定flash版本</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>commandLine</code> 
      <code>.</code> 
      <code>AppendSwitchWithValue(</code> 
      <code>'ppapi-flash-version'</code> 
      <code>,<span>&nbsp;</span></code> 
      <code>'21.0.0.213'</code> 
      <code>);</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>commandLine</code> 
      <code>.</code> 
      <code>AppendSwitchWithValue(</code> 
      <code>'ppapi-flash-path'</code> 
      <code>,<span>&nbsp;</span></code> 
      <code>'PepperFlash\pepflashplayer.dll'</code> 
      <code>);</code> 
     </div> 
     <div> 
      <code>end</code> 
      <code>;</code> 
     </div> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

拓展JS方法

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div>
      1 
    </div> 
    <div>
      2 
    </div> 
    <div>
      3 
    </div> 
    <div>
      4 
    </div> 
    <div>
      5 
    </div> 
    <div>
      6 
    </div> 
    <div>
      7 
    </div> 
    <div>
      8 
    </div> 
    <div>
      9 
    </div> 
    <div>
      10 
    </div> 
    <div>
      11 
    </div> 
    <div>
      12 
    </div> 
    <div>
      13 
    </div> 
    <div>
      14 
    </div> 
    <div>
      15 
    </div> 
    <div>
      16 
    </div> 
    <div>
      17 
    </div> 
    <div>
      18 
    </div> 
    <div>
      19 
    </div> 
    <div>
      20 
    </div> 
    <div>
      21 
    </div> 
    <div>
      22 
    </div> 
    <div>
      23 
    </div> 
    <div>
      24 
    </div> 
    <div>
      25 
    </div> 
    <div>
      26 
    </div> 
    <div>
      27 
    </div> 
    <div>
      28 
    </div> 
    <div>
      29 
    </div> 
    <div>
      30 
    </div> 
    <div>
      31 
    </div> 
    <div>
      32 
    </div> 
    <div>
      33 
    </div> 
    <div>
      34 
    </div> 
    <div>
      35 
    </div> </td> 
   <td> 
    <div> 
     <div> 
      <code>TCustomRenderProcessHandler =<span>&nbsp;</span></code> 
      <code>class</code> 
      <code>(TCefRenderProcessHandlerOwn)</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>protected</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;&nbsp;&nbsp;</code> 
      <code>procedure</code> 
      <span>&nbsp;<code>OnWebKitInitialized; override;</code></span> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>end</code> 
      <code>;</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>TTestExtension =<span>&nbsp;</span></code> 
      <code>class</code> 
     </div> 
     <div> 
      <code>class</code> 
      <span>&nbsp;<code>function</code><span>&nbsp;<code>hello:<span>&nbsp;</span></code><code>string</code><code>;</code></span></span> 
     </div> 
     <div> 
      <code>class</code> 
      <span>&nbsp;<code>procedure</code><span>&nbsp;<code>mouseover(</code><code>const</code><span>&nbsp;<code>data:<span>&nbsp;</span></code><code>string</code><code>);</code></span></span></span> 
     </div> 
     <div> 
      <code>end</code> 
      <code>;</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>procedure</code> 
      <span>&nbsp;<code>TCustomRenderProcessHandler</code><code>.</code><code>OnWebKitInitialized;</code></span> 
     </div> 
     <div> 
      <code>begin</code> 
     </div> 
     <div> 
      <code>{$IFDEF DELPHI14_UP}</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>TCefRTTIExtension</code> 
      <code>.</code> 
      <code>Register(</code> 
      <code>'app'</code> 
      <code>, TTestExtension);</code> 
     </div> 
     <div> 
      <code>{ </code> 
      <code>$ENDIF</code> 
      <code>}</code> 
     </div> 
     <div> 
      <code>end</code> 
      <code>;</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>class</code> 
      <span>&nbsp;<code>procedure</code><span>&nbsp;<code>TTestExtension</code><code>.</code><code>mouseover(</code><code>const</code><span>&nbsp;<code>data:<span>&nbsp;</span></code><code>string</code><code>);</code></span></span></span> 
     </div> 
     <div> 
      <code>var</code> 
     </div> 
     <div> 
      <code>msg: ICefProcessMessage;</code> 
     </div> 
     <div> 
      <code>begin</code> 
     </div> 
     <div> 
      <code>msg := TCefProcessMessageRef</code> 
      <code>.</code> 
      <code>New(</code> 
      <code>'mouseover'</code> 
      <code>);</code> 
     </div> 
     <div> 
      <code>msg</code> 
      <code>.</code> 
      <code>ArgumentList</code> 
      <code>.</code> 
      <code>SetString(</code> 
      <code>0</code> 
      <code>, data);</code> 
     </div> 
     <div> 
      <code>TCefv8ContextRef</code> 
      <code>.</code> 
      <code>Current</code> 
      <code>.</code> 
      <code>Browser</code> 
      <code>.</code> 
      <code>SendProcessMessage(PID_BROWSER, msg);</code> 
     </div> 
     <div> 
      <code>end</code> 
      <code>;</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>class</code> 
      <span>&nbsp;<code>function</code><span>&nbsp;<code>TTestExtension</code><code>.</code><code>hello:<span>&nbsp;</span></code><code>string</code><code>;</code></span></span> 
     </div> 
     <div> 
      <code>begin</code> 
     </div> 
     <div> 
      <code>Result :=<span>&nbsp;</span></code> 
      <code>'Hello from Delphi'</code> 
      <code>;</code> 
     </div> 
     <div> 
      <code>end</code> 
      <code>;</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>initialization</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>CefRemoteDebuggingPort :=<span>&nbsp;</span></code> 
      <code>9000</code> 
      <code>;</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>CefRenderProcessHandler := TCustomRenderProcessHandler</code> 
      <code>.</code> 
      <code>Create;</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>CefBrowserProcessHandler := TCefBrowserProcessHandlerOwn</code> 
      <code>.</code> 
      <code>Create;</code> 
     </div> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

Delphi执行JS方法

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div>
      1 
    </div> 
    <div>
      2 
    </div> 
    <div>
      3 
    </div> 
    <div>
      4 
    </div> 
    <div>
      5 
    </div> 
    <div>
      6 
    </div> </td> 
   <td> 
    <div> 
     <div> 
      <code>procedure</code> 
      <span>&nbsp;<code>TMainForm</code><code>.</code><code>actExecuteJSExecute(Sender: TObject);</code></span> 
     </div> 
     <div> 
      <code>begin</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;</code> 
      <code>if</code> 
      <span>&nbsp;<code>crm</code><code>.</code><code>Browser &lt;&gt;<span>&nbsp;</span></code><code>nil</code><span>&nbsp;<code>then</code></span></span> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;&nbsp;&nbsp;</code> 
      <code>crm</code> 
      <code>.</code> 
      <code>Browser</code> 
      <code>.</code> 
      <code>MainFrame</code> 
      <code>.</code> 
      <code>ExecuteJavaScript(</code> 
     </div> 
     <div> 
      <code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</code> 
      <code>'alert('</code> 
      <code>'JavaScript execute works!'</code> 
      <code>');'</code> 
      <code>,<span>&nbsp;</span></code> 
      <code>'about:blank'</code> 
      <code>,<span>&nbsp;</span></code> 
      <code>0</code> 
      <code>);</code> 
     </div> 
     <div> 
      <code>end</code> 
      <code>;</code> 
     </div> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

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

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

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

[dcef3]: https://www.cnblogs.com/h2285409/p/10517483.html