Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

258 lines
8.0 KiB

#ifndef __ATL_IDISPATCH_H__
#define __ATL_IDISPATCH_H__
#include "unicpp/stdafx.h"
extern LCID g_lcidLocale;
#pragma pack(push, _ATL_PACKING)
#ifndef ATL_NO_NAMESPACE
namespace ATL
{
#endif // ATL_NO_NAMESPACE
template <class T, const GUID* pclsid, const IID* piid, const GUID* plibid, WORD wMajor = 1, WORD wMinor = 0, class tihclass = CComTypeInfoHolder>
class ATL_NO_VTABLE CShell32AtlIDispatch
: public IOleObjectImpl<T>
{
public:
CShell32AtlIDispatch();
~CShell32AtlIDispatch();
// *** IDispatch ***
virtual STDMETHODIMP Invoke(DISPID dispidMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS * pdispparams, VARIANT * pvarResult, EXCEPINFO * pexcepinfo, UINT * puArgErr);
virtual STDMETHODIMP GetTypeInfo(UINT itinfo, LCID lcid, ITypeInfo** pptinfo);
virtual STDMETHODIMP GetIDsOfNames(REFIID riid, OLECHAR **rgszNames, UINT cNames, LCID lcid, DISPID * rgdispid);
// *** IProvideClassInfo ***
virtual STDMETHODIMP GetClassInfo(ITypeInfo** pptinfo);
// *** IOleObject ***
virtual STDMETHODIMP GetMiscStatus(DWORD dwAspect, DWORD *pdwStatus);
virtual STDMETHODIMP DoVerbUIActivate(LPCRECT prcPosRect, HWND hwndParent, HWND hwnd);
virtual STDMETHODIMP TranslateAcceleratorPriv(T * pThis, MSG *pMsg, IOleClientSite * pocs);
virtual STDMETHODIMP PrivateQI(REFIID iid, void ** ppvObject) = 0;
protected:
// Helper functions;
ITypeInfo * _pClassTypeInfo; // ITypeInfo of class
IFileSearchBand * _pdisp; // This will not contain a ref because it's equal to 'this'.
};
template <class T, const GUID* pclsid, const IID* piid, const GUID* plibid, WORD wMajor, WORD wMinor, class tihclass>
CShell32AtlIDispatch<T, pclsid, piid, plibid, 1, 0, tihclass>::CShell32AtlIDispatch()
{
// This allocator should have zero inited the memory, so assert the member variables are empty.
ASSERT(!_pClassTypeInfo);
}
template <class T, const GUID* pclsid, const IID* piid, const GUID* plibid, WORD wMajor, WORD wMinor, class tihclass>
CShell32AtlIDispatch<T, pclsid, piid, plibid, 1, 0, tihclass>::~CShell32AtlIDispatch()
{
if (_pClassTypeInfo)
_pClassTypeInfo->Release();
// _pdisp doesn't have a ref so it's OK if it's not NULL.
}
// *** IProvideClassInfo ***
template <class T, const GUID* pclsid, const IID* piid, const GUID* plibid, WORD wMajor, WORD wMinor, class tihclass>
HRESULT CShell32AtlIDispatch<T, pclsid, piid, plibid, 1, 0, tihclass>::GetClassInfo(ITypeInfo ** ppTI)
{
if (!_pClassTypeInfo)
GetTypeInfoFromLibId(LANGIDFROMLCID(g_lcidLocale), LIBID_Shell32, 1, 0, *pclsid, &_pClassTypeInfo);
if (_pClassTypeInfo)
{
_pClassTypeInfo->AddRef();
*ppTI = _pClassTypeInfo;
return S_OK;
}
*ppTI = NULL;
return E_FAIL;
}
// *** IDispatch ***
template <class T, const GUID* pclsid, const IID* piid, const GUID* plibid, WORD wMajor, WORD wMinor, class tihclass>
HRESULT CShell32AtlIDispatch<T, pclsid, piid, plibid, 1, 0, tihclass>::GetTypeInfo(UINT itinfo, LCID lcid, ITypeInfo** ppITypeInfo)
{
HRESULT hr = S_OK;
*ppITypeInfo = NULL;
if (0 != itinfo)
return(TYPE_E_ELEMENTNOTFOUND);
//Load a type lib if we don't have the information already.
if (NULL == *ppITypeInfo)
{
ITypeInfo * pITIDisp;
hr = GetTypeInfoFromLibId(lcid, LIBID_Shell32, 1, 0, *piid, &pITIDisp);
if (SUCCEEDED(hr))
{
HRESULT hrT;
HREFTYPE hrefType;
// All our IDispatch implementations are DUAL. GetTypeInfoOfGuid
// returns the ITypeInfo of the IDispatch-part only. We need to
// find the ITypeInfo for the dual interface-part.
//
hrT = pITIDisp->GetRefTypeOfImplType(0xffffffff, &hrefType);
if (SUCCEEDED(hrT))
hrT = pITIDisp->GetRefTypeInfo(hrefType, ppITypeInfo);
ASSERT(SUCCEEDED(hrT));
pITIDisp->Release();
}
}
return hr;
}
template <class T, const GUID* pclsid, const IID* piid, const GUID* plibid, WORD wMajor, WORD wMinor, class tihclass>
HRESULT CShell32AtlIDispatch<T, pclsid, piid, plibid, 1, 0, tihclass>::GetIDsOfNames(REFIID // riid
, LPOLESTR* rgszNames, UINT cNames, LCID lcid, DISPID* rgdispid)
{
ITypeInfo* pInfo;
HRESULT hr = GetTypeInfo(0, lcid, &pInfo);
if (pInfo != NULL)
{
hr = pInfo->GetIDsOfNames(rgszNames, cNames, rgdispid);
pInfo->Release();
}
return hr;
}
template <class T, const GUID* pclsid, const IID* piid, const GUID* plibid, WORD wMajor, WORD wMinor, class tihclass>
HRESULT CShell32AtlIDispatch<T, pclsid, piid, plibid, 1, 0, tihclass>::Invoke(DISPID dispidMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS * pdispparams, VARIANT * pvarResult, EXCEPINFO * pexcepinfo, UINT * puArgErr)
{
HRESULT hr = E_FAIL;
DISPPARAMS dispparams = {0};
if (!pdispparams)
pdispparams = &dispparams; // otherwise OLE Fails when passed NULL.
// make sure we have an interface to hand off to Invoke
if (NULL == _pdisp)
{
hr = PrivateQI(*piid, (LPVOID*)&_pdisp);
ASSERT(SUCCEEDED(hr));
// don't hold a refcount on ourself
_pdisp->Release();
}
ITypeInfo * pITypeInfo;
hr = GetTypeInfo(0, lcid, &pITypeInfo);
if (SUCCEEDED(hr))
{
//Clear exceptions
SetErrorInfo(0L, NULL);
hr = pITypeInfo->Invoke(_pdisp, dispidMember, wFlags, pdispparams, pvarResult, pexcepinfo, puArgErr);
pITypeInfo->Release();
}
return hr;
}
#define DW_MISC_STATUS (OLEMISC_SETCLIENTSITEFIRST | OLEMISC_ACTIVATEWHENVISIBLE | OLEMISC_RECOMPOSEONRESIZE | \
OLEMISC_CANTLINKINSIDE | OLEMISC_INSIDEOUT)
template <class T, const GUID* pclsid, const IID* piid, const GUID* plibid, WORD wMajor, WORD wMinor, class tihclass>
HRESULT CShell32AtlIDispatch<T, pclsid, piid, plibid, 1, 0, tihclass>::GetMiscStatus(DWORD dwAspect, DWORD *pdwStatus)
{
*pdwStatus = DW_MISC_STATUS;
return S_OK;
}
template <class T, const GUID* pclsid, const IID* piid, const GUID* plibid, WORD wMajor, WORD wMinor, class tihclass>
HRESULT CShell32AtlIDispatch<T, pclsid, piid, plibid, 1, 0, tihclass>::DoVerbUIActivate(LPCRECT prcPosRect, HWND hwndParent, HWND hwnd)
{
HRESULT hr = IOleObjectImpl<T>::DoVerbUIActivate(prcPosRect, hwndParent);
if (hwnd)
::SetFocus(hwnd);
return hr;
}
template <class T, const GUID* pclsid, const IID* piid, const GUID* plibid, WORD wMajor, WORD wMinor, class tihclass>
HRESULT CShell32AtlIDispatch<T, pclsid, piid, plibid, 1, 0, tihclass>::TranslateAcceleratorPriv(T * pThis, MSG *pMsg, IOleClientSite * pocs)
{
HRESULT hr = S_FALSE;
if (!EVAL(pMsg))
return E_INVALIDARG;
hr = pThis->T::TranslateAcceleratorInternal(pMsg, pocs);
if (FAILED(hr))
{
if (WM_KEYDOWN == pMsg->message)
{
switch (pMsg->wParam)
{
// We can't handle RETURN because the script wants that
// for post and other reasons
//case VK_RETURN:
case VK_ESCAPE:
case VK_END:
case VK_HOME:
case VK_LEFT:
case VK_UP:
case VK_RIGHT:
case VK_DOWN:
case VK_DELETE:
if (TranslateMessage(pMsg))
{
DispatchMessage(pMsg);
hr = S_OK;
}
break;
case VK_TAB:
{
CComQIPtr <IOleControlSite, &IID_IOleControlSite> spSite(pocs);
if (EVAL(spSite))
hr = spSite->TranslateAccelerator(pMsg, 0);
}
break;
default:
break;
}
}
if (S_OK != hr)
{
// We didn't handle it so give our base class a chances.
hr = pThis->IOleInPlaceActiveObjectImpl<T>::TranslateAccelerator(pMsg);
}
}
return hr;
}
#ifndef ATL_NO_NAMESPACE
}; //namespace ATL
#endif // ATL_NO_NAMESPACE
#endif // __ATL_IDISPATCH_H__