D语言调用ActiveX（在窗口中嵌入ActiveX）

这是一个从C移植到D的代码，原文请见“ Embed an HTML control in your own window using plain C”，它用C结构模拟了虚表，并且实现了多个接口以完成对Web Browser控件的调用。

在看完他的代码之后，我对于COM/OLE的了解加深了一些，以前使用VC做过COM方面的应用，也看过不少COM方面的书，不过没有涉及到界面，所以一直不知道如何把ActiveX嵌入到自己的项目中，我指的是纯手工实现，不依赖MFC/ATL。

既然是理解了，当然要把它作出来才算数，以日久又忘了。

另外要解释一下使用D语言的原因。实际上使用C＋＋也可达到一样的效果，只是最近突然觉得使用C＋＋很烦，而D语言又是一个很好的补充，又一直仰慕D语言作者的大名，再加上想检验D语言实际开发能力，所以这次就用它做刀了。

注：对C＋＋觉得烦的一个重要原因，是在阅读很多优秀的C＋＋库时，被那些宏搞得火冒三丈，难道代码非得这样写？现代的计算机语言只需要处理记号，而不是字符串，而宏却是字符串的典型，这也影响了C＋＋程序的编译速度。或许D语言不能真正解决这个问题，但暂时还没看到令我特别不爽的东西，所以将就着用吧，反正还在Alpha阶段，也就是说语言本身也一直在改进，也一直有人在提一些改进意见，还是有些希望的。D语言作者作为优秀的Symantic C++编译器的作者，把C＋＋的高效也带进D里面，所以我对D语言还是有很大期望的。

言规正传，先来看看要在自己在窗口里嵌入HTML control要做哪些事。简单罗列如下：
1、初始化OLE环境
2、创建一个窗口，作为ActiveX的宿主窗口
3、实现一个IStorage对象，实际上不用它来做任何事，只是OleCreate函数需要这样一个对象
4、实现IOleInPlaceSite, IOleInPlaceFrame, IOleClientSite, IDocHostUIHandler接口
5、其它就是调用了。。。
这里所列的项目没有明确的分类标准，大概同时讲了要实现的接口和代码处理过程，具体看代码吧。

由于D语言的标准库phobos没有列出我们所需要的大部分COM接口，所以需要core32，可以从 http://www.dsource.org/projects/core32/下载（或SVN）。这个也不是很完整，所以在程序里我还是要定义几个变量：

static   const  IID IID_IWebBrowser2  =  
    { 0xD30C1661 ,  0xCDAF ,  0x11d0 , [ 0x8A ,  0x3E ,  0x0 ,  0xC0 ,  0x4F ,  0xC9 ,  0xE2 ,  0x6E ]};

static   const  CLSID CLSID_WebBrowser  =  
    { 0x8856F961 ,  0x340A ,  0x11D0 , [ 0xA9 ,  0x6B ,  0x0 ,  0xC0 ,  0x4F ,  0xD7 ,  0x05 ,  0xA2 ]};

static   const  IID IID_IDocHostUIHandler  =  
    { 0xbd3f23c0 ,  0xd43e ,  0x11cf , [ 0x89 ,  0x3b ,  0x0 ,  0xaa ,  0x0 ,  0xbd ,  0xce ,  0x1a ]};

下面是完整代码：

private  import std.stdio;
private  import std. string ;
private  import win32.ole2;
private  import win32.com.OAIDL;
private  import win32.com.OLEIDL;
private  import win32.com.EXDISP;
private  import win32.com.MSHTMHST;

char [] ClassName  =   " Test Wnd Class " ;

static   const  IID IID_IWebBrowser2  =  
    { 0xD30C1661 ,  0xCDAF ,  0x11d0 , [ 0x8A ,  0x3E ,  0x0 ,  0xC0 ,  0x4F ,  0xC9 ,  0xE2 ,  0x6E ]};

static   const  CLSID CLSID_WebBrowser  =  
    { 0x8856F961 ,  0x340A ,  0x11D0 , [ 0xA9 ,  0x6B ,  0x0 ,  0xC0 ,  0x4F ,  0xD7 ,  0x05 ,  0xA2 ]};

static   const  IID IID_IDocHostUIHandler  =  
    { 0xbd3f23c0 ,  0xd43e ,  0x11cf , [ 0x89 ,  0x3b ,  0x0 ,  0xaa ,  0x0 ,  0xbd ,  0xce ,  0x1a ]};

extern  (C)  void  gc_init();
extern  (C)  void  gc_term();
extern  (C)  void  _minit();
extern  (C)  void  _moduleCtor();
extern  (C)  void  _moduleDtor();
extern  (C)  void  _moduleUnitTests();

extern  (Windows)
int  WinMain(HINSTANCE hInstance,
    HINSTANCE hPrevInstance,
    LPSTR lpCmdLine,
     int  nCmdShow)
{
     int  result;

    gc_init();             //  initialize garbage collector
    _minit();             //  initialize module constructor table

     try
    {
    _moduleCtor();         //  call module constructors
    _moduleUnitTests();     //  run unit tests (optional)

    result  =  myWinMain(hInstance, hPrevInstance, lpCmdLine, nCmdShow);

    _moduleDtor();         //  call module destructors
    }

     catch  (Object o)         //  catch any uncaught exceptions
    {
    MessageBoxA( null , cast( char   * )o.toString(),  " Error " ,
            MB_OK  |  MB_ICONEXCLAMATION);
    result  =   0 ;         //  failed
    }

    gc_term();             //  run finalizers; terminate garbage collector
     return  result;
}

//  A running count of how many windows we have open that contain a browser object
uint  WindowCount  =   0 ;


//  This is used by DisplayHTMLStr(). It can be global because we never change it.
static   const  SAFEARRAYBOUND ArrayBound  =  { 1 ,  0 };

IOleObject g_browserObject  =   null ;


class  MyStorage : IStorage
{
     this  ()
     in  {writefln ( " In MyStorage.this " );}
     out  {writefln ( " Out MyStorage.this " );}
    body{
    }
    
     ~ this ()
     in  {writefln ( " In MyStorage.~this " );}
     out  {writefln ( " Out MyStorage.~this " );}
    body{
    }
    
    HRESULT QueryInterface(IID *  riid,  void **  pvObject) 
     in  {writefln ( " In MyStorage.QueryInterface " );}
     out  {writefln ( " Out MyStorage.QueryInterface " );}
    body{
         return  E_NOTIMPL;
    }
    ULONG AddRef () 
     in  {writefln ( " In MyStorage.AddRef " );}
     out  {writefln ( " Out MyStorage.AddRef " );}
    body {
         return   1 ;
    }
    ULONG Release () 
     in  {writefln ( " In MyStorage.Release " );}
     out  {writefln ( " Out MyStorage.Release " );}
    body {
         return   1 ;
    }
    HRESULT CreateStream( OLECHAR  * pwcsName, DWORD grfMode, DWORD reserved1, DWORD reserved2, IStream  *  ppstm) 
     in  {writefln ( " In MyStorage.CreateStream " );}
     out  {writefln ( " Out MyStorage.CreateStream " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT OpenStream( OLECHAR  * pwcsName,  void   * reserved1, DWORD grfMode, DWORD reserved2, IStream  *  ppstm) 
     in  {writefln ( " In MyStorage.OpenStream " );}
     out  {writefln ( " Out MyStorage.OpenStream " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT CreateStorage( OLECHAR  * pwcsName, DWORD grfMode, DWORD reserved1, DWORD reserved2, IStorage  *  ppstg) 
     in  {writefln ( " In MyStorage.CreateStorage " );}
     out  {writefln ( " Out MyStorage.CreateStorage " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT OpenStorage( OLECHAR  * pwcsName, IStorage pstgPriority, DWORD grfMode, SNB snbExclude, DWORD reserved, IStorage  *  ppstg ) 
     in  {writefln ( " In MyStorage.OpenStorage " );}
     out  {writefln ( " Out MyStorage.OpenStorage " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT CopyTo( DWORD ciidExclude, IID  * rgiidExclude, SNB snbExclude, IStorage pstgDest ) 
     in  {writefln ( " In MyStorage.CopyTo " );}
     out  {writefln ( " Out MyStorage.CopyTo " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT MoveElementTo( OLECHAR  *  pwcsName, IStorage pstgDest, OLECHAR  * pwcsNewName, DWORD grfFlags ) 
     in  {writefln ( " In MyStorage.MoveElementTo " );}
     out  {writefln ( " Out MyStorage.MoveElementTo " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT Commit( DWORD grfCommitFlags ) 
     in  {writefln ( " In MyStorage.Commit " );}
     out  {writefln ( " Out MyStorage.Commit " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT Revert() 
     in  {writefln ( " In MyStorage.Revert " );}
     out  {writefln ( " Out MyStorage.Revert " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT EnumElements( DWORD reserved1,  void   * reserved2, DWORD reserved3, IEnumSTATSTG  *  ppenum) 
     in  {writefln ( " In MyStorage.EnumElements " );}
     out  {writefln ( " Out MyStorage.EnumElements " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT DestroyElement( OLECHAR  *  pwcsName ) 
     in  {writefln ( " In MyStorage.DestroyElement " );}
     out  {writefln ( " Out MyStorage.DestroyElement " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT RenameElement( OLECHAR  * pwcsOldName, OLECHAR  * pwcsNewName ) 
     in  {writefln ( " In MyStorage.RenameElement " );}
     out  {writefln ( " Out MyStorage.RenameElement " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT SetElementTimes( OLECHAR  *  pwcsName, FILETIME  *  pctime, FILETIME  * patime, FILETIME  * pmtime ) 
     in  {writefln ( " In MyStorage.SetElementTimes " );}
     out  {writefln ( " Out MyStorage.SetElementTimes " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT SetClass( REFCLSID clsid ) 
     in  {writefln ( " In MyStorage.SetClass " );}
     out  {writefln ( " Out MyStorage.SetClass " );}
    body {
         return  S_OK;
    }
    HRESULT SetStateBits( DWORD grfStateBits, DWORD grfMask ) 
     in  {writefln ( " In MyStorage.SetStateBits " );}
     out  {writefln ( " Out MyStorage.SetStateBits " );}
    body {
         return  E_NOTIMPL;
    }
    HRESULT Stat( STATSTG  * pstatstg, DWORD grfStatFlag ) 
     in  {writefln ( " In MyStorage.Stat " );}
     out  {writefln ( " Out MyStorage.Stat " );}
    body {
         return  E_NOTIMPL;
    }
} 

bool  compare(IID *  iid1, IID *  iid2)
{
     return   ! memcmp(iid1, iid2, IID. sizeof );
}

class  OleInPlaceSite : IOleInPlaceSite, IOleInPlaceFrame, IOleClientSite, IDocHostUIHandler
{
    
private :
    HWND hWnd;    
public :
     this  (HWND hwnd) 
     in  {writefln ( " In OleInPlaceSite.this " );}
     out  {writefln ( " Out OleInPlaceSite.this " );}
    body {
         this .hWnd  =  hwnd;
    }
     ~ this  () 
     in  {writefln ( " In OleInPlaceSite.~this " );}
     out  {writefln ( " Out OleInPlaceSite.~this " );}
    body {
    }
protected :
    ULONG AddRef () 
     in  {writefln ( " In OleInPlaceSite.AddRef " );}
     out  {writefln ( " Out OleInPlaceSite.AddRef " );}
    body {
         return   1 ;
    }
    ULONG Release () 
     in  {writefln ( " In OleInPlaceSite.Release " );}
     out  {writefln ( " Out OleInPlaceSite.Release " );}
    body {
         return   1 ;
    }
    HRESULT QueryInterface (IID *  riid,  void   **  ppvObject) 
     in  {writefln ( " In OleInPlaceSite.QueryInterface " );}
     out  {writefln ( " Out OleInPlaceSite.QueryInterface " );}
    body {
         if  (compare(riid,  & IID_IUnknown))
             * ppvObject  =  cast(IUnknown) this ;
         else   if  (compare(riid,  & IID_IOleClientSite))
             * ppvObject  =  cast(IOleClientSite) this ;
         else   if  (compare(riid,  & IID_IOleInPlaceSite))
        {
            writefln ( " Ole In Place Site " );
             * ppvObject  =  cast(IOleInPlaceSite) this ;
            }
         // else if (compare(riid, &IID_IOleInPlaceFrame))
         //     *ppvObject = cast(IOleInPlaceFrame)this;
         else   if  (compare(riid,  & IID_IDocHostUIHandler))
             * ppvObject  =  cast(IDocHostUIHandler) this ;
         else
             return  E_NOINTERFACE;

         return  S_OK;
    }

     //  IOleInPlaceFrame
    HRESULT InsertMenus( HMENU hmenuShared, LPOLEMENUGROUPWIDTHS lpMenuWidths ) 
     in  {writefln ( " In OleInPlaceSite.InsertMenus " );}
     out  {writefln ( " Out OleInPlaceSite.InsertMenus " );}
    body{
         return  E_NOTIMPL;
    }
    HRESULT SetMenu( HMENU hmenuShared, HOLEMENU holemenu, HWND hwndActiveObject ) 
     in  {writefln ( " In OleInPlaceSite.SetMenu " );}
     out  {writefln ( " Out OleInPlaceSite.SetMenu " );}
    body{
         return  S_OK;
    }
    HRESULT RemoveMenus( HMENU hmenuShared ) 
     in  {writefln ( " In OleInPlaceSite.RemoveMenus " );}
     out  {writefln ( " Out OleInPlaceSite.RemoveMenus " );}
    body{
         return  E_NOTIMPL;
    }
    HRESULT SetStatusText( LPCOLESTR pszStatusText ) 
     in  {writefln ( " In OleInPlaceSite.SetStatusText " );}
     out  {writefln ( " Out OleInPlaceSite.SetStatusText " );}
    body{
         return  S_OK;
    }

    HRESULT TranslateAccelerator( LPMSG lpmsg, WORD wID ) 
     in  {writefln ( " In OleInPlaceSite.TranslateAccelerator " );}
     out  {writefln ( " Out OleInPlaceSite.TranslateAccelerator " );}
    body{
         return  E_NOTIMPL;
    }

     //  IOleInPlaceUIWindow
    HRESULT GetBorder( LPRECT lprectBorder ) 
     in  {writefln ( " In OleInPlaceSite.GetBorder " );}
     out  {writefln ( " Out OleInPlaceSite.GetBorder " );}
    body{
         return  E_NOTIMPL;
    }
    HRESULT RequestBorderSpace( LPCBORDERWIDTHS pborderwidths ) 
     in  {writefln ( " In OleInPlaceSite.RequestBorderSpace " );}
     out  {writefln ( " Out OleInPlaceSite.RequestBorderSpace " );}
    body{
         return  E_NOTIMPL;
    }
    HRESULT SetBorderSpace( LPCBORDERWIDTHS pborderwidths ) 
     in  {writefln ( " In OleInPlaceSite.SetBorderSpace " );}
     out  {writefln ( " Out OleInPlaceSite.SetBorderSpace " );}
    body{
         return  E_NOTIMPL;
    }
    HRESULT SetActiveObject( IOleInPlaceActiveObject pActiveObject, LPCOLESTR pszObjName ) 
     in