How To Retrieve the URL of a Web Page from an ActiveX Control (181678)

MORE INFORMATION

During the initialization of an embedded ActiveX control, Internet Explorer (IE) passes a pointer to its client site by calling IOleObject::SetClientSite(). This process can be used to either retrieve a moniker for the container or access the document object model to retrieve the URL for the hosting Web page.

This article demonstrates how to retrieve the current URL from the container moniker. For additional information about how to obtain the URL from the document object model, please see the following article in the Microsoft Knowledge Base: Follow these steps to retrieve the current URL from the container moniker:

1. Obtain the client site (IOleClientSite) interface pointer. The container calls IOleObject::SetClientSite() to pass a pointer to the client site. Override this method to cache this pointer.
2. Obtain a moniker to the client site by calling IOleClientSite::GetMoniker().
3. Call IMoniker::GetDisplayName() to obtain the URL for the current document.

The following sample code demonstrates how to perform the above steps by overriding the IOleObject::SetClientSite() method in an Active Template Library (ATL) ActiveX control:

Sample Code

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);
}