在 ocx 内部如何获取所在页面的 URL

.h头文件

//$---- Active Form HDR ---- (stActiveFormHdr)#ifndef LesWebImplH#define LesWebImplH//---------------------------------------------------------------------------#include <classes.hpp>#include <controls.hpp>#include <stdCtrls.hpp>#include <forms.hpp>#include "LesWebCtrl_TLB.h"#include <comdef.h>#include <mshtml.h>#include <exdisp.h>#include <shlguid.h>#include <activscp.h>//---------------------------------------------------------------------------class TLesWebX : public TActiveForm{__published:    // IDE-managed Components...private:    // User declarations...protected:...public:        // User declarations...};//---------------------------------------------------------------------------//extern PACKAGE TLesWebX *LesWebX;//---------------------------------------------------------------------------//---------------------------------------------------------------------------class ATL_NO_VTABLE TLesWebXImpl:  VCLCONTROL_IMPL(TLesWebXImpl, LesWebX, TLesWebX, ILesWebX, DIID_ILesWebXEvents) ,public IObjectWithSiteImpl<TLesWebXImpl> ,public IPersistPropertyBagImpl<TLesWebXImpl> ,public IObjectSafetyImpl<TLesWebXImpl,INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA>{  void __fastcall CreateEvent(TObject *Sender);  void __fastcall DestroyEvent(TObject *Sender);public:  IHTMLDocument2* __fastcall GetHTMLDocument2(void);  IHTMLWindow2*   __fastcall GetHTMLWindow2(void);  HWND            __fastcall GetIEWinHandle(void);  AnsiString __fastcall GetPageURL(void);  ...  void InitializeControl()  {    m_VclCtl->WebX=this;    m_VclCtl->OnCreate = CreateEvent;    m_VclCtl->OnDestroy = DestroyEvent;  }// The COM MAP entries declares the interfaces your object exposes (through// QueryInterface). CComRootObjectEx::InternalQueryInterface only returns// pointers for interfaces in the COM map. VCL controls exposed as OCXes// have a minimum set of interfaces defined by the// VCL_CONTROL_COM_INTERFACE_ENTRIES macro. Add other interfaces supported// by your object with additional COM_INTERFACE_ENTRY[_xxx] macros.//BEGIN_COM_MAP(TLesWebXImpl)  VCL_CONTROL_COM_INTERFACE_ENTRIES(ILesWebX)  COM_INTERFACE_ENTRY_IMPL(IPersistPropertyBag)  COM_INTERFACE_ENTRY(IObjectSafety)  COM_INTERFACE_ENTRY(IObjectWithSite)END_COM_MAP()// The PROPERTY map stores property descriptions, property DISPIDs,// property page CLSIDs and IDispatch IIDs. You may use use// IPerPropertyBrowsingImpl, IPersistPropertyBagImpl, IPersistStreamInitImpl,// and ISpecifyPropertyPageImpl to utilize the information in you property// map.//// NOTE: The BCB Wizard does *NOT* maintain your PROPERTY_MAP table. You must//       add or remove entries manually.//BEGIN_PROPERTY_MAP(TLesWebXImpl)  // PROP_PAGE(CLSID_LesWebXPage)END_PROPERTY_MAP()/* DECLARE_VCL_CONTROL_PERSISTENCE(CppClass, VclClass) is needed for VCL * controls to persist via the VCL streaming mechanism and not the ATL mechanism. * The macro adds static IPersistStreamInit_Load and IPersistStreamInit_Save * methods to your implementation class, overriding the methods in IPersistStreamImpl. * This macro must be manually undefined or removed if you port to C++Builder 4.0. */DECLARE_VCL_CONTROL_PERSISTENCE(TLesWebXImpl, TLesWebX);// The DECLARE_ACTIVEXCONTROL_REGISTRY macro declares a static 'UpdateRegistry'// routine which registers the basic information about your control. The// parameters expected by the macro are the ProgId & the ToolboxBitmap ID of// your control.//DECLARE_ACTIVEXCONTROL_REGISTRY("LesWebCtrl.LesWebX", 1);protected:  STDMETHOD(get_Visible(VARIANT_BOOL* Value));  STDMETHOD(set_Visible(VARIANT_BOOL Value));  ...  ...  ...};//---------------------------------------------------------------------------#endif

CPP文件

// TYourOCXImpl 是你的 ATL 类，我这里实际是个 TActiveForm// 获取 IHTMLDocument2 指针IHTMLDocument2* __fastcall TLesWebXImpl::GetHTMLDocument2(void){  IHTMLDocument2* iDoc=NULL;  try {    if(m_spClientSite!=NULL) {      CComPtr<IOleContainer> iOct(NULL);      OleCheck(m_spClientSite->GetContainer(&iOct));      OleCheck(iOct->QueryInterface(IID_IHTMLDocument2, (void**)&iDoc));    }  }  catch(...) {    iDoc=NULL;  }  if(iDoc!=NULL) return iDoc;  try {    if(m_spUnkSite!=NULL) {      CComQIPtr<IServiceProvider,&IID_IServiceProvider> iSpv(m_spUnkSite);      if(iSpv!=NULL) {        CComPtr<IHTMLWindow2> iHmw(NULL);        OleCheck(iSpv->QueryService(SID_SHTMLWindow, IID_IHTMLWindow2,                                          (void**)(&iHmw)));        if(iHmw!=NULL)          OleCheck(iHmw->get_document(&iDoc));      }    }  }  catch(...) {    iDoc=NULL;  }  return iDoc;}// 获取 当前页面 的URL地址AnsiString __fastcall TYourOCXImpl::GetPageURL(void){  AnsiString s("");  CComPtr<IHTMLDocument2> iDoc(GetHTMLDocument2());  if(iDoc==NULL) return s;  try {    CComBSTR url("");    OleCheck(iDoc->get_URL(&url));    s=AnsiString(url.Copy());  }  catch(...) { s=""; }  //MessageBox(GetActiveWindow(),s.c_str(),"ref",MB_OK);  return s;}