让CEF框架支持 COM/ActiveX控件

        通常各种浏览器都支持某种插件机制，以方便扩充页面脚本的能力，丰富页面内容。

比如：对于 Trident 内核（IE浏览器），可以使用 ActiveX控件。对于Gecko内核（火狐浏览器）和Webkit/Blink内核（Safari，Chrome系列浏览器），可以使用NPAPI插件，以及PPAPI插件。

       遗憾的是，各种浏览器的插件机制不仅不能够兼容统一，而且高版本的Chrome系列浏览器非但不再支持传统的NPAPI插件，甚至PPAPI插件（Flash除外）亦难以部署发布，通常仅能用作本机调试之用，实为无奈。╮(╯﹏╰）╭

        这里笔者不打算讨论如何统一各类浏览器插件机制的问题，貌似有现成的厂商做这个，比如 某厂的 "牛插件" 就是通过WebSocket实现的插件与浏览器的通信调用。

       只简要介绍下在CEF框架中支持 COM/ActiveX控件，以兼容传统IE内核ActiveX插件的方法。

项目地址：

             Win32exts_for_CEF3: Win32exts_for_CEF3https://gitee.com/tankaishuai/Win32exts_for_CEF3

为了让CEF框架支持 COM/ActiveX控件，只需要 在渲染进程的 OnContextCreated（）回调中添加如下代码：

virtual void OnContextCreated(...) {

    CefRefPtr<CefV8Value> windowObject = context->GetGlobal();

    //
    // 仅仅只需要调用 RegisterActiveXObject_CEF() API 即可.
    //
    typedef bool (* RegisterActiveXObject_CEF_T)(CefV8Value *windowObject, HWND hWnd, LPVOID lpReserved);

    typedef void (* SetRemoteBrowser_CEF_T)(HWND hWnd);

    WCHAR szPath[MAX_PATH] = { 0 };
    GetModuleFileNameW(NULL, szPath, MAX_PATH);
    PathRemoveFileSpecW(szPath);
    PathAppendW(szPath, L"win32exts_web.dll");
    HMODULE hDll = LoadLibraryW(szPath);
    if (hDll){
        RegisterActiveXObject_CEF_T pfnRegisterActiveXObject_CEF =
            (RegisterActiveXObject_CEF_T)GetProcAddress(hDll, "RegisterActiveXObject_CEF");

        if (pfnRegisterActiveXObject_CEF){
            pfnRegisterActiveXObject_CEF(windowObject, g_hRemoteBrowser, NULL);
        }

          //
          // Set the browser window handle for ActiveX Control. No needed any more!!
          //
          SetRemoteBrowser_CEF_T pfnSetRemoteBrowser_CEF =
                (SetRemoteBrowser_CEF_T)GetProcAddress(hDll, "SetRemoteBrowser_CEF");
          if (pfnSetRemoteBrowser_CEF) {
                pfnSetRemoteBrowser_CEF(g_hRemoteBrowser);
          }
    }
}

然后，该CEF浏览器即支持了在js脚本 中加载ActiveX控件的能力，

创建控件示例代码：

/*********************************  ver 31.2019.10.20  ******************************
除原来的 ActiveXObject 之外， 新增对 ActiveX 控件的支持： 
创建：
var activex_ctrl = new ActiveXControl("prog_id", parent_wnd, x, y, r, b)

（parent_wnd 非常重要，将直接影响控件风格。
如果指定 0，将在一个弹出窗口创建；如果指定一个负数，则将优先选择
引擎传入的 SetRemoteBrowser( hwnd ) 浏览器句柄。）

每个控件都含有下列几个 Ax_*** 开头的内置的成员函数：
ptr = activex_ctrl.Ax_GetRaw()
pUnk = activex_ctrl.Ax_GetHost()
pDisp = activex_ctrl.Ax_GetControl()
hwnd = activex_ctrl.Ax_GetWindow()
activex_ctrl.Ax_ShowWindow( nCmdShow )
activex_ctrl.Ax_MoveWindow( [z_order] or [x, y] or [x, y, r, b] )
strInfo = activex_ctrl.Ax_ListSym()

cookie = activex_ctrl.Ax_ListenEvent( "event_iid", event_sink )

一个控件有哪些方法、属性可以通过 Ax_ListSym() 函数查看，当然也可以用其他工具。
例如笔者开发的 90坦克大战 游戏控件：
----Function----
QueryInterface=1610612736(1)
AddRef=1610612737(1)
Release=1610612738(1)
GetTypeInfoCount=1610678272(1)
GetTypeInfo=1610678273(1)
GetIDsOfNames=1610678274(1)
Invoke=1610678275(1)
SetOwnSpeed=1610809344(0)
GetOwnSpeed=1610809345(0)
SetTotalCount=1610809346(0)
GetTotalCount=1610809347(0)
SetKeyboard=1610809348(0)
GetKeyboard=1610809349(0)
SetMusic=1610809350(0)
StartGame=1610809351(0)
EndGame=1610809352(0)
GetCurCount=1610809353(0)
GetCurScore=1610809354(0)
GetCurLevel=1610809355(0)
Execute=1610809356(0)
System=1610809357(0)
GetHelp=1610809358(0)
GetAbout=1610809359(0)
GetAppPath=1610809360(0)
InputMsgBox=1610809361(0)

调用控件方法：
ret = activex_ctrl.FunctionName( args ... )

获取属性：
ret = activex_ctrl.get_AttributeName()

修改属性：
activex_ctrl.put_AttributeName( new_val )

设置事件监听：

var event_sink = {}

event_sink.handler_259 = function( args ){

   // do something

}

event_sink.handler_s102 = function( args ){

   // do something

}

activex_ctrl.Ax_ListenEvent( "{34A715A0-6587-11D0-924A-0020AFC7AC4D}", event_sink )

取消事件监听：

activex_ctrl.Ax_ListenEvent( "{34A715A0-6587-11D0-924A-0020AFC7AC4D}", null )

*************************************************************/

示例用法如下：

    //创建游戏控件
    bbb = new ActiveXControl("Tank90Control.Tank90", -2)
    bbb.Ax_MoveWindow(50, 50, 600, 600)
    bbb.Ax_ShowWindow(1)
    //external.Log(bbb.Ax_ListSym())

    //自动开始游戏
    bbb.StartGame()

加载普通COM组建示例：
var active_x = new ActiveXObject("prog_appid");     //创建COM
ret = active_x.func1(1, 2);                                         //调用方法

ret = active_x.func2( "test", false, 0 ); 

与IE中的用法基本一致。实现了不改动 ActiveX控件 情况下的完美支持。可喜可贺可喜可贺。。