|
COLLECT.CPP (BROWSEH OLE Sample)
/*************************************************************************
-
- OLE Automation TypeLibrary Browse Helper Sample
-
- collect.cpp
-
- CCollection 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"
/*
* CCollection::Create
*
* Purpose:
* Creates an instance of a collection object and initializes it.
*
* Parameters:
* lMaxSize Maximum number of items that can added to collection.
* lLBound Lower bound of index of collection.
* ppCollection Returns collection object.
*
* Return Value:
* HRESULT
*
*/
HRESULT
CCollection::Create(ULONG lMaxSize, long lLBound, CCollection FAR* FAR*
ppCollection)
{
HRESULT hr;
CCollection FAR* pCollection = NULL;
SAFEARRAYBOUND sabound[1];
*ppCollection = NULL;
// Create new collection
pCollection = new CCollection();
if (pCollection == NULL)
goto error;
// Load type information for the collection from type library.
hr = pCollection->LoadTypeInfo(IID_ICollection);
if (FAILED(hr))
goto error;
// If lMaxSize is 0 increment it to 1 or SafeArrayCreate will fail
if (lMaxSize == 0)
lMaxSize = 1;
pCollection->m_cMax = lMaxSize;
pCollection->m_cElements = 0;
pCollection->m_lLBound = lLBound;
// Create a safe array which is used to implement the collection
sabound[0].cElements = lMaxSize;
sabound[0].lLbound = lLBound;
pCollection->m_psa = SafeArrayCreate(VT_VARIANT, 1, sabound);
if (pCollection->m_psa == NULL)
{
hr = ResultFromScode(E_OUTOFMEMORY);
goto error;
}
#ifdef _DEBUG
lstrcpyn(pCollection->m_szClassName, TEXT("Collection"), 100);
#endif
*ppCollection = pCollection;
return NOERROR;
error:
if (pCollection == NULL)
return ResultFromScode(E_OUTOFMEMORY);
if (pCollection->m_psa)
SafeArrayDestroy(pCollection->m_psa);
pCollection->m_psa = NULL;
delete pCollection;
return hr;
}
/*
* CCollection::CCollection
*
* Purpose:
* Constructor for CCollection object. Initializes members to NULL.
*
*/
CCollection::CCollection()
{
m_psa = NULL;
}
/*
* CCollection::~CCollection
*
* Purpose:
* Destructor for CCollection object.
*
*/
CCollection::~CCollection()
{
if (m_psa) SafeArrayDestroy(m_psa);
}
STDMETHODIMP_(REFCLSID)
CCollection::GetInterfaceID()
{
return IID_ICollection;
}
/*
* CCollection::get_Count
*
* Purpose:
* Returns number of items in collection.
*
*/
STDMETHODIMP_(long)
CCollection::get_Count(void)
{
return m_cElements;
}
/*
* CCollection::get_Item
*
* Purpose:
* Retrieves item from collection, given an index.
*
* Parameters:
* lIndex Index of item to be retrieved.
*
* Returns
* IDispatch of item retrieved from collection.
*
*/
STDMETHODIMP_(LPDISPATCH)
CCollection::get_Item(long lIndex)
{
HRESULT hr;
VARIANT v;
LPDISPATCH pdisp = NULL;
// Check if integer index is within range
if (lIndex < m_lLBound || lIndex >= (long)(m_lLBound+m_cElements))
{RaiseException(IDS_InvalidIndex); return NULL;}
// Retrieve and return item. Note that SafeArrayGetElement AddRefs so an
additional AddRef
// is not required.
VariantInit(&v);
hr = SafeArrayGetElement(m_psa, &lIndex, &v);
if (FAILED(hr))
{RaiseException(IDS_Unexpected); return NULL;}
return V_DISPATCH(&v);
}
/*
* CCollection::get_NewEnum
*
* Purpose:
* Returns an enumerator (IEnumVARIANT) for the items curently in the
collection.
* The NewEnum property is restricted and so is invisible to users of an
* automation controller's scripting language. Automation controllers that
support
* a 'For Each' statement to iterate through the elements of a collection
will use
* the enumerator returned by NewEnum. The enumerator creates a snapshot of
the
* the current state of the collection.
*
*/
STDMETHODIMP_(LPUNKNOWN)
CCollection::get__NewEnum(void)
{
CEnumVariant FAR* penum = NULL;;
LPUNKNOWN punkEnumVariant = NULL;
HRESULT hr;
// Create new enumerator for items currently in collection and QI for
IUnknown
hr = CEnumVariant::Create(m_psa, m_cElements, &penum);
if (FAILED(hr))
{RaiseException(IDS_OutOfMemory); goto error;}
hr = penum->QueryInterface(IID_IUnknown, (VOID FAR*
FAR*)&punkEnumVariant);
if (FAILED(hr))
{RaiseException(IDS_Unexpected); goto error;}
return punkEnumVariant;
error:
if (penum)
delete penum;
return NULL;
}
/*
* CCollection::Add
*
* Purpose:
* Adds an item to the collection.
*
* Parameters:
* pdispItemAdd Item to be added to collection.
*
*/
STDMETHODIMP_(void)
CCollection::Add(LPDISPATCH pdispItem)
{
HRESULT hr;
LONG l;
VARIANT v;
// Is the collection full?
if (m_cElements == m_cMax)
{RaiseException(IDS_CollectionFull); return;}
l = m_lLBound+m_cElements;
VariantInit(&v);
V_VT(&v) = VT_DISPATCH;
V_DISPATCH(&v) = pdispItem;
hr = SafeArrayPutElement(m_psa, &l, &v);
if (FAILED(hr))
{RaiseException(IDS_Unexpected); return;}
m_cElements++;
}
| Last news from Greatis Software |
 |
|
Nostalgia .Net |
|
.Net is powerful, but not all-powerful, so sometimes we need to use Win32 API for our .Net applications. It's simple enough with Platform Invoke if you have Win32 skill, but we do not always have time to dig the ancient documentation, declare the special types that are compatible with Win32, find the values of the Win32's constants and so on. Nostalgia .Net offers several simple-to-use classes, and components that will allow you to forget about the headache of Win32 and just use the power of Win32 in your application the same way as you use the native. Net classes. More » |
| Recommended software for developers |
 |
|
Ultimate Pack |
|
Component pack for Delphi and C++ Builder that contains runtime form designer, runtime object inspector, print suite and much more for the very special price. More » |
 |
|
Form Designer .Net |
|
Unique runtime form design solution that allows to edit any form in .Net WinForms application at runtime with full source codes for only 300 euro! More » |
 |
|
Print Suite .Net |
|
Print Suite .Net is a set of components for easy printing texts, images and grids from your WinForms applications. Full C# source codes are available More » |
 |
|
Gradient Controls .Net |
|
Gradient Controls .Net offers controls with gradient background feature. Labels, panels and so on... Full C# source codes are available More » |
 |
|
Greatis iGrid |
|
iGrid plots drawing grid right over your desktop, so you can use it everywhere, with any drawing application without any special plugins for different graphic editors. More » |
All the contacts and projectsDmitry Vasiliev (just.dmitry)
Related LinksSoftware for Visual Studio .NET developers
Software for Delphi and C++ Builder developers
Software for Visual Basic 6 developers
Delphi Tips&Tricks
MegaDetailed.NET More Online Helps Win32 Programmer's Reference
Win32 Multimedia Programmer's Reference
OLE Programmer's Reference
Microsoft Windows Pen API Programmer's Reference
Microsoft Windows Sockets 2 Reference
Microsoft Windows Telephony API (TAPI) Programmer's Reference
Unix Manual Pages
|
