CONSTANT.CPP (BROWSEH OLE Sample)

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

• OLE Automation Constant Browse Helper Sample

• Constant.cpp

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

/*

* CConstant::Create

*

* Purpose:

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

*

* Parameters:

* ptinfo TypeInfo of which this constant is an element.

* pvardesc VARDESC that describes this constant.

* ppConstant Returns Constant automation object.

*

* Return Value:

* HRESULT

*

*/

HRESULT

CConstant::Create(LPTYPEINFO ptinfo, LPVARDESC pvardesc, CConstant FAR* FAR* ppConstant)

{

HRESULT hr;

CConstant FAR* pConstant = NULL;

BSTR bstr;

unsigned int cNames;

CTypeDesc FAR* pTypeDesc = NULL;

*ppConstant = NULL;

// Create object.

pConstant = new CConstant();

if (pConstant == NULL)

{

hr = ResultFromScode(E_OUTOFMEMORY);

goto error;

}

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

hr = pConstant->LoadTypeInfo(IID_IConstant);

if (FAILED(hr))

goto error;

pConstant->m_memid = pvardesc->memid;

ptinfo->GetNames(pvardesc->memid, &bstr, 1, &cNames);

pConstant->m_bstrName = bstr;

// Type of constant.

hr = CTypeDesc::Create(ptinfo, &pvardesc->elemdescVar.tdesc, &pTypeDesc);

if (FAILED(hr))

goto error;

pTypeDesc->QueryInterface(IID_IDispatch, (LPVOID FAR*)&pConstant->m_pdispTypeDesc);

// Constant value.

if (pvardesc->varkind == VAR_CONST)

pConstant->m_vValue = *pvardesc->lpvarValue;

else goto error;

hr = ptinfo->GetDocumentation(pvardesc->memid, NULL, &pConstant->m_bstrDocumentation,

&pConstant->m_ulHelpContext, &pConstant->m_bstrHelpFile);

if (FAILED(hr))

goto error;

#ifdef _DEBUG

lstrcpyn(pConstant->m_szClassName, TEXT("Constant"), 100);

#endif

*ppConstant = pConstant;

return NOERROR;

error:

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

if (pConstant->m_bstrName) SysFreeString(pConstant->m_bstrName);

if (pConstant->m_bstrDocumentation) SysFreeString(pConstant->m_bstrDocumentation);

if (pConstant->m_bstrHelpFile) SysFreeString(pConstant->m_bstrHelpFile);

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

pConstant->m_bstrName = NULL;

pConstant->m_bstrDocumentation = NULL;

pConstant->m_bstrHelpFile = NULL;

delete pConstant;

return hr;

}

/*

* CConstant::CConstant

*

* Purpose:

* Constructor for CConstant object. Initializes members to NULL.

*

*/

CConstant::CConstant()

{

m_bstrName = NULL;

m_bstrDocumentation = NULL;

m_bstrHelpFile = NULL;

m_pdispTypeDesc = NULL;

}

/*

* CConstant::~CConstant

*

* Purpose:

* Destructor for CConstant object.

*

*/

CConstant::~CConstant()

{

if (m_bstrName) SysFreeString(m_bstrName);

if (m_bstrDocumentation) SysFreeString(m_bstrDocumentation);

if (m_bstrHelpFile) SysFreeString(m_bstrHelpFile);

if (m_pdispTypeDesc) m_pdispTypeDesc->Release();

}

STDMETHODIMP_(REFCLSID)

CConstant::GetInterfaceID()

{

return IID_IConstant;

}

STDMETHODIMP_(BSTR)

CConstant::get_Name()

{

return SysAllocString(m_bstrName);

}

STDMETHODIMP_(BSTR)

CConstant::get_Documentation()

{

return SysAllocString(m_bstrDocumentation);

}

STDMETHODIMP_(long)

CConstant::get_HelpContext()

{

return (long)m_ulHelpContext;

}

STDMETHODIMP_(BSTR)

CConstant::get_HelpFile()

{

return SysAllocString(m_bstrHelpFile);

}

STDMETHODIMP_(ITypeDesc FAR*)

CConstant::get_Type()

{

m_pdispTypeDesc->AddRef();

return (ITypeDesc FAR*)m_pdispTypeDesc;

}

STDMETHODIMP_(VARIANT)

CConstant::get_Value()

{

return m_vValue;

}

STDMETHODIMP_(MEMBERID)

CConstant::get_Memberid()

{

return m_memid;

}

STDMETHODIMP_(OBJTYPE)

CConstant::get_Kind()

{

return TYPE_CONSTANT;

}

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