ALIAS.CPP (BROWSEH OLE Sample)

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

• OLE Automation TypeLibrary Browse Helper Sample

• alias.cpp

• CAlias 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"

/*

* CAlias::Create

*

* Purpose:

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

*

* Parameters:

* ptinfo Typeinfo of Alias.

* ppAlias Returns Alias automation object.

*

* Return Value:

* HRESULT

*

*/

HRESULT

CAlias::Create(LPTYPEINFO ptinfo, CAlias FAR* FAR* ppAlias)

{

HRESULT hr;

CAlias FAR* pAlias = NULL;

LPTYPEATTR ptypeattr = NULL;

CTypeDesc FAR* pTypeDesc;

*ppAlias = NULL;

// Create alias object.

pAlias = new CAlias();

if (pAlias == NULL)

{

hr = ResultFromScode(E_OUTOFMEMORY);

goto error;

}

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

hr = pAlias->LoadTypeInfo(IID_IAlias);

if (FAILED(hr))

goto error;

// Ask base class (CTypeInfo) to initialize

hr = pAlias->_InitTypeInfo(ptinfo);

if (FAILED(hr))

goto error;

// Get base type of this alias.

hr = ptinfo->GetTypeAttr(&ptypeattr);

if (FAILED(hr))

return NULL;

hr = CTypeDesc::Create(ptinfo, &ptypeattr->tdescAlias, &pTypeDesc);

if (FAILED(hr))

goto error;

pTypeDesc->QueryInterface(IID_IDispatch, (LPVOID FAR*)&pAlias->m_pdispTypeDescBase);

ptinfo->ReleaseTypeAttr(ptypeattr);

#ifdef _DEBUG

lstrcpyn(pAlias->m_szClassName, TEXT("Alias"), 100);

#endif

*ppAlias = pAlias;

return NOERROR;

error:

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

if (pAlias->m_pdispTypeDescBase) pAlias->m_pdispTypeDescBase->Release();

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

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

pAlias->m_pdispTypeDescBase = NULL;

delete pAlias;

return hr;

}

/*

* CAlias::CAlias

*

* Purpose:

* Constructor for CAlias object. Initializes members to NULL.

*

*/

CAlias::CAlias()

{

m_pdispTypeDescBase = NULL;

}

/*

* CAlias::~CAlias

*

* Purpose:

* Destructor for CAlias object.

*

*/

CAlias::~CAlias()

{

if (m_pdispTypeDescBase) m_pdispTypeDescBase->Release();

}

STDMETHODIMP_(REFCLSID)

CAlias::GetInterfaceID()

{

return IID_IAlias;

}

STDMETHODIMP_(ITypeDesc FAR*)

CAlias::get_BaseType()

{

m_pdispTypeDescBase->AddRef();

return (ITypeDesc FAR*)m_pdispTypeDescBase;

}

Software for developers

Delphi Components
.Net Components
Software for Android Developers

More information resources

MegaDetailed.Net
Unix Manual Pages
Delphi Examples

Databases for Amazon shops developers

Amazon Categories Database
Browse Nodes Database