獲得ActiveX控制項所在網頁的資訊

基本上翻譯自以下兩文
http://support.microsoft.com/kb/172763/EN-US/#appliesto
http://support.microsoft.com/kb/181678

一. 獲得所在IE頁面的URL

1.    獲得IOleClientSite介面指標
2.    調用IOleClientSite::GetMoniker()獲得client site的moniker對象指標
3.    調用IMoniker::GetDisplayName()獲得當前文檔的URL

下面是ATL中獲得URL的常式，這裡是在SetClientSite中獲得，可以在其它任何時候獲得

STDMETHOD(SetClientSite)(IOleClientSite *pClientSite)
{
   if (pClientSite != NULL)
   {
      // Obtain URL from container moniker.
      CComPtr<IMoniker> spmk;
      LPOLESTR pszDisplayName;

      if (SUCCEEDED(pClientSite->GetMoniker(
                                    OLEGETMONIKER_TEMPFORUSER,
                                    OLEWHICHMK_CONTAINER,
                                    &spmk)))
      {
         if (SUCCEEDED(spmk->GetDisplayName(
                                 NULL, NULL, &pszDisplayName)))
         {
            USES_CONVERSION;

            CComBSTR bstrURL;
            bstrURL = pszDisplayName;

            ATLTRACE("The current URL is %s/n", OLE2T(bstrURL));
            CoTaskMemFree((LPVOID)pszDisplayName);
         }
      }
   }

   return IOleObject_SetClientSite(pClientSite);
}

在MFC中，可以重載COleControl::OnSetClientSite在設定ClientSite時就獲得URL

void CMyCtrl::OnSetClientSite(){
    LPOLECLIENTSITE pClientSite = GetClientSite();
    ......//其它同上。
}

二.   訪問所在文檔的物件模型，即document,element等等東西

1.   獲得IWebBrowserApp，使用

a.使用IOleClientSite介面獲得IServiceProvider介面
CComQIPtr<IServiceProvider> pISP;
pClientSite->QueryInterface(IID_IServiceProvider,
                          (void **)&pISP);

b.使用IServiceProvider介面獲得IWebBrowserApp介面
pISP->QueryService(SID_SWebBrowserApp, IID_IWebBrowserApp,
                        (void **)&pIWebBrowserApp));

對於IE4或以後版本，也可以獲得IWebBrowserApp2介面
pISP->QueryService(IID_IWebBrowserApp, IID_IWebBrowser2,
     (void **)&pIWebBrowser2));

2.使用IWebBrowserApp獲得文檔(document)對象，接著是其它對象。