假设需求如下：底层是一个数学运算库 DLL, 中间是 ActiveX 控件（它调用底层的数学运算库 DLL 来完成控制层），界面层在测试时可以是一个 exe 程序，最后发布到 IE 浏览器上测试。

数学运算库 DLL 的开发

      新建一个 Win32 DLL 项目，加入一个头文件 MyNum.h, 在其中声明所有的数学函数（为简单起见，本文只考虑加法运算），代码如下：

#ifndef MY_NUM_H
#define  MY_NUM_H
int  __stdcall AddNum( int , int );
#endif

请注意这里的方法声明为 __stdcall ，而 VC++ 默认的是 __cdecl ，由于组件的语言无关性要求调用和被调双方必须在函数调用的约定上一致，因此在后面加载 DLL 并获取此方法时也要求和你的声明一致。

      为了简单起见，加法方法的实现就放倒 DLL 入口点所在文件 , 代码如下：

//  NumDLL.cpp : 定义DLL 应用程序的入口点。
//
#include  " stdafx.h "
#include  " MyNum.h "

#ifdef _MANAGED
#pragma  managed(push, off)
#endif

int  __stdcall AddNum( int  Num1, int  Num2)
{
     return  Num1 + Num2;
}
BOOL APIENTRY DllMain( HMODULE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
     return  TRUE;
}

#ifdef _MANAGED
#pragma  managed(pop)
#endif

      为了能在其他程序中显示链接此 DLL ，我们为它加入一个 .def 文件，命名为 NumDLL.def ，列出此 DLL 导出的方法名称：

LIBRARY     " NumDLL "
EXPORTS
    AddNum

至此我们的数学运算函数库 DLL 就完成了。

用 ATL 开发 ActiveX 控件

      开发 ActiveX 控件有两种方式，一是 MFC, 二是 ATL, 而后者是专门用于 COM 组件开发，因此更适合于 ActiveX 。因此这里选择后者，前者的开发示例参考我这篇文章（ 用VC++开发ActiveX 控件完全教程（一） ）。

      新建一个 ATL 项目，命名为 ”FuckATL” ，接受默认设置。右键项目名，添加一个 ”ATL 简单对象 “ ，命名为 CaluNumCtrl ， 点击下一步进入组件选项设置界面。

      修改类的头文件 CaluNumCtrl.h 如下：

class  ATL_NO_VTABLE CCaluNumCtrl :
     public  CComObjectRootEx < CComSingleThreadModel > ,
     public  CComCoClass < CCaluNumCtrl,  & CLSID_CaluNumCtrl > ,
     public  ISupportErrorInfo,
     public  IConnectionPointContainerImpl < CCaluNumCtrl > ,
     public  CProxy_ICaluNumCtrlEvents < CCaluNumCtrl > ,
     public  IObjectWithSiteImpl < CCaluNumCtrl > ,
     public  IDispatchImpl < ICaluNumCtrl,  & IID_ICaluNumCtrl,  & LIBID_FuckATLLib,  /**/ /* wMajor = */   1 ,  /**/ /* wMinor = */   0 >
{
public :
    typedef  int  (__stdcall * PtrAddNum)( int , int );
    PtrAddNum MyAddNum;
    CCaluNumCtrl()
     {
         // 加载数学运算库DLL
        handle  =  ::LoadLibrary(_T( " D:\\dyk\\work\\NumDLL\\debug\\NumDLL.dll " ));
         if  (handle  ==  NULL) 
         {
            DWORD e  =  GetLastError();
             return ;
        }
         // 获取加法运算函数指针
        MyAddNum  =  (PtrAddNum)GetProcAddress(handle, " AddNum " );
    }
DECLARE_REGISTRY_RESOURCEID(IDR_CALUNUMCTRL)
BEGIN_COM_MAP(CCaluNumCtrl)
    COM_INTERFACE_ENTRY(ICaluNumCtrl)
    COM_INTERFACE_ENTRY(IDispatch)
    COM_INTERFACE_ENTRY(ISupportErrorInfo)
    COM_INTERFACE_ENTRY(IConnectionPointContainer)
    COM_INTERFACE_ENTRY(IObjectWithSite)
END_COM_MAP()

BEGIN_CONNECTION_POINT_MAP(CCaluNumCtrl)
    CONNECTION_POINT_ENTRY(__uuidof(_ICaluNumCtrlEvents))
END_CONNECTION_POINT_MAP()
//  ISupportsErrorInfo
    STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);
    DECLARE_PROTECT_FINAL_CONSTRUCT()
    HRESULT FinalConstruct()
     {
         return  S_OK;
    }
     void  FinalRelease()
     {
    }
// 组件对外放出的加法方法
public :
    STDMETHOD(AddNumbers)(LONG Num1, LONG Num2, LONG *  ReturnVal);     // 下面是一个NUM属性，也是用于测试,包含了读写设置方法
