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