extensions/source/activex/main/SODispatchInterceptor.cpp

   1 // SODispatchInterceptor.cpp : Implementation of CHelpApp and DLL registration.
   2
   3 #include "stdio.h"
   4 #include "stdafx2.h"
   5 #include "so_activex.h"
   6 #include "SOActiveX.h"
   7 #include "SODispatchInterceptor.h"
   8 #include "com_uno_helper.h"
   9
  10 /////////////////////////////////////////////////////////////////////////////
  11 //
  12
  13 STDMETHODIMP SODispatchInterceptor::InterfaceSupportsErrorInfo(REFIID riid)
  14 {
  15     static const IID* arr[] =
  16     {
  17         &IID_ISODispatchInterceptor,
  18     };
  19
  20     for (int i=0;i<sizeof(arr)/sizeof(arr[0]);i++)
  21     {
  22 #if defined(_MSC_VER) && (_MSC_VER >= 1300)
  23         if (InlineIsEqualGUID(*arr[i],riid))
  24 #else
  25         if (::ATL::InlineIsEqualGUID(*arr[i],riid))
  26 #endif
  27             return S_OK;
  28     }
  29     return S_FALSE;
  30 }
  31
  32 STDMETHODIMP SODispatchInterceptor::queryDispatch( IDispatch FAR* aURL,
  33                                                    BSTR aTargetFrameName,
  34                                                    long nSearchFlags,
  35                                                    IDispatch FAR* FAR* retVal )
  36 {
  37     if ( !aURL || !retVal ) return E_FAIL;
  38
  39     CComVariant aTargetUrl;
  40     OLECHAR* sURLMemberName = L"Complete";
  41     DISPID nURLID;
  42     HRESULT hr = aURL->GetIDsOfNames( IID_NULL, &sURLMemberName, 1, LOCALE_USER_DEFAULT, &nURLID );
  43     if( !SUCCEEDED( hr ) ) return hr;
  44
  45     hr = CComDispatchDriver::GetProperty( aURL, nURLID, &aTargetUrl );
  46     if( !SUCCEEDED( hr ) ) return hr;
  47
  48     if( aTargetUrl.vt != VT_BSTR  ) return E_FAIL;
  49
  50     USES_CONVERSION;
  51     if( !strncmp( OLE2T( aTargetUrl.bstrVal ), ".uno:OpenHyperlink", 18 ) )
  52     {
  53         CComQIPtr< IDispatch, &IID_IDispatch > pIDisp( this );
  54         if( pIDisp )
  55         {
  56             this->AddRef();
  57             *retVal = pIDisp;
  58         }
  59     }
  60     else
  61     {
  62         if( !m_xSlave )
  63         {
  64             *retVal = NULL;
  65             return S_OK;
  66         }
  67
  68         CComVariant aResult;
  69         CComVariant aArgs[3];
  70         aArgs[0] = CComVariant( nSearchFlags );
  71         aArgs[1] = CComVariant( aTargetFrameName );
  72         aArgs[2] = CComVariant( aURL );
  73
  74         hr = ExecuteFunc( m_xSlave, L"queryDispatch", aArgs, 3, &aResult );
  75         if( !SUCCEEDED( hr ) || aResult.vt != VT_DISPATCH || aResult.pdispVal == NULL )
  76         {
  77             *retVal = NULL;
  78             return S_OK;
  79         }
  80
  81         *retVal = aResult.pdispVal;
  82
  83         CComQIPtr< IUnknown, &IID_IUnknown > pIUnk( *retVal );
  84         if( pIUnk )
  85             (*retVal)->AddRef();
  86     }
  87
  88     return S_OK;
  89 }
  90
  91 STDMETHODIMP SODispatchInterceptor::queryDispatches( SAFEARRAY FAR* aDescripts, SAFEARRAY FAR* FAR* retVal)
  92 {
  93     if ( !aDescripts || !retVal || SafeArrayGetDim( aDescripts ) != 1 )
  94         return E_FAIL;
  95
  96     long nLB, nUB;
  97
  98     HRESULT hr = SafeArrayGetLBound( aDescripts, 1, &nLB );
  99     if( !SUCCEEDED( hr ) ) return hr;
 100
 101     hr = SafeArrayGetUBound( aDescripts, 1, &nUB );
 102     if( !SUCCEEDED( hr ) ) return hr;
 103     if( nUB < nLB ) return E_FAIL;
 104
 105     *retVal = SafeArrayCreateVector( VT_DISPATCH, 0, nUB - nLB );
 106
 107     for ( long ind = nLB; ind <= nUB; ind ++ )
 108     {
 109         CComPtr<IDispatch> pElem;
 110         SafeArrayGetElement( aDescripts, &ind, pElem );
 111         if( pElem )
 112         {
 113             OLECHAR* pMemberNames[3] = { L"FeatureURL", L"FrameName", L"SearchFlags" };
 114             CComVariant pValues[3];
 115             hr = GetPropertiesFromIDisp( pElem, pMemberNames, pValues, 3 );
 116             if( !SUCCEEDED( hr ) ) return hr;
 117             if( pValues[0].vt != VT_DISPATCH || pValues[0].pdispVal == NULL
 118              || pValues[1].vt != VT_BSTR || pValues[2].vt != VT_I4 )
 119                 return E_FAIL;
 120
 121             CComPtr<IDispatch> aRes;
 122             hr = queryDispatch( pValues[0].pdispVal, pValues[1].bstrVal, pValues[2].lVal, &aRes );
 123             SafeArrayPutElement( *retVal, &ind, aRes );
 124         }
 125     }
 126
 127     return S_OK;
 128 }
 129
 130
 131 STDMETHODIMP SODispatchInterceptor::dispatch( IDispatch FAR* aURL, SAFEARRAY FAR* aArgs)
 132 {
 133     // get url from aURL
 134     OLECHAR* pUrlName = L"Complete";
 135     CComVariant pValue;
 136     HRESULT hr = GetPropertiesFromIDisp( aURL, &pUrlName, &pValue, 1 );
 137     if( !SUCCEEDED( hr ) ) return hr;
 138     if( pValue.vt != VT_BSTR || pValue.bstrVal == NULL )
 139         return E_FAIL;
 140
 141     USES_CONVERSION;
 142     if( !strncmp( OLE2T( pValue.bstrVal ), ".uno:OpenHyperlink", 18 ) )
 143     {
 144         long nLB = 0, nUB = 0;
 145         // long nDim = SafeArrayGetDim( aArgs );
 146
 147         hr = SafeArrayGetLBound( aArgs, 1, &nLB );
 148         if( !SUCCEEDED( hr ) ) return hr;
 149
 150         hr = SafeArrayGetUBound( aArgs, 1, &nUB );
 151         if( !SUCCEEDED( hr ) ) return hr;
 152         if( nUB < nLB ) return E_FAIL;
 153
 154         for ( long ind = nLB; ind <= nUB; ind ++ )
 155         {
 156             CComVariant pVarElem;
 157             SafeArrayGetElement( aArgs, &ind, &pVarElem );
 158             if( pVarElem.vt == VT_DISPATCH && pVarElem.pdispVal != NULL )
 159             {
 160                 OLECHAR* pMemberNames[2] = { L"Name", L"Value" };
 161                 CComVariant pValues[2];
 162                 hr = GetPropertiesFromIDisp( pVarElem.pdispVal, pMemberNames, pValues, 2 );
 163                 if( !SUCCEEDED( hr ) ) return hr;
 164
 165                 if( pValues[0].vt == VT_BSTR && pValues[1].vt == VT_BSTR )
 166                 {
 167                     USES_CONVERSION;
 168                     if( !strncmp( OLE2T( pValues[0].bstrVal ), "URL", 3 ) )
 169                     {
 170                         EnterCriticalSection( &mMutex );
 171                         if( m_xParentControl )
 172                         {
 173                             // call GetUrl to the browser instance
 174                             m_xParentControl->GetURL( pValues[1].bstrVal, L"_self" );
 175                         }
 176                         LeaveCriticalSection( &mMutex );
 177
 178                         break;
 179                     }
 180                 }
 181             }
 182         }
 183     }
 184
 185     return S_OK;
 186 }
 187
 188 STDMETHODIMP SODispatchInterceptor::addStatusListener( IDispatch FAR* /*xControl*/, IDispatch FAR* /*aURL*/)
 189 {
 190     // not implemented
 191     return S_OK;
 192 }
 193
 194 STDMETHODIMP SODispatchInterceptor::removeStatusListener( IDispatch FAR* /*xControl*/, IDispatch FAR* /*aURL*/)
 195 {
 196     // not implemented
 197     return S_OK;
 198 }
 199
 200 STDMETHODIMP SODispatchInterceptor::getInterceptedURLs( SAFEARRAY FAR* FAR* pVal )
 201 {
 202     *pVal = SafeArrayCreateVector( VT_BSTR, 0, 3 );
 203
 204     if( !*pVal )
 205         return E_FAIL;
 206
 207     long ix = 0;
 208     CComBSTR aPattern( OLESTR( "ftp://*" ) );
 209     SafeArrayPutElement( *pVal, &ix, aPattern );
 210
 211     ix = 1;
 212     aPattern = CComBSTR( OLESTR( "http://*" ) );
 213     SafeArrayPutElement( *pVal, &ix, aPattern );
 214
 215     ix = 2;
 216     aPattern = CComBSTR( OLESTR( "file://*" ) );
 217     SafeArrayPutElement( *pVal, &ix, aPattern );
 218
 219     return S_OK;
 220 }
 221
 222