获取嵌入ActiveX控件的页面IWebBrowser2指针

在ActiveX控件中获取顶级的页面IWebBrowser2指针

[cpp]  view plain copy

1. CComPtr<IOleClientSite> spClientSite;  
2. hr = GetClientSite(&spClientSite);  
3. if (SUCCEEDED(hr))  
4. {  
5.   CComPtr<IServiceProvider> isp, isp2;  
6.   hr = spClientSite->QueryInterface(IID_IServiceProvider, reinterpret_cast<void**>(&isp));  
7.   if (SUCCEEDED(hr))  
8.   {  
9.     hr = isp->QueryService(SID_STopLevelBrowser, IID_IServiceProvider, reinterpret_cast<void**>(&isp2));  
10.     if (SUCCEEDED(hr))  
11.     {  
12.       CComPtr<IWebBrowser2> spBrowser;  
13.       hr = isp2->QueryService(SID_SWebBrowserApp, IID_IWebBrowser2, reinterpret_cast<void**>(&spBrowser));  
14.       if (SUCCEEDED(hr))  
15.       {  
16.         CComBSTR bstrFullName;  
17.         hr = spBrowser ->get_Path( &bstrFullName );  
18.         PTCHAR lpNewVal = (PTCHAR)_com_util::ConvertBSTRToString(bstrFullName);  
19.         MessageBox( lpNewVal, "show", MB_OK );  
20.         /* 
21.         //--------获取控件所在页面的URL--------------------- 
22.         CComBSTR bstrFullName; 
23.         hr = spBrowser ->get_LocationURL( &bstrFullName ); 
24.         if (SUCCEEDED(hr)) 
25.         { 
26.           CString strCurDir(bstrFullName); 
27.           strCurDir.Replace("%20"," "); 
28.           int nEndPos = strCurDir.ReverseFind('/'); 
29.           if (nEndPos < 0){ 
30.             nEndPos = strCurDir.ReverseFind('//'); 
31.           } 
32.           int nStartPos = strCurDir.FindOneOf("file:///"); 
33.           if( nStartPos < 0 ){ 
34.             nStartPos = 0; 
35.           }else { 
36.             nStartPos=8; 
37.             nEndPos -= 7; 
38.           } 
39.           if (nBufLen >= nEndPos) 
40.           { 
41.             strCurDir = strCurDir.Mid(nStartPos, nEndPos); 
42.             strcpy (lpBuffer,strCurDir.GetBuffer(strCurDir.GetLength())); 
43.             return nEndPos; 
44.            } 
45.          } 
46.          */  
47.        }  
48.      }  
49.    }  
50.  }