MYDISP.CPP (BROWSEH OLE Sample)
/*************************************************************************
-
- OLE Automation TypeLibrary Browse Helper Sample
-
- mydisp.cpp
-
- CMyDispatch implementation
-
- Written by Microsoft Product Support Services, Windows Developer Support
- (c) Copyright Microsoft Corp. 1994 All Rights Reserved
-
- The CMyDispatch object implement IUnknown & IDispatch for all the
automation
- objects in this sample. All objects derive from CMyDispatch.
-
- ***********************************************************************/
#include <windows.h>
#include <windowsx.h>
#ifdef WIN16
#include <ole2.h>
#include <compobj.h>
#include <dispatch.h>
#include <variant.h>
#include <olenls.h>
#endif
#include "browseh.h"
/*
* CMyDispatch::CMyDispatch
*
* Purpose:
* Constructor for CMyDispatch object. Initializes members to NULL.
*
*/
CMyDispatch::CMyDispatch()
{
m_ptinfo = NULL;
m_cRef = 0;
}
/*
* CMyDispatch::~CMyDispatch
*
* Purpose:
* Destructor for CMyDispatch object.
*
*/
CMyDispatch::~CMyDispatch()
{
if (m_ptinfo) m_ptinfo->Release();
}
/*
* CMyDispatch::QueryInterface, AddRef, Release
*
* Purpose:
* Implements IUnknown::QueryInterface, AddRef, Release
*
*/
STDMETHODIMP
CMyDispatch::QueryInterface(REFIID iid, void FAR* FAR* ppv)
{
*ppv = NULL;
if (iid == IID_IUnknown)
*ppv = this;
else if (iid == IID_IDispatch)
*ppv = this;
else if (iid == GetInterfaceID())
*ppv = this;
else return ResultFromScode(E_NOINTERFACE);
AddRef();
return NOERROR;
}
STDMETHODIMP_(ULONG)
CMyDispatch::AddRef(void)
{
#ifdef _DEBUG
TCHAR ach[150];
wsprintf(ach, TEXT("Ref = %ld, Object = %s\r\n"), m_cRef+1,
m_szClassName);
OutputDebugString(ach);
#endif
return ++m_cRef;
}
STDMETHODIMP_(ULONG)
CMyDispatch::Release(void)
{
#ifdef _DEBUG
TCHAR ach[150];
wsprintf(ach, TEXT("Ref = %ld, Object = %s\r\n"), m_cRef-1,
m_szClassName);
OutputDebugString(ach);
#endif
if(--m_cRef == 0)
{
delete this;
return 0;
}
return m_cRef;
}
/*
* CMyDispatch::GetTypeInfoCount
*
* Purpose:
* Implements IDispatch::GetTypeInfoCount.
*
*/
STDMETHODIMP
CMyDispatch::GetTypeInfoCount(UINT FAR* pctinfo)
{
*pctinfo = 1;
return NOERROR;
}
/*
* CMyDispatch::GetTypeInfo
*
* Purpose:
* Implements IDispatch::GetTypeInfo.
*
*/
STDMETHODIMP
CMyDispatch::GetTypeInfo(
UINT itinfo,
LCID lcid,
ITypeInfo FAR* FAR* pptinfo)
{
*pptinfo = NULL;
if(itinfo != 0)
return ResultFromScode(DISP_E_BADINDEX);
m_ptinfo->AddRef();
*pptinfo = m_ptinfo;
return NOERROR;
}
/*
* CMyDispatch::GetIDsOfNames
*
* Purpose:
* Implements IDispatch::GetIDsOfNames. The standard implementation,
DispGetIDsOfNames,
* is used.
*
*/
STDMETHODIMP
CMyDispatch::GetIDsOfNames(
REFIID riid,
OLECHAR FAR* FAR* rgszNames,
UINT cNames,
LCID lcid,
DISPID FAR* rgdispid)
{
return DispGetIDsOfNames(m_ptinfo, rgszNames, cNames, rgdispid);
}
/*
* CMyDispatch::Invoke
*
* Purpose:
* Implements IDispatch::Invoke. The standard implementation, DispInvoke,
* is used. Properties and methods will
* set m_bRaiseException to raise an exception.
*
*/
STDMETHODIMP
CMyDispatch::Invoke(
DISPID dispidMember,
REFIID riid,
LCID lcid,
WORD wFlags,
DISPPARAMS FAR* pdispparams,
VARIANT FAR* pvarResult,
EXCEPINFO FAR* pexcepinfo,
UINT FAR* puArgErr)
{
HRESULT hr;
m_bRaiseException = FALSE;
hr = DispInvoke(
this, m_ptinfo,
dispidMember, wFlags, pdispparams,
pvarResult, pexcepinfo, puArgErr);
if (m_bRaiseException)
{
if (NULL != pexcepinfo)
_fmemcpy(pexcepinfo, &m_excepinfo, sizeof(EXCEPINFO));
return ResultFromScode(DISP_E_EXCEPTION);
}
else return hr;
}
/*
* CMyDispatch::LoadTypeInfo
*
* Purpose:
* Gets type information of an object's interface from type library.
*
* Parameters:
* clsid Interface id of object in type library.
*
* Return Value:
* HRESULT
*
*/
STDMETHODIMP
CMyDispatch::LoadTypeInfo(REFCLSID clsid)
{
HRESULT hr;
LPTYPELIB ptlib = NULL;
LPTYPEINFO ptinfo = NULL;
// Load Type Library. If required, notify user on failure.
hr = LoadRegTypeLib(LIBID_BrowseHelper, 1, 0, 0x0409, &ptlib);
if (FAILED(hr))
return hr;
// Get type information for interface of the object.
hr = ptlib->GetTypeInfoOfGuid(clsid, &ptinfo);
if (FAILED(hr))
{
ptlib->Release();
return hr;
}
ptlib->Release();
m_ptinfo = ptinfo;
return NOERROR;
}
/*
* CMyDispatch::RaiseException
*
* Purpose:
* Raises exception so CMyDispatch::Invoke will return DISP_E_EXCEPTION
*
* Parameters:
* nID ID of exception to be raised.
*
*/
STDMETHODIMP_(void)
CMyDispatch::RaiseException(int nID)
{
extern HINSTANCE g_hinst;
extern TCHAR g_szServerName[];
TCHAR szError[STR_LEN];
_fmemset(&m_excepinfo, 0, sizeof(EXCEPINFO));
m_excepinfo.wCode = nID;
if (LoadString(g_hinst, nID, szError, sizeof(szError)))
m_excepinfo.bstrDescription = SysAllocString(TO_OLE_STRING(szError));
m_excepinfo.bstrSource = SysAllocString(TO_OLE_STRING(g_szServerName));
m_bRaiseException = TRUE;
}
- Software for developers
-
Delphi Components
.Net Components
Software for Android Developers
- More information resources
-
MegaDetailed.Net
Unix Manual Pages
Delphi Examples