public :
    STDMETHOD(get_NUM)(SHORT *  pVal);
public :
    STDMETHOD(put_NUM)(SHORT newVal);
public :
    HMODULE handle; // 数学函数库模块句柄
} ;

在控件实现文件 CaluNumCtrl.cpp 中，代码如下：

STDMETHODIMP CCaluNumCtrl::AddNumbers(LONG Num1, LONG Num2, LONG *  ReturnVal)
{
     int  sum  =   this -> MyAddNum(static_cast < int > (Num1),static_cast < int > (Num2));
     * ReturnVal  =  static_cast < LONG > (sum);
     return  S_OK;
}

STDMETHODIMP CCaluNumCtrl::get_NUM(SHORT *  pVal)
{
     * pVal  =   10 ;
     return  S_OK;
}

STDMETHODIMP CCaluNumCtrl::put_NUM(SHORT newVal)
{
     //  TODO: 在此添加实现代码
    
     return  S_OK;
}

     好了， ActiveX 控件仅仅是简单地调用底层的数学运算库 DLL 来完成运算，下面我们写一个 exe 程序对这个 COM 组件进行测试。

一个控制台测试程序

      建立一个最简单的控制台程序来进行测试，代码如下：

#include  " ..\..\FuckATL\FuckATL\FuckATL.h "
#include  " ..\..\FuckATL\FuckATL\FuckATL_i.c "
#include  < iostream >
using    namespace  std;

void  main( void )
{
     //  Declare and HRESULT and a pointer to the Simple_ATL interface
    HRESULT            hr;
    ICaluNumCtrl  * IFirstATL  =  NULL;
     //  Now we will intilize COM
    hr  =  CoInitialize( 0 );
     //  Use the SUCCEDED macro and see if we can get a pointer to
     //  the interface
     if (SUCCEEDED(hr))
     {
        hr  =  CoCreateInstance( CLSID_CaluNumCtrl, NULL, CLSCTX_INPROC_SERVER,
            IID_ICaluNumCtrl, ( void ** )  & IFirstATL);
         //  If we succeeded then call the AddNumbers method, if it failed
         //  then display an appropriate message to the user.
         if (SUCCEEDED(hr))
         {
             long  ReturnValue;
            hr  =  IFirstATL -> AddNumbers( 5 ,  7 ,  & ReturnValue);
            cout  <<   " The answer for 5 + 7 is:  "   <<  ReturnValue  <<  endl;
             short  num; 
            IFirstATL -> get_NUM( & num);
            cout << " num is:  " << num << endl;
            hr  =  IFirstATL -> Release();
        }
         else
         {
            cout  <<   " CoCreateInstance Failed. "   <<  endl;
        }
    }
     //  Uninitialize COM
    CoUninitialize();
    system( " pause " );
}

来到 IE 的世界

      最后我们将此 ActiveX 组件嵌入到 html 页面中，对其进行测试 . 新建一个 html 页面，代码如下：

< HTML >
< HEAD >
< TITLE > New Page </ TITLE >
< script  language ="javascript" >
     function  doTest()
     {
         var  sum  =  FuckATL1.AddNumbers( 3 , 4 );
        alert(sum);
    }
</ script >
</ HEAD >
< BODY >
< OBJECT  ID ="FuckATL1"  CLASSID ="CLSID:7BF3B65F-A800-4604-AE6B-91844EFD5F05" >
</ OBJECT >
< input  type ="button"  value ="测试加法"  id ="btnOK"  onclick ="doTest();" ></ input >
</ BODY >
</ HTML >

     由于暂时先不考虑控件的安全性需要，因此会出现下面的警告信息，不过不要紧，这个问题以后再解决。

测试结果如下：

 前面两 篇文章分 别 介 绍 了 MFC ActiveX 应 用程序和使用 ATL 开发 ActiveX 的 简单实 例，但 还 有 两个问题 需要解 决 ：

1 ） 标记 ActiveX 控件 为 安全的控件 2) 对 控件 进 行 数 字 签 名。本文 将结 合 这两 点 进 行 简单 的介 绍 。

Building a Safe ActiveX Control

      如何不想办法将控件标记为安全的，就会在 Web 页面与控件进行交互时出现如下图的警告信息：

     下面将分别介绍在 MFC ActiveX 和 ATL 中如何标记一个控件为安全的控件。

     要标记一个 MFC ActiveX 控件为安全，可以仿照下面代码修改而得：

//  CardScan.cpp : CCardScanApp 和DLL 注册的实现。
#include  " stdafx.h "
#include  " CardScan.h "
#include  " comcat.h "
#include  " strsafe.h "
#include  " objsafe.h "

CCardScanApp theApp;
const  GUID CDECL BASED_CODE _tlid  =
        {  0x29959268 ,  0x9729 ,  0x458E , {  0xA8 ,  0x39 ,  0xBB ,  0x39 ,  0x2E ,  0xCB ,  0x7E ,  0x37  } };
const  WORD _wVerMajor  =   1 ;
const  WORD _wVerMinor  =   0 ;
const  CATID CLSID_SafeItem  =
{ 0xB548F3C7 , 0x2135 , 0x4242 ,{ 0x92 , 0x0B , 0xA7 , 0xBD , 0xEE , 0x6D , 0x2B , 0xA3 }};

// { 0x36299202, 0x9ef, 0x4abf,{ 0xad, 0xb9, 0x47, 0xc5, 0x99, 0xdb, 0xe7, 0x78}};
//  CCardScanApp::InitInstance - DLL 初始化
BOOL CCardScanApp::InitInstance()
{
    BOOL bInit  =  COleControlModule::InitInstance();
     if  (bInit)
    {
    }
     return  bInit;
}
//  CCardScanApp::ExitInstance - DLL 终止
int  CCardScanApp::ExitInstance()
{
     return  COleControlModule::ExitInstance();
}
HRESULT CreateComponentCategory(CATID catid, CHAR  * catDescription)
{
    ICatRegister  * pcr  =  NULL ;
    HRESULT hr  =  S_OK ;
    hr  =  CoCreateInstance(CLSID_StdComponentCategoriesMgr, 
        NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, ( void ** ) & pcr);
     if  (FAILED(hr))
         return  hr;
     //  Make sure the HKCR\Component Categories\{..catid}
     //  key is registered.
    CATEGORYINFO catinfo;
    catinfo.catid  =  catid;
    catinfo.lcid  =   0x0409  ;  //  english
    size_t len;
     //  Make sure the provided description is not too long.
     //  Only copy the first 127 characters if it is.
     //  The second parameter of StringCchLength is the maximum
     //  number of characters that may be read into catDescription.
     //  There must be room for a NULL-terminator. The third parameter
     //  contains the number of characters excluding the NULL-terminator.
    hr  =  StringCchLength(catDescription, STRSAFE_MAX_CCH,  & len);
     if  (SUCCEEDED(hr))
    {
         if  (len > 127 )
        {
            len  =   127 ;
        }
    }   
     else
    {
         //  TODO: Write an error handler;
    }
     //  The second parameter of StringCchCopy is 128 because you need 
     //  room for a NULL-terminator.
    hr  =  StringCchCopy(COLE2T(catinfo.szDescription), len  +   1 , catDescription);
     //  Make sure the description is null terminated.
    catinfo.szDescription[len  +   1 ]  =   ' \0 ' ;
    hr  =  pcr -> RegisterCategories( 1 ,  & catinfo);
    pcr -> Release();
     return  hr;
}
//  HRESULT RegisterCLSIDInCategory -
//       Register your component categories information
HRESULT RegisterCLSIDInCategory(REFCLSID clsid, CATID catid)
{
     //  Register your component categories information.
    ICatRegister  * pcr  =  NULL ;
    HRESULT hr  =  S_OK ;
    hr  =  CoCreateInstance(CLSID_StdComponentCategoriesMgr, 
        NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, ( void ** ) & pcr);
     if  (SUCCEEDED(hr))
    {
         //  Register this category as being "implemented" by the class.
        CATID rgcatid[ 1 ] ;
        rgcatid[ 0 ]  =  catid;
        hr  =  pcr -> RegisterClassImplCategories(clsid,  1 , rgcatid);
    }
     if  (pcr  !=  NULL)
        pcr -> Release();
     return  hr;
}

//  HRESULT UnRegisterCLSIDInCategory - Remove entries from the registry
HRESULT UnRegisterCLSIDInCategory(REFCLSID clsid, CATID catid)
{
    ICatRegister  * pcr  =  NULL ;
    HRESULT hr  =  S_OK ;
    hr  =  CoCreateInstance(CLSID_StdComponentCategoriesMgr, 
        NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, ( void ** ) & pcr);
     if  (SUCCEEDED(hr))
    {
         //  Unregister this category as being "implemented" by the class.
        CATID rgcatid[ 1 ] ;
        rgcatid[ 0 ]  =  catid;
        hr  =  pcr -> UnRegisterClassImplCategories(clsid,  1 , rgcatid);
    }
     if  (pcr  !=  NULL)
        pcr -> Release();
     return  hr;
}
//  DllRegisterServer - 将项添加到系统注册表

STDAPI DllRegisterServer( void )
{
    HRESULT hr;
    AFX_MANAGE_STATE(_afxModuleAddrThis);
     if  ( ! AfxOleRegisterTypeLib(AfxGetInstanceHandle(), _tlid))
         return  ResultFromScode(SELFREG_E_TYPELIB);
     if  ( ! COleObjectFactoryEx::UpdateRegistryAll(TRUE))
         return  ResultFromScode(SELFREG_E_CLASS);
     //  Mark the control as safe for initializing.
    hr  =  CreateComponentCategory(CATID_SafeForInitializing, 
        _T( " Controls safely initializable from persistent data! " ));
     if  (FAILED(hr))
         return  hr;
    hr  =  RegisterCLSIDInCategory(CLSID_SafeItem, 
        CATID_SafeForInitializing);
     if  (FAILED(hr))
         return  hr;
     //  Mark the control as safe for scripting.
    hr  =  CreateComponentCategory(CATID_SafeForScripting, 
        _T( " Controls safely  scriptable! " ));
     if  (FAILED(hr))
         return  hr;
    hr  =  RegisterCLSIDInCategory(CLSID_SafeItem, 
        CATID_SafeForScripting);
     if  (FAILED(hr))
         return  hr;
     return  NOERROR;
}

//  DllUnregisterServer - 将项从系统注册表中移除

STDAPI DllUnregisterServer( void )
{
    HRESULT hr;
    AFX_MANAGE_STATE(_afxModuleAddrThis);
     //  Remove entries from the registry.
    hr = UnRegisterCLSIDInCategory(CLSID_SafeItem, 
        CATID_SafeForInitializing);
     if  (FAILED(hr))
         return  hr;
    hr = UnRegisterCLSIDInCategory(CLSID_SafeItem, 
        CATID_SafeForScripting);
     if  (FAILED(hr))
         return  hr;
     if  ( ! AfxOleUnregisterTypeLib(_tlid, _wVerMajor, _wVerMinor))
         return  ResultFromScode(SELFREG_E_TYPELIB);
     if  ( ! COleObjectFactoryEx::UpdateRegistryAll(FALSE))
         return  ResultFromScode(SELFREG_E_CLASS);
     return  NOERROR;
}

     这里值得注意的一个地方是 DllUnregisterServer 函数 ，在这段代码中，我是将

这两句代码放在

这两句代码的前面，如果你查阅 MSDN ，将会发现它上面的顺序和我是相反的，这应该是微软的一个错误代码，如果按照 MSDN 的代码来写，则你使用 regsvr32 -u CardScan.ocx 反注册时会报下面的错误：

调整为我所说的顺序就没问题了。

2 ）要标记使用 ATL 写的 ActiveX 控件为安全的控件，这比 MFC 要简单的多，只需要在控件头文件中增加几行代码就可以了：

然后在 COM 映射表中增加一项：

Building a Signed ActiveX Control

      ActiveX 控件是个危险的东西，如果不对其合法性进行数字签名和验证， IE 是会拒绝其安装的。

      工具包准备： CABARC.exe, cert2spc.exe, makecab.exe, makecert.exe, signcode.exe( 或新版本中的 signtool) ，以上小工具都可以在 VS 的安装路径下 "Common7"Tools"Bin 找到，或去微软官方网站上下载。

ActiveX 控件的安装过程中，一部分工作就是自注册，这需要控件在 VERSIONINFO 结构中定义 OLESelfRegister 值，你可以对资源文件进行编辑如下

打包为 CAB 文件

因为 ActiveX 控件要放在网站上供客户下载到本地，因此压缩是必需的。一段典型的 html 代码如下：

CODEBASE 就指明了要下载的压缩包，其中包含了 oxc ， dll 控件等所需要的文件。

通常 CAB 文件包含了一个 INF 文件，它用来描述 CAB 文件的所有细节信息，下面举个简单例子，代码如下：

至于打包就不赘述了，详尽的图解过程请看《 如何给ActiveX数字签名(Step by Step, Delphi) 》

源代码下载 – 74kb

一 ,C++ 客户重用 C++ 对象

      假设已经有一个可以重用的类，我们就可以在自己的程序中去重用它，只需要将其定义和实现文件加入到我们自己的工程中，并且在使用它的文件中包含此类的定义文件就可以了，这也是我们最常用的 C++ 标准重用方法。就拿我自己来说，在 CodeProject 上遇到比较好的控件代码，都是这样直接用到自己的项目中来的。

      下面就给出我这个系列的第一个代码示例，在接下来的几篇文章中，将基于此代码不断进行改进，一步步从 C++ 走向 COM.

      简单介绍下我们要重用的 C++ 对象，它是一个简单的类似数据库的对象，用来管理内存中的数据，它包含一个指向 “ 数据库 ” 中所有表的指针数组，表实际是一个字符串数组，每个数组元素表示表格的一行。另外这个类还包含有一个数据表表名的数组。

DBSRV.h 文件：

DBSRV.cpp 文件：

最后在 CDBView 的 OnDraw 函数中添加如下语句来显示读表读取到的内容：