PARAM.CPP (BROWSEH OLE Sample)
/*************************************************************************
-
- OLE Automation TypeLibrary Browse Helper Sample
-
- param.cpp
-
- CParameter 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"
/*
* CParameter::Create
*
* Purpose:
* Creates an instance of the Parameter automation object and initializes it.
*
* Parameters:
* ptinfo TypeInfo in which the function of this parameter is
contained.
* bstrName Name of parameter
* ptypedesc Type of parameter.
* pidldesc IDLDESC of parameter.
* ppParameter Returns Parameter automation object.
*
* Return Value:
* HRESULT
*
*/
HRESULT
CParameter::Create(LPTYPEINFO ptinfo, BSTR bstrName, TYPEDESC FAR* ptypedesc,
IDLDESC FAR* pidldesc, CParameter FAR* FAR* ppParameter)
{
HRESULT hr;
CParameter FAR* pParameter = NULL;
CTypeDesc FAR* pTypeDesc = NULL;
*ppParameter = NULL;
// Create object.
pParameter = new CParameter();
if (pParameter == NULL)
{
hr = ResultFromScode(E_OUTOFMEMORY);
goto error;
}
// Load type information for the object from type library.
hr = pParameter->LoadTypeInfo(IID_IParameter);
if (FAILED(hr))
goto error;
pParameter->m_bstrName = SysAllocString(bstrName);
// Parameter type.
hr = CTypeDesc::Create(ptinfo, ptypedesc, &pTypeDesc);
if (FAILED(hr))
goto error;
pTypeDesc->QueryInterface(IID_IDispatch, (LPVOID
FAR*)&pParameter->m_pdispTypeDesc);
pParameter->m_wIDLFlags = pidldesc->wIDLFlags;
#ifdef _DEBUG
lstrcpyn(pParameter->m_szClassName, TEXT("Parameter"), 100);
#endif
*ppParameter = pParameter;
return NOERROR;
error:
if (pParameter == NULL) return ResultFromScode(E_OUTOFMEMORY);
delete pParameter;
return hr;
}
/*
* CParameter::CParameter
*
* Purpose:
* Constructor for CParameter object. Initializes members to NULL.
*
*/
CParameter::CParameter()
{
m_bstrName = NULL;
m_pdispTypeDesc = NULL;
}
/*
* CParameter::~CParameter
*
* Purpose:
* Destructor for CParameter object.
*
*/
CParameter::~CParameter()
{
if (m_bstrName) SysFreeString(m_bstrName);
if (m_pdispTypeDesc) m_pdispTypeDesc->Release();
}
STDMETHODIMP_(REFCLSID)
CParameter::GetInterfaceID()
{
return IID_IParameter;
}
STDMETHODIMP_(BSTR)
CParameter::get_Name()
{
return SysAllocString(m_bstrName);
}
STDMETHODIMP_(ITypeDesc FAR*)
CParameter::get_Type()
{
m_pdispTypeDesc->AddRef();
return (ITypeDesc FAR*)m_pdispTypeDesc;
}
STDMETHODIMP_(int)
CParameter::get_IDLFlags()
{
return (int)m_wIDLFlags;
}
STDMETHODIMP_(OBJTYPE)
CParameter::get_Kind()
{
return TYPE_PARAMETER;
}
- Software for developers
-
Delphi Components
.Net Components
Software for Android Developers
- More information resources
-
MegaDetailed.Net
Unix Manual Pages
Delphi Examples
