DISPFACE.CPP (BROWSEH OLE Sample)

/*************************************************************************

• OLE Automation TypeLibrary Browse Helper Sample

• dispface.cpp

• CDispinterface implementation

• Written by Microsoft Product Support Services, Windows Developer Support

• (c) Copyright Microsoft Corp. 1994 All Rights Reserved

• ***********************************************************************/

#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"

/*

* CDispinterface::Create

*

* Purpose:

* Creates an instance of the Dispinterface automation object and initializes it.

*

* Parameters:

* ptinfo TypeInfo of dispinterface.

* ppDispinterface Returns Dispinterface automation object.

*

* Return Value:

* HRESULT

*

*/

HRESULT

CDispinterface::Create(LPTYPEINFO ptinfo, CDispinterface FAR* FAR* ppDispinterface)

{

HRESULT hr;

CDispinterface FAR* pDispinterface = NULL;

*ppDispinterface = NULL;

// Create object.

pDispinterface = new CDispinterface();

if (pDispinterface == NULL)

{

hr = ResultFromScode(E_OUTOFMEMORY);

goto error;

}

// Load type information for the object from type library.

hr = pDispinterface->LoadTypeInfo(IID_IDispinterface);

if (FAILED(hr))

goto error;

// Ask base class (CTypeInfo) to initialize.

hr = pDispinterface->_InitTypeInfo(ptinfo);

if (FAILED(hr))

goto error;

ptinfo->AddRef();

pDispinterface->m_ptinfo = ptinfo;

#ifdef _DEBUG

lstrcpyn(pDispinterface->m_szClassName, TEXT("Dispinterface"), 100);

#endif

*ppDispinterface = pDispinterface;

return NOERROR;

error:

if (pDispinterface == NULL) return ResultFromScode(E_OUTOFMEMORY);

if (pDispinterface->m_ptinfo) pDispinterface->m_ptinfo->Release();

// Set to NULL to prevent destructor from attempting to free again

pDispinterface->m_ptinfo = NULL;

delete pDispinterface;

return hr;

}

/*

* CDispinterface::CDispinterface

*

* Purpose:

* Constructor for CDispinterface object. Initializes members to NULL.

*

*/

CDispinterface::CDispinterface()

{

m_pdispProperties = NULL;

m_pdispMethods = NULL;

m_ptinfo = NULL;

}

/*

* CDispinterface::~CDispinterface

*

* Purpose:

* Destructor for CDispinterface object.

*

*/

CDispinterface::~CDispinterface()

{

if (m_pdispProperties) m_pdispProperties->Release();

if (m_pdispMethods) m_pdispMethods->Release();

if (m_ptinfo) m_ptinfo->Release();

}

STDMETHODIMP_(REFCLSID)

CDispinterface::GetInterfaceID()

{

return IID_IDispinterface;

}

STDMETHODIMP_(ICollection FAR*)

CDispinterface::get_Methods()

{

HRESULT hr;

CFunction FAR* pFunction;

CCollection FAR* pCollection = NULL;

LPDISPATCH pdisp;

LPTYPEATTR ptypeattr = NULL;

unsigned short n;

if (m_pdispMethods == NULL)

{

hr = m_ptinfo->GetTypeAttr(&ptypeattr);

if (FAILED(hr))

{RaiseException(IDS_Unexpected); return NULL;}

hr = CCollection::Create(ptypeattr->cFuncs, 0, &pCollection);

if (FAILED(hr))

{RaiseException(IDS_Unexpected); goto error;}

// Enumerate methods and return a collection of these.

for (n=0; n<ptypeattr->cFuncs; n++)

{

hr = CFunction::Create(m_ptinfo, n, &pFunction);

if (FAILED(hr))

{RaiseException(IDS_Unexpected); goto error;}

pFunction->QueryInterface(IID_IDispatch, (void FAR* FAR*)&pdisp);

pCollection->Add(pdisp);

pdisp->Release();

}

pCollection->QueryInterface(IID_IDispatch, (void FAR* FAR*)&pdisp);

m_pdispMethods = pdisp;

m_ptinfo->ReleaseTypeAttr(ptypeattr);

}

m_pdispMethods->AddRef();

return (ICollection FAR*)m_pdispMethods;

error:

if (ptypeattr) m_ptinfo->ReleaseTypeAttr(ptypeattr);

if (pCollection) delete pCollection;

return NULL;

}

STDMETHODIMP_(ICollection FAR*)

CDispinterface::get_Properties()

{

HRESULT hr;

CProperty FAR* pProperty;

CCollection FAR* pCollection = NULL;

LPDISPATCH pdisp;

LPVARDESC pvardesc = NULL;

LPTYPEATTR ptypeattr = NULL;

unsigned short n;

if (m_pdispProperties == NULL)

{

hr = m_ptinfo->GetTypeAttr(&ptypeattr);

if (FAILED(hr))

{RaiseException(IDS_Unexpected); return NULL;}

hr = CCollection::Create(ptypeattr->cVars, 0, &pCollection);

if (FAILED(hr))

{RaiseException(IDS_Unexpected); goto error;}

// Enumerate properties and return a collection of these.

for (n=0; n<ptypeattr->cVars; n++)

{

hr = m_ptinfo->GetVarDesc(n, &pvardesc);

if (FAILED(hr))

{RaiseException(IDS_Unexpected); goto error;}

hr = CProperty::Create(m_ptinfo, pvardesc, &pProperty);

if (FAILED(hr))

{RaiseException(IDS_Unexpected); goto error;}

m_ptinfo->ReleaseVarDesc(pvardesc);

pvardesc = NULL;

pProperty->QueryInterface(IID_IDispatch, (void FAR* FAR*)&pdisp);

pCollection->Add(pdisp);

pdisp->Release();

}

pCollection->QueryInterface(IID_IDispatch, (void FAR* FAR*)&pdisp);

m_pdispProperties = pdisp;

m_ptinfo->ReleaseTypeAttr(ptypeattr);

}

m_pdispProperties->AddRef();

return (ICollection FAR*)m_pdispProperties;

error:

if (ptypeattr) m_ptinfo->ReleaseTypeAttr(ptypeattr);

if (pCollection) delete pCollection;

if (pvardesc) m_ptinfo->ReleaseVarDesc(pvardesc);

return NULL;

}

Software for developers

Delphi Components
.Net Components
Software for Android Developers

More information resources

MegaDetailed.Net
Unix Manual Pages
Delphi Examples