MODULE.CPP (BROWSEH OLE Sample)
/*************************************************************************
-
- OLE Automation TypeLibrary Browse Helper Sample
-
- module.cpp
-
- CModule 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"
/*
* CModule::Create
*
* Purpose:
* Creates an instance of the Module automation object and initializes it.
*
* Parameters:
* ptinfo TypeInfo of module.
* ppModule Returns Module automation object.
*
* Return Value:
* HRESULT
*
*/
HRESULT
CModule::Create(LPTYPEINFO ptinfo, CModule FAR* FAR* ppModule)
{
HRESULT hr;
CModule FAR* pModule = NULL;
*ppModule = NULL;
// Create object.
pModule = new CModule();
if (pModule == NULL)
{
hr = ResultFromScode(E_OUTOFMEMORY);
goto error;
}
// Load type information for the object from type library.
hr = pModule->LoadTypeInfo(IID_IModule);
if (FAILED(hr))
goto error;
// Intialize base class, CTypeInfo
hr = pModule->_InitTypeInfo(ptinfo);
if (FAILED(hr))
goto error;
ptinfo->AddRef();
pModule->m_ptinfo = ptinfo;
#ifdef _DEBUG
lstrcpyn(pModule->m_szClassName, TEXT("Module"), 100);
#endif
*ppModule = pModule;
return NOERROR;
error:
if (pModule == NULL) return ResultFromScode(E_OUTOFMEMORY);
if (pModule->m_ptinfo) pModule->m_ptinfo->Release();
// Set to NULL to prevent destructor from attempting to free again
pModule->m_ptinfo = NULL;
delete pModule;
return hr;
}
/*
* CModule::CModule
*
* Purpose:
* Constructor for CModule object. Initializes members to NULL.
*
*/
CModule::CModule()
{
m_pdispFunctions = NULL;
m_ptinfo = NULL;
}
/*
* CModule::~CModule
*
* Purpose:
* Destructor for CModule object.
*
*/
CModule::~CModule()
{
if (m_pdispFunctions) m_pdispFunctions->Release();
if (m_ptinfo) m_ptinfo->Release();
}
STDMETHODIMP_(REFCLSID)
CModule::GetInterfaceID()
{
return IID_IModule;
}
STDMETHODIMP_(ICollection FAR*)
CModule::get_Functions()
{
HRESULT hr;
CFunction FAR* pFunction;
CCollection FAR* pCollection = NULL;
LPDISPATCH pdisp;
LPTYPEATTR ptypeattr = NULL;
unsigned short n;
if (m_pdispFunctions == NULL)
{
// Create collection of functions of the interface.
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;}
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_pdispFunctions = pdisp;
m_ptinfo->ReleaseTypeAttr(ptypeattr);
}
m_pdispFunctions->AddRef();
return (ICollection FAR*)m_pdispFunctions;
error:
if (ptypeattr) m_ptinfo->ReleaseTypeAttr(ptypeattr);
if (pCollection) delete pCollection;
return NULL;
}
- 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
