You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
175 lines
3.4 KiB
175 lines
3.4 KiB
//---------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
// Copyright (C) Microsoft Corporation, 1992 - 1995
|
|
//
|
|
// File: cLargeInteger.cxx
|
|
//
|
|
// Contents: LargeInteger object
|
|
//
|
|
// History: 11-1-95 krishnag Created.
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
|
|
#include "oleds.hxx"
|
|
#pragma hdrstop
|
|
|
|
// Class CLargeInteger
|
|
|
|
DEFINE_IDispatch_Implementation(CLargeInteger)
|
|
|
|
CLargeInteger::CLargeInteger():
|
|
_pDispMgr(NULL),
|
|
_dwHighPart(0),
|
|
_dwLowPart(0)
|
|
{
|
|
ENLIST_TRACKING(CLargeInteger);
|
|
}
|
|
|
|
|
|
HRESULT
|
|
CLargeInteger::CreateLargeInteger(
|
|
REFIID riid,
|
|
void **ppvObj
|
|
)
|
|
{
|
|
CLargeInteger FAR * pLargeInteger = NULL;
|
|
HRESULT hr = S_OK;
|
|
|
|
hr = AllocateLargeIntegerObject(&pLargeInteger);
|
|
BAIL_ON_FAILURE(hr);
|
|
|
|
hr = pLargeInteger->QueryInterface(riid, ppvObj);
|
|
BAIL_ON_FAILURE(hr);
|
|
|
|
pLargeInteger->Release();
|
|
|
|
RRETURN(hr);
|
|
|
|
error:
|
|
delete pLargeInteger;
|
|
|
|
RRETURN_EXP_IF_ERR(hr);
|
|
|
|
}
|
|
|
|
|
|
CLargeInteger::~CLargeInteger( )
|
|
{
|
|
delete _pDispMgr;
|
|
}
|
|
|
|
STDMETHODIMP
|
|
CLargeInteger::QueryInterface(
|
|
REFIID iid,
|
|
LPVOID FAR* ppv
|
|
)
|
|
{
|
|
if (IsEqualIID(iid, IID_IUnknown))
|
|
{
|
|
*ppv = (IADsLargeInteger FAR *) this;
|
|
}
|
|
else if (IsEqualIID(iid, IID_IADsLargeInteger))
|
|
{
|
|
*ppv = (IADsLargeInteger FAR *) this;
|
|
}
|
|
else if (IsEqualIID(iid, IID_IDispatch))
|
|
{
|
|
*ppv = (IADsLargeInteger FAR *) this;
|
|
}
|
|
else if (IsEqualIID(iid, IID_ISupportErrorInfo))
|
|
{
|
|
*ppv = (ISupportErrorInfo FAR *) this;
|
|
}
|
|
else
|
|
{
|
|
*ppv = NULL;
|
|
return E_NOINTERFACE;
|
|
}
|
|
AddRef();
|
|
return NOERROR;
|
|
}
|
|
|
|
HRESULT
|
|
CLargeInteger::AllocateLargeIntegerObject(
|
|
CLargeInteger ** ppLargeInteger
|
|
)
|
|
{
|
|
CLargeInteger FAR * pLargeInteger = NULL;
|
|
CDispatchMgr FAR * pDispMgr = NULL;
|
|
HRESULT hr = S_OK;
|
|
|
|
pLargeInteger = new CLargeInteger();
|
|
if (pLargeInteger == NULL) {
|
|
hr = E_OUTOFMEMORY;
|
|
}
|
|
BAIL_ON_FAILURE(hr);
|
|
|
|
pDispMgr = new CDispatchMgr;
|
|
if (pDispMgr == NULL) {
|
|
hr = E_OUTOFMEMORY;
|
|
}
|
|
BAIL_ON_FAILURE(hr);
|
|
|
|
hr = LoadTypeInfoEntry(
|
|
pDispMgr,
|
|
LIBID_ADs,
|
|
IID_IADsLargeInteger,
|
|
(IADsLargeInteger *)pLargeInteger,
|
|
DISPID_REGULAR
|
|
);
|
|
BAIL_ON_FAILURE(hr);
|
|
|
|
pLargeInteger->_pDispMgr = pDispMgr;
|
|
*ppLargeInteger = pLargeInteger;
|
|
|
|
RRETURN(hr);
|
|
|
|
error:
|
|
|
|
delete pLargeInteger;
|
|
delete pDispMgr;
|
|
|
|
RRETURN_EXP_IF_ERR(hr);
|
|
|
|
}
|
|
|
|
STDMETHODIMP
|
|
CLargeInteger::InterfaceSupportsErrorInfo(THIS_ REFIID riid)
|
|
{
|
|
if (IsEqualIID(riid, IID_IADsLargeInteger)) {
|
|
return S_OK;
|
|
} else {
|
|
return S_FALSE;
|
|
}
|
|
}
|
|
|
|
STDMETHODIMP
|
|
CLargeInteger::get_HighPart(THIS_ LONG *retval)
|
|
{
|
|
*retval = _dwHighPart;
|
|
RRETURN(S_OK);
|
|
}
|
|
|
|
STDMETHODIMP
|
|
CLargeInteger::put_HighPart(THIS_ LONG lnHighPart)
|
|
{
|
|
_dwHighPart = lnHighPart;
|
|
RRETURN(S_OK);
|
|
}
|
|
|
|
STDMETHODIMP
|
|
CLargeInteger::get_LowPart(THIS_ LONG *retval)
|
|
{
|
|
*retval = _dwLowPart;
|
|
RRETURN(S_OK);
|
|
}
|
|
|
|
STDMETHODIMP
|
|
CLargeInteger::put_LowPart(THIS_ LONG lnLowPart)
|
|
{
|
|
_dwLowPart = lnLowPart;
|
|
RRETURN(S_OK);
|
|
}
|
|
|
|
|