Supercompiler 1997/SUPERCOMPILER97.iso/MS_VC.50/VC/MFC/SRC/OLEVAR.CPP

C/C++ Source or Header | 1996-12-11 | 63.7 KB | 2,806 lines

// This is a part of the Microsoft Foundation Classes C++ library.
// Copyright (C) 1992-1997 Microsoft Corporation
// All rights reserved.
//
// This source code is only intended as a supplement to the
// Microsoft Foundation Classes Reference and related
// electronic documentation provided with the library.
// See these sources for detailed information regarding the
// Microsoft Foundation Classes product.

#include "stdafx.h"
#include <afxtempl.h>
#include <math.h>

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// helpers

static void PASCAL CheckError(SCODE sc);
static BOOL PASCAL CompareSafeArrays(SAFEARRAY* parray1, SAFEARRAY* parray2);
static void PASCAL CreateOneDimArray(VARIANT& varSrc, DWORD dwSize);
static void PASCAL CopyBinaryData(SAFEARRAY* parray,
    const void* pSrc, DWORD dwSize);

/////////////////////////////////////////////////////////////////////////////
// COleVariant class

COleVariant::COleVariant(const VARIANT& varSrc)
{
    AfxVariantInit(this);
    CheckError(::VariantCopy(this, (LPVARIANT)&varSrc));
}

COleVariant::COleVariant(LPCVARIANT pSrc)
{
    AfxVariantInit(this);
    CheckError(::VariantCopy(this, (LPVARIANT)pSrc));
}

COleVariant::COleVariant(const COleVariant& varSrc)
{
    AfxVariantInit(this);
    CheckError(::VariantCopy(this, (LPVARIANT)&varSrc));
}

COleVariant::COleVariant(LPCTSTR lpszSrc, VARTYPE vtSrc)
{
    USES_CONVERSION;
    ASSERT(vtSrc == VT_BSTR || vtSrc == VT_BSTRT);
    UNUSED(vtSrc);

    vt = VT_BSTR;
    bstrVal = NULL;

    if (lpszSrc != NULL)
    {
#ifndef _UNICODE
        if (vtSrc == VT_BSTRT)
        {
            int nLen = lstrlen(lpszSrc);
            bstrVal = ::SysAllocStringByteLen(lpszSrc, nLen);
        }
        else
#endif
        {
            bstrVal = ::SysAllocString(T2COLE(lpszSrc));
        }

        if (bstrVal == NULL)
            AfxThrowMemoryException();
    }
}



void COleVariant::SetString(LPCTSTR lpszSrc, VARTYPE vtSrc)
{
    USES_CONVERSION;
    ASSERT(vtSrc == VT_BSTR || vtSrc == VT_BSTRT);
    UNUSED(vtSrc);

    // Free up previous VARIANT
    Clear();

    vt = VT_BSTR;
    bstrVal = NULL;

    if (lpszSrc != NULL)
    {
#ifndef _UNICODE
        if (vtSrc == VT_BSTRT)
        {
            int nLen = lstrlen(lpszSrc);
            bstrVal = ::SysAllocStringByteLen(lpszSrc, nLen);
        }
        else
#endif
        {
            bstrVal = ::SysAllocString(T2COLE(lpszSrc));
        }

        if (bstrVal == NULL)
            AfxThrowMemoryException();
    }
}

COleVariant::COleVariant(short nSrc, VARTYPE vtSrc)
{
    ASSERT(vtSrc == VT_I2 || vtSrc == VT_BOOL);

    if (vtSrc == VT_BOOL)
    {
        vt = VT_BOOL;
        if (nSrc == FALSE)
            V_BOOL(this) = AFX_OLE_FALSE;
        else
            V_BOOL(this) = AFX_OLE_TRUE;
    }
    else
    {
        vt = VT_I2;
        iVal = nSrc;
    }
}

COleVariant::COleVariant(long lSrc, VARTYPE vtSrc)
{
    ASSERT(vtSrc == VT_I4 || vtSrc == VT_ERROR || vtSrc == VT_BOOL);

    if (vtSrc == VT_ERROR)
    {
        vt = VT_ERROR;
        scode = lSrc;
    }
    else if (vtSrc == VT_BOOL)
    {
        vt = VT_BOOL;
        if (lSrc == FALSE)
            V_BOOL(this) = AFX_OLE_FALSE;
        else
            V_BOOL(this) = AFX_OLE_TRUE;
    }
    else
    {
        vt = VT_I4;
        lVal = lSrc;
    }
}

// Operations
void COleVariant::Clear()
{
#ifndef _UNICODE
    if (vt == VT_BSTRT)
        ::SysFreeString(bstrVal);
    else
#endif
    {
        VERIFY(::VariantClear(this) == NOERROR);
    }
}

void COleVariant::ChangeType(VARTYPE vartype, LPVARIANT pSrc)
{
    // If pSrc is NULL, convert type in place
    if (pSrc == NULL)
        pSrc = this;
    if (pSrc != this || vartype != vt)
        CheckError(::VariantChangeType(this, pSrc, 0, vartype));
}

void COleVariant::Attach(VARIANT& varSrc)
{
    // Free up previous VARIANT
    Clear();

    // give control of data to COleVariant
    memcpy(this, &varSrc, sizeof(varSrc));
    varSrc.vt = VT_EMPTY;
}

VARIANT COleVariant::Detach()
{
    VARIANT varResult = *this;
    vt = VT_EMPTY;
    return varResult;
}

// Literal comparison. Types and values must match.
BOOL COleVariant::operator==(const VARIANT& var) const
{
    if (&var == this)
        return TRUE;

    // Variants not equal if types don't match
    if (var.vt != vt)
        return FALSE;

    // Check type specific values
    switch (vt)
    {
    case VT_EMPTY:
    case VT_NULL:
        return TRUE;

    case VT_BOOL:
        return V_BOOL(&var) == V_BOOL(this);

    case VT_UI1:
        return var.bVal == bVal;

    case VT_I2:
        return var.iVal == iVal;

    case VT_I4:
        return var.lVal == lVal;

    case VT_CY:
        return (var.cyVal.Hi == cyVal.Hi && var.cyVal.Lo == cyVal.Lo);

    case VT_R4:
        return var.fltVal == fltVal;

    case VT_R8:
        return var.dblVal == dblVal;

    case VT_DATE:
        return var.date == date;

    case VT_BSTR:
        return SysStringByteLen(var.bstrVal) == SysStringByteLen(bstrVal) &&
            memcmp(var.bstrVal, bstrVal, SysStringByteLen(bstrVal)) == 0;

    case VT_ERROR:
        return var.scode == scode;

    case VT_DISPATCH:
    case VT_UNKNOWN:
        return var.punkVal == punkVal;

    default:
        if (vt & VT_ARRAY && !(vt & VT_BYREF))
            return CompareSafeArrays(var.parray, parray);
        else
            ASSERT(FALSE);  // VT_BYREF not supported
        // fall through
    }

    return FALSE;
}

const COleVariant& COleVariant::operator=(const VARIANT& varSrc)
{
    CheckError(::VariantCopy(this, (LPVARIANT)&varSrc));
    return *this;
}

const COleVariant& COleVariant::operator=(LPCVARIANT pSrc)
{
    CheckError(::VariantCopy(this, (LPVARIANT)pSrc));
    return *this;
}

const COleVariant& COleVariant::operator=(const COleVariant& varSrc)
{
    CheckError(::VariantCopy(this, (LPVARIANT)&varSrc));
    return *this;
}

const COleVariant& COleVariant::operator=(const LPCTSTR lpszSrc)
{
    USES_CONVERSION;
    // Free up previous VARIANT
    Clear();

    vt = VT_BSTR;
    if (lpszSrc == NULL)
        bstrVal = NULL;
    else
    {
        bstrVal = ::SysAllocString(T2COLE(lpszSrc));
        if (bstrVal == NULL)
            AfxThrowMemoryException();
    }
    return *this;
}

const COleVariant& COleVariant::operator=(const CString& strSrc)
{
    USES_CONVERSION;
    // Free up previous VARIANT
    Clear();

    vt = VT_BSTR;
    bstrVal = ::SysAllocString(T2COLE(strSrc));
    if (bstrVal == NULL)
        AfxThrowMemoryException();

    return *this;
}

const COleVariant& COleVariant::operator=(BYTE nSrc)
{
    // Free up previous VARIANT if necessary
    if (vt != VT_UI1)
    {
        Clear();
        vt = VT_UI1;
    }

    bVal = nSrc;
    return *this;
}

const COleVariant& COleVariant::operator=(short nSrc)
{
    if (vt == VT_I2)
        iVal = nSrc;
    else if (vt == VT_BOOL)
    {
        if (nSrc == FALSE)
            V_BOOL(this) = AFX_OLE_FALSE;
        else
            V_BOOL(this) = AFX_OLE_TRUE;
    }
    else
    {
        // Free up previous VARIANT
        Clear();
        vt = VT_I2;
        iVal = nSrc;
    }

    return *this;
}

const COleVariant& COleVariant::operator=(long lSrc)
{
    if (vt == VT_I4)
        lVal = lSrc;
    else if (vt == VT_ERROR)
        scode = lSrc;
    else if (vt == VT_BOOL)
    {
        if (lSrc == FALSE)
            V_BOOL(this) = AFX_OLE_FALSE;
        else
            V_BOOL(this) = AFX_OLE_TRUE;
    }
    else
    {
        // Free up previous VARIANT
        Clear();
        vt = VT_I4;
        lVal = lSrc;
    }

    return *this;
}

const COleVariant& COleVariant::operator=(const COleCurrency& curSrc)
{
    // Free up previous VARIANT if necessary
    if (vt != VT_CY)
    {
        Clear();
        vt = VT_CY;
    }

    cyVal = curSrc.m_cur;
    return *this;
}

const COleVariant& COleVariant::operator=(float fltSrc)
{
    // Free up previous VARIANT if necessary
    if (vt != VT_R4)
    {
        Clear();
        vt = VT_R4;
    }

    fltVal = fltSrc;
    return *this;
}

const COleVariant& COleVariant::operator=(double dblSrc)
{
    // Free up previous VARIANT if necessary
    if (vt != VT_R8)
    {
        Clear();
        vt = VT_R8;
    }

    dblVal = dblSrc;
    return *this;
}

const COleVariant& COleVariant::operator=(const COleDateTime& dateSrc)
{
    // Free up previous VARIANT if necessary
    if (vt != VT_DATE)
    {
        Clear();
        vt = VT_DATE;
    }

    date = dateSrc.m_dt;
    return *this;
}

const COleVariant& COleVariant::operator=(const CByteArray& arrSrc)
{
    int nSize = arrSrc.GetSize();

    // Set the correct type and make sure SafeArray can hold data
    CreateOneDimArray(*this, (DWORD)nSize);

    // Copy the data into the SafeArray
    CopyBinaryData(parray, arrSrc.GetData(), (DWORD)nSize);

    return *this;
}

const COleVariant& COleVariant::operator=(const CLongBinary& lbSrc)
{
    // Set the correct type and make sure SafeArray can hold data
    CreateOneDimArray(*this, lbSrc.m_dwDataLength);

    // Copy the data into the SafeArray
    BYTE* pData = (BYTE*)::GlobalLock(lbSrc.m_hData);
    CopyBinaryData(parray, pData, lbSrc.m_dwDataLength);
    ::GlobalUnlock(lbSrc.m_hData);

    return *this;
}

void AFXAPI AfxVariantInit(LPVARIANT pVar)
{
    memset(pVar, 0, sizeof(*pVar));
}

/////////////////////////////////////////////////////////////////////////////
// Diagnostics

#ifdef _DEBUG
CDumpContext& AFXAPI operator <<(CDumpContext& dc, COleVariant varSrc)
{
    LPCVARIANT pSrc = (LPCVARIANT)varSrc;

    dc << "\nCOleVariant Object:";
    dc << "\n\t vt = " << pSrc->vt;

    // No support for VT_BYREF & VT_ARRAY
    if (pSrc->vt & VT_BYREF || pSrc->vt & VT_ARRAY)
        return dc;

    switch (pSrc->vt)
    {
    case VT_BOOL:
        return dc << "\n\t VT_BOOL = " << V_BOOL(pSrc);

    case VT_UI1:
        return dc << "\n\t bVal = " << pSrc->bVal;

    case VT_I2:
        return dc << "\n\t iVal = " << pSrc->iVal;

    case VT_I4:
        return dc << "\n\t lVal = " << pSrc->lVal;

    case VT_CY:
        {
            COleVariant var(varSrc);
            var.ChangeType(VT_BSTR);
            return dc << "\n\t cyVal = " << (LPCTSTR)var.bstrVal;
        }

    case VT_R4:
        return dc << "\n\t fltVal = " << pSrc->fltVal;

    case VT_R8:
        return dc << "\n\t dblVal = " << pSrc->dblVal;

    case VT_DATE:
        {
            COleVariant var(varSrc);
            var.ChangeType(VT_BSTR);
            return dc << "\n\t date = " << (LPCTSTR)var.bstrVal;
        }

    case VT_BSTR:
        return dc << "\n\t bstrVal = " << (LPCTSTR)pSrc->bstrVal;

    case VT_ERROR:
        return dc << "\n\t scode = " << pSrc->scode;

    case VT_DISPATCH:
    case VT_UNKNOWN:
        return dc << "\n\t punkVal = " << pSrc->punkVal;

    case VT_EMPTY:
    case VT_NULL:
        return dc;

    default:
        ASSERT(FALSE);
        return dc;
    }
}
#endif // _DEBUG

CArchive& AFXAPI operator<<(CArchive& ar, COleVariant varSrc)
{
    LPCVARIANT pSrc = (LPCVARIANT)varSrc;

    ar << pSrc->vt;

    // No support for VT_BYREF & VT_ARRAY
    if (pSrc->vt & VT_BYREF || pSrc->vt & VT_ARRAY)
        return ar;

    switch (pSrc->vt)
    {
    case VT_BOOL:
        return ar << (WORD)V_BOOL(pSrc);

    case VT_UI1:
        return ar << pSrc->bVal;

    case VT_I2:
        return ar << (WORD)pSrc->iVal;

    case VT_I4:
        return ar << pSrc->lVal;

    case VT_CY:
        ar << pSrc->cyVal.Lo;
        return ar << pSrc->cyVal.Hi;

    case VT_R4:
        return ar << pSrc->fltVal;

    case VT_R8:
        return ar << pSrc->dblVal;

    case VT_DATE:
        return ar << pSrc->date;

    case VT_BSTR:
        {
            DWORD nLen = SysStringByteLen(pSrc->bstrVal);
            ar << nLen;
            if (nLen > 0)
                ar.Write(pSrc->bstrVal, nLen * sizeof(BYTE));

            return ar;
        }

    case VT_ERROR:
        return ar << pSrc->scode;

    case VT_DISPATCH:
    case VT_UNKNOWN:
        {
            LPPERSISTSTREAM pPersistStream;
            CArchiveStream stm(&ar);

            // QI for IPersistStream or IPeristStreamInit
            SCODE sc = pSrc->punkVal->QueryInterface(
                IID_IPersistStream, (void**)&pPersistStream);
#ifndef _AFX_NO_OCC_SUPPORT
            if (FAILED(sc))
                sc = pSrc->punkVal->QueryInterface(
                    IID_IPersistStreamInit, (void**)&pPersistStream);
#endif
            CheckError(sc);

            TRY
            {
                // Get and archive the CLSID (GUID)
                CLSID clsid;
                CheckError(pPersistStream->GetClassID(&clsid));
                ar << clsid.Data1;
                ar << clsid.Data2;
                ar << clsid.Data3;
                ar.Write(&clsid.Data4[0], sizeof clsid.Data4);

                // Always assume object is dirty
                CheckError(pPersistStream->Save(&stm, TRUE));
            }
            CATCH_ALL(e)
            {
                pPersistStream->Release();
                THROW_LAST();
            }
            END_CATCH_ALL
            pPersistStream->Release();
        }
        return ar;

    case VT_EMPTY:
    case VT_NULL:
        // do nothing
        return ar;

    default:
        ASSERT(FALSE);
        return ar;
    }
}

CArchive& AFXAPI operator>>(CArchive& ar, COleVariant& varSrc)
{
    LPVARIANT pSrc = &varSrc;

    // Free up current data if necessary
    if (pSrc->vt != VT_EMPTY)
        VariantClear(pSrc);
    ar >> pSrc->vt;

    // No support for VT_BYREF & VT_ARRAY
    if (pSrc->vt & VT_BYREF || pSrc->vt & VT_ARRAY)
        return ar;

    switch (pSrc->vt)
    {
    case VT_BOOL:
        return ar >> (WORD&)V_BOOL(pSrc);

    case VT_UI1:
        return ar >> pSrc->bVal;

    case VT_I2:
        return ar >> (WORD&)pSrc->iVal;

    case VT_I4:
        return ar >> pSrc->lVal;

    case VT_CY:
        ar >> pSrc->cyVal.Lo;
        return ar >> pSrc->cyVal.Hi;

    case VT_R4:
        return ar >> pSrc->fltVal;

    case VT_R8:
        return ar >> pSrc->dblVal;

    case VT_DATE:
        return ar >> pSrc->date;

    case VT_BSTR:
        {
            DWORD nLen;
            ar >> nLen;
            if (nLen > 0)
            {
                pSrc->bstrVal = SysAllocStringByteLen(NULL, nLen);
                if (pSrc->bstrVal == NULL)
                    AfxThrowMemoryException();
                ar.Read(pSrc->bstrVal, nLen * sizeof(BYTE));
            }
            else
                pSrc->bstrVal = NULL;

            return ar;
        }
        break;

    case VT_ERROR:
        return ar >> pSrc->scode;

    case VT_DISPATCH:
    case VT_UNKNOWN:
        {
            LPPERSISTSTREAM pPersistStream = NULL;
            CArchiveStream stm(&ar);

            // Retrieve the CLSID (GUID) and create an instance
            CLSID clsid;
            ar >> clsid.Data1;
            ar >> clsid.Data2;
            ar >> clsid.Data3;
            ar.Read(&clsid.Data4[0], sizeof clsid.Data4);

            // Create the object
            SCODE sc = CoCreateInstance(clsid, NULL, CLSCTX_ALL | CLSCTX_REMOTE_SERVER,
                pSrc->vt == VT_UNKNOWN ? IID_IUnknown : IID_IDispatch,
                (void**)&pSrc->punkVal);
            if (sc == E_INVALIDARG)
            {
                // may not support CLSCTX_REMOTE_SERVER, so try without
                sc = CoCreateInstance(clsid, NULL,
                    CLSCTX_ALL & ~CLSCTX_REMOTE_SERVER,
                    pSrc->vt == VT_UNKNOWN ? IID_IUnknown : IID_IDispatch,
                    (void**)&pSrc->punkVal);
            }
            CheckError(sc);

            TRY
            {
                // QI for IPersistStream or IPeristStreamInit
                sc = pSrc->punkVal->QueryInterface(
                    IID_IPersistStream, (void**)&pPersistStream);
#ifndef _AFX_NO_OCC_SUPPORT
                if (FAILED(sc))
                    sc = pSrc->punkVal->QueryInterface(
                        IID_IPersistStreamInit, (void**)&pPersistStream);
#endif
                CheckError(sc);

                // Always assumes object is dirty
                CheckError(pPersistStream->Load(&stm));
            }
            CATCH_ALL(e)
            {
                // Clean up
                if (pPersistStream != NULL)
                    pPersistStream->Release();

                pSrc->punkVal->Release();
                THROW_LAST();
            }
            END_CATCH_ALL

            pPersistStream->Release();
        }
        return ar;

    case VT_EMPTY:
    case VT_NULL:
        // do nothing
        return ar;

    default:
        ASSERT(FALSE);
        return ar;
    }
}

/////////////////////////////////////////////////////////////////////////////
// COleVariant Helpers

#if _MSC_VER >= 1100
template <> void AFXAPI ConstructElements<COleVariant> (COleVariant* pElements, int nCount)
#else
void AFXAPI ConstructElements(COleVariant* pElements, int nCount)
#endif
{
    ASSERT(nCount == 0 ||
        AfxIsValidAddress(pElements, nCount * sizeof(COleVariant)));

    for (; nCount--; ++pElements)
        new(pElements) COleVariant;
}

#if _MSC_VER >= 1100
template <> void AFXAPI DestructElements<COleVariant> (COleVariant* pElements, int nCount)
#else
void AFXAPI DestructElements(COleVariant* pElements, int nCount)
#endif
{
    ASSERT(nCount == 0 ||
        AfxIsValidAddress(pElements, nCount * sizeof(COleVariant)));

    for (; nCount--; ++pElements)
        pElements->~COleVariant();
}

#if _MSC_VER >= 1100
template <> void AFXAPI CopyElements<COleVariant> (COleVariant* pDest, const COleVariant* pSrc, int nCount)
#else
void AFXAPI CopyElements(COleVariant* pDest, const COleVariant* pSrc, int nCount)
#endif
{
    ASSERT(nCount == 0 ||
        AfxIsValidAddress(pDest, nCount * sizeof(COleVariant)));
    ASSERT(nCount == 0 ||
        AfxIsValidAddress(pSrc, nCount * sizeof(COleVariant)));

    for (; nCount--; ++pDest, ++pSrc)
        *pDest = *pSrc;
}

#if _MSC_VER >= 1100
template <> void AFXAPI SerializeElements<COleVariant> (CArchive& ar, COleVariant* pElements, int nCount)
#else
void AFXAPI SerializeElements(CArchive& ar, COleVariant* pElements, int nCount)
#endif
{
    ASSERT(nCount == 0 ||
        AfxIsValidAddress(pElements, nCount * sizeof(COleVariant)));

    if (ar.IsStoring())
    {
        for (; nCount--; ++pElements)
            ar << *pElements;
    }
    else
    {
        for (; nCount--; ++pElements)
            ar >> *pElements;
    }
}

#ifdef _DEBUG
#if _MSC_VER >= 1100
template <> void AFXAPI DumpElements<COleVariant> (CDumpContext& dc, const COleVariant* pElements, int nCount)
#else
void AFXAPI DumpElements(CDumpContext& dc, const COleVariant* pElements, int nCount)
#endif
{
    for (; nCount--; ++pElements)
        dc << *pElements;
}
#endif // _DEBUG

#if _MSC_VER >= 1100
template<> UINT AFXAPI HashKey<const struct tagVARIANT&> (const struct tagVARIANT& var)
#else
UINT AFXAPI HashKey(const struct tagVARIANT& var)
#endif
{
    switch (var.vt)
    {
    case VT_EMPTY:
    case VT_NULL:
        return 0;
    case VT_I2:
#if _MSC_VER >= 1100
        return HashKey<DWORD>((DWORD)var.iVal);
#else
        return HashKey((DWORD)var.iVal);
#endif
    case VT_I4:
#if _MSC_VER >= 1100
        return HashKey<DWORD>((DWORD)var.lVal);
#else
        return HashKey((DWORD)var.lVal);
#endif
    case VT_R4:
        return (UINT)(var.fltVal / 16);
    case VT_R8:
    case VT_CY:
        return (UINT)(var.dblVal / 16);
    case VT_BOOL:
#if _MSC_VER >= 1100
        return HashKey<DWORD>((DWORD)V_BOOL(&var));
#else
        return HashKey((DWORD)V_BOOL(&var));
#endif
    case VT_ERROR:
#if _MSC_VER >= 1100
        return HashKey<DWORD>((DWORD)var.scode);
#else
        return HashKey((DWORD)var.scode);
#endif
    case VT_DATE:
        return (UINT)(var.date / 16);
    case VT_BSTR:
#if _MSC_VER >= 1100
        return HashKey<LPCOLESTR>(var.bstrVal);
#else
        return HashKey((LPCOLESTR)var.bstrVal);
#endif
    case VT_DISPATCH:
    case VT_UNKNOWN:
#if _MSC_VER >= 1100
        return HashKey<DWORD>((DWORD)var.punkVal);
#else
        return HashKey((DWORD)var.punkVal);
#endif

    default:
        // No support for VT_BYREF, VT_ARRAY, VT_VARIANT, VT_DECIMAL, & VT_UI1
        ASSERT(FALSE);

        // Fall through
    }

    return 0;
}

static void PASCAL CheckError(SCODE sc)
{
    if (FAILED(sc))
    {
        if (sc == E_OUTOFMEMORY)
            AfxThrowMemoryException();
        else
            AfxThrowOleException(sc);
    }
}

static BOOL PASCAL CompareSafeArrays(SAFEARRAY* parray1, SAFEARRAY* parray2)
{
    BOOL bCompare = FALSE;

    // If one is NULL they must both be NULL to compare
    if (parray1 == NULL || parray2 == NULL)
    {
        return parray1 == parray2;
    }

    // Dimension must match and if 0, then arrays compare
    DWORD dwDim1 = ::SafeArrayGetDim(parray1);
    DWORD dwDim2 = ::SafeArrayGetDim(parray2);
    if (dwDim1 != dwDim2)
        return FALSE;
    else if (dwDim1 == 0)
        return TRUE;

    // Element size must match
    DWORD dwSize1 = ::SafeArrayGetElemsize(parray1);
    DWORD dwSize2 = ::SafeArrayGetElemsize(parray2);
    if (dwSize1 != dwSize2)
        return FALSE;

    long* pLBound1 = NULL;
    long* pLBound2 = NULL;
    long* pUBound1 = NULL;
    long* pUBound2 = NULL;

    void* pData1 = NULL;
    void* pData2 = NULL;

    TRY
    {
        // Bounds must match
        pLBound1 = new long[dwDim1];
        pLBound2 = new long[dwDim2];
        pUBound1 = new long[dwDim1];
        pUBound2 = new long[dwDim2];

        size_t nTotalElements = 1;

        // Get and compare bounds
        for (DWORD dwIndex = 0; dwIndex < dwDim1; dwIndex++)
        {
            CheckError(::SafeArrayGetLBound(
                parray1, dwIndex+1, &pLBound1[dwIndex]));
            CheckError(::SafeArrayGetLBound(
                parray2, dwIndex+1, &pLBound2[dwIndex]));
            CheckError(::SafeArrayGetUBound(
                parray1, dwIndex+1, &pUBound1[dwIndex]));
            CheckError(::SafeArrayGetUBound(
                parray2, dwIndex+1, &pUBound2[dwIndex]));

            // Check the magnitude of each bound
            if (pUBound1[dwIndex] - pLBound1[dwIndex] !=
                pUBound2[dwIndex] - pLBound2[dwIndex])
            {
                delete[] pLBound1;
                delete[] pLBound2;
                delete[] pUBound1;
                delete[] pUBound2;

                return FALSE;
            }

            // Increment the element count
            nTotalElements *= pUBound1[dwIndex] - pLBound1[dwIndex] + 1;
        }

        // Access the data
        CheckError(::SafeArrayAccessData(parray1, &pData1));
        CheckError(::SafeArrayAccessData(parray2, &pData2));

        // Calculate the number of bytes of data and compare
        size_t nSize = nTotalElements * dwSize1;
        int nOffset = memcmp(pData1, pData2, nSize);
        bCompare = nOffset == 0;

        // Release the array locks
        CheckError(::SafeArrayUnaccessData(parray1));
        CheckError(::SafeArrayUnaccessData(parray2));
    }
    CATCH_ALL(e)
    {
        // Clean up bounds arrays
        delete[] pLBound1;
        delete[] pLBound2;
        delete[] pUBound1;
        delete[] pUBound2;

        // Release the array locks
        if (pData1 != NULL)
            CheckError(::SafeArrayUnaccessData(parray1));
        if (pData2 != NULL)
            CheckError(::SafeArrayUnaccessData(parray2));

        THROW_LAST();
    }
    END_CATCH_ALL

    // Clean up bounds arrays
    delete[] pLBound1;
    delete[] pLBound2;
    delete[] pUBound1;
    delete[] pUBound2;

    return bCompare;
}

static void PASCAL CreateOneDimArray(VARIANT& varSrc, DWORD dwSize)
{
    UINT nDim;

    // Clear VARIANT and re-create SafeArray if necessary
    if (varSrc.vt != (VT_UI1 | VT_ARRAY) ||
        (nDim = ::SafeArrayGetDim(varSrc.parray)) != 1)
    {
        VERIFY(::VariantClear(&varSrc) == NOERROR);
        varSrc.vt = VT_UI1 | VT_ARRAY;

        SAFEARRAYBOUND bound;
        bound.cElements = dwSize;
        bound.lLbound = 0;
        varSrc.parray = ::SafeArrayCreate(VT_UI1, 1, &bound);
        if (varSrc.parray == NULL)
            AfxThrowMemoryException();
    }
    else
    {
        // Must redimension array if necessary
        long lLower, lUpper;
        CheckError(::SafeArrayGetLBound(varSrc.parray, 1, &lLower));
        CheckError(::SafeArrayGetUBound(varSrc.parray, 1, &lUpper));

        // Upper bound should always be greater than lower bound
        long lSize = lUpper - lLower;
        if (lSize < 0)
        {
            ASSERT(FALSE);
            lSize = 0;

        }

        if ((DWORD)lSize != dwSize)
        {
            SAFEARRAYBOUND bound;
            bound.cElements = dwSize;
            bound.lLbound = lLower;
            CheckError(::SafeArrayRedim(varSrc.parray, &bound));
        }
    }
}

static void PASCAL CopyBinaryData(SAFEARRAY* parray, const void* pvSrc, DWORD dwSize)
{
    // Access the data, copy it and unaccess it.
    void* pDest;
    CheckError(::SafeArrayAccessData(parray, &pDest));
    memcpy(pDest, pvSrc, dwSize);
    CheckError(::SafeArrayUnaccessData(parray));
}

/////////////////////////////////////////////////////////////////////////////
// COleCurrency class helpers

// Return the highest order bit composing dwTarget in wBit
#define HI_BIT(dwTarget, wBit) \
    do \
    { \
        if (dwTarget != 0) \
            for (wBit = 32; (dwTarget & (0x00000001 << wBit-1)) == 0; wBit--);\
        else \
            wBit = 0; \
    } while (0)

// Left shift an (assumed unsigned) currency by wBits
#define LSHIFT_UCUR(cur, wBits) \
    do \
    { \
        for (WORD wTempBits = wBits; wTempBits > 0; wTempBits--) \
        { \
            cur.m_cur.Hi = ((DWORD)cur.m_cur.Hi << 1); \
            cur.m_cur.Hi |= (cur.m_cur.Lo & 0x80000000) >> 31; \
            cur.m_cur.Lo = cur.m_cur.Lo << 1; \
        } \
    } while (0)

// Right shift an (assumed unsigned) currency by wBits
#define RSHIFT_UCUR(cur, wBits) \
    do \
    { \
        for (WORD wTempBits = wBits; wTempBits > 0; wTempBits--) \
        { \
            cur.m_cur.Lo = cur.m_cur.Lo >> 1; \
            cur.m_cur.Lo |= (cur.m_cur.Hi & 0x00000001) << 31; \
            cur.m_cur.Hi = ((DWORD)cur.m_cur.Hi >> 1); \
        } \
    } while (0)

/////////////////////////////////////////////////////////////////////////////
// COleCurrency class (internally currency is 8-byte int scaled by 10,000)

COleCurrency::COleCurrency(long nUnits, long nFractionalUnits)
{
    SetCurrency(nUnits, nFractionalUnits);
    SetStatus(valid);
}

const COleCurrency& COleCurrency::operator=(CURRENCY cySrc)
{
    m_cur = cySrc;
    SetStatus(valid);
    return *this;
}

const COleCurrency& COleCurrency::operator=(const COleCurrency& curSrc)
{
    m_cur = curSrc.m_cur;
    m_status = curSrc.m_status;
    return *this;
}

const COleCurrency& COleCurrency::operator=(const VARIANT& varSrc)
{
    if (varSrc.vt != VT_CY)
    {
        TRY
        {
            COleVariant varTemp(varSrc);
            varTemp.ChangeType(VT_CY);
            m_cur = varTemp.cyVal;
            SetStatus(valid);
        }
        // Catch COleException from ChangeType, but not CMemoryException
        CATCH(COleException, e)
        {
            // Not able to convert VARIANT to CURRENCY
            m_cur.Hi = 0;
            m_cur.Lo = 0;
            SetStatus(invalid);
            DELETE_EXCEPTION(e);
        }
        END_CATCH
    }
    else
    {
        m_cur = varSrc.cyVal;
        SetStatus(valid);
    }

    return *this;
}

BOOL COleCurrency::operator<(const COleCurrency& cur) const
{
    ASSERT(GetStatus() == valid);
    ASSERT(cur.GetStatus() == valid);

    return((m_cur.Hi == cur.m_cur.Hi) ?
        (m_cur.Lo < cur.m_cur.Lo) : (m_cur.Hi < cur.m_cur.Hi));
}

BOOL COleCurrency::operator>(const COleCurrency& cur) const
{
    ASSERT(GetStatus() == valid);
    ASSERT(cur.GetStatus() == valid);

    return((m_cur.Hi == cur.m_cur.Hi) ?
        (m_cur.Lo > cur.m_cur.Lo) : (m_cur.Hi > cur.m_cur.Hi));
}

BOOL COleCurrency::operator<=(const COleCurrency& cur) const
{
    ASSERT(GetStatus() == valid);
    ASSERT(cur.GetStatus() == valid);

    return((m_cur.Hi == cur.m_cur.Hi) ?
        (m_cur.Lo <= cur.m_cur.Lo) : (m_cur.Hi < cur.m_cur.Hi));
}

BOOL COleCurrency::operator>=(const COleCurrency& cur) const
{
    ASSERT(GetStatus() == valid);
    ASSERT(cur.GetStatus() == valid);

    return((m_cur.Hi == cur.m_cur.Hi) ?
        (m_cur.Lo >= cur.m_cur.Lo) : (m_cur.Hi > cur.m_cur.Hi));
}

COleCurrency COleCurrency::operator+(const COleCurrency& cur) const
{
    COleCurrency curResult;

    // If either operand Null, result Null
    if (GetStatus() == null || cur.GetStatus() == null)
    {
        curResult.SetStatus(null);
        return curResult;
    }

    // If either operand Invalid, result Invalid
    if (GetStatus() == invalid || cur.GetStatus() == invalid)
    {
        curResult.SetStatus(invalid);
        return curResult;
    }

    // Add separate CURRENCY components
    curResult.m_cur.Hi = m_cur.Hi + cur.m_cur.Hi;
    curResult.m_cur.Lo = m_cur.Lo + cur.m_cur.Lo;

    // Increment Hi if Lo overflows
    if (m_cur.Lo > curResult.m_cur.Lo)
        curResult.m_cur.Hi++;

    // Overflow if operands same sign and result sign different
    if (!((m_cur.Hi ^ cur.m_cur.Hi) & 0x80000000) &&
        ((m_cur.Hi ^ curResult.m_cur.Hi) & 0x80000000))
    {
        curResult.SetStatus(invalid);
    }

    return curResult;
}

COleCurrency COleCurrency::operator-(const COleCurrency& cur) const
{
    COleCurrency curResult;

    // If either operand Null, result Null
    if (GetStatus() == null || cur.GetStatus() == null)
    {
        curResult.SetStatus(null);
        return curResult;
    }

    // If either operand Invalid, result Invalid
    if (GetStatus() == invalid || cur.GetStatus() == invalid)
    {
        curResult.SetStatus(invalid);
        return curResult;
    }

    // Subtract separate CURRENCY components
    curResult.m_cur.Hi = m_cur.Hi - cur.m_cur.Hi;
    curResult.m_cur.Lo = m_cur.Lo - cur.m_cur.Lo;

    // Decrement Hi if Lo overflows
    if (m_cur.Lo < curResult.m_cur.Lo)
        curResult.m_cur.Hi--;

    // Overflow if operands not same sign and result not same sign
    if (((m_cur.Hi ^ cur.m_cur.Hi) & 0x80000000) &&
        ((m_cur.Hi ^ curResult.m_cur.Hi) & 0x80000000))
    {
        curResult.SetStatus(invalid);
    }

    return curResult;
}

COleCurrency COleCurrency::operator-() const
{
    // If operand not Valid, just return
    if (!GetStatus() == valid)
        return *this;

    COleCurrency curResult;

    // Negating MIN_CURRENCY,will set invalid
    if (m_cur.Hi == 0x80000000 && m_cur.Lo == 0x00000000)
    {
        curResult.SetStatus(invalid);
    }

    curResult.m_cur.Hi = ~m_cur.Hi;
    curResult.m_cur.Lo = -(long)m_cur.Lo;

    // If cy was -1 make sure Hi correctly set
    if (curResult.m_cur.Lo == 0)
        curResult.m_cur.Hi++;

    return curResult;
}

COleCurrency COleCurrency::operator*(long nOperand) const
{
    // If operand not Valid, just return
    if (!GetStatus() == valid)
        return *this;

    COleCurrency curResult(m_cur);
    DWORD nTempOp;

    // Return now if one operand is 0 (optimization)
    if ((m_cur.Hi == 0x00000000 && m_cur.Lo == 0x00000000) || nOperand == 0)
    {
        curResult.m_cur.Hi = 0;
        curResult.m_cur.Lo = 0;
        return curResult;
    }

    // Handle only valid case of multiplying MIN_CURRENCY
    if (m_cur.Hi == 0x80000000 && m_cur.Lo == 0x00000000 && nOperand == 1)
        return curResult;

    // Compute absolute values.
    if (m_cur.Hi < 0)
        curResult = -curResult;

    nTempOp = labs(nOperand);

    // Check for overflow
    if (curResult.m_cur.Hi != 0)
    {
        WORD wHiBitCur, wHiBitOp;
        HI_BIT(curResult.m_cur.Hi, wHiBitCur);
        HI_BIT(nTempOp, wHiBitOp);

        // 63-bit limit on result. (n bits)*(m bits) = (n+m-1) bits.
        if (wHiBitCur + wHiBitOp - 1 > 63)
        {
            // Overflow!
            curResult.SetStatus(invalid);

            // Set to maximum negative value
            curResult.m_cur.Hi = 0x80000000;
            curResult.m_cur.Lo = 0x00000000;

            return curResult;
        }
    }

    // Break up into WORDs
    WORD wCy4, wCy3, wCy2, wCy1, wL2, wL1;

    wCy4 = HIWORD(curResult.m_cur.Hi);
    wCy3 = LOWORD(curResult.m_cur.Hi);
    wCy2 = HIWORD(curResult.m_cur.Lo);
    wCy1 = LOWORD(curResult.m_cur.Lo);

    wL2 = HIWORD(nTempOp);
    wL1 = LOWORD(nTempOp);

    // Multiply each set of WORDs
    DWORD dwRes11, dwRes12, dwRes21, dwRes22;
    DWORD dwRes31, dwRes32, dwRes41;  // Don't need dwRes42

    dwRes11 = wCy1 * wL1;
    dwRes12 = wCy1 * wL2;
    dwRes21 = wCy2 * wL1;
    dwRes22 = wCy2 * wL2;

    dwRes31 = wCy3 * wL1;
    dwRes32 = wCy3 * wL2;
    dwRes41 = wCy4 * wL1;

    // Add up low order pieces
    dwRes11 += dwRes12<<16;
    curResult.m_cur.Lo = dwRes11 + (dwRes21<<16);
    curResult.m_cur.Hi = 0;

    // Check if carry required
    if (dwRes11 < dwRes12<<16)
        curResult.m_cur.Hi++;
    if ((DWORD)curResult.m_cur.Lo < dwRes11)
        curResult.m_cur.Hi++;

    // Add up the high order pieces
    curResult.m_cur.Hi += dwRes31 + (dwRes32<<16) + (dwRes41<<16) +
        dwRes22 + (dwRes12>>16) + (dwRes21>>16);

    // Compute result sign
    if ((m_cur.Hi ^ nOperand) & 0x80000000)
        curResult = -curResult;

    return curResult;
}

COleCurrency COleCurrency::operator/(long nOperand) const
{
    // If operand not Valid, just return
    if (!GetStatus() == valid)
        return *this;

    COleCurrency curTemp(m_cur);
    DWORD nTempOp;

    // Check for divide by 0
    if (nOperand == 0)
    {
        curTemp.SetStatus(invalid);

        // Set to maximum negative value
        curTemp.m_cur.Hi = 0x80000000;
        curTemp.m_cur.Lo = 0x00000000;

        return curTemp;
    }

    // Compute absolute values
    if (curTemp.m_cur.Hi < 0)
        curTemp = -curTemp;

    nTempOp = labs(nOperand);

    // Optimization - division is simple if Hi == 0
    if (curTemp.m_cur.Hi == 0x0000)
    {
        curTemp.m_cur.Lo = m_cur.Lo / nTempOp;

        // Compute result sign
        if ((m_cur.Hi ^ nOperand) & 0x80000000)
            curTemp = -curTemp;

        return curTemp;
    }

    // Now curTemp represents remainder
    COleCurrency curResult; // Initializes to zero
    COleCurrency curTempResult;
    COleCurrency curOperand;

    curOperand.m_cur.Lo = nTempOp;

    WORD wHiBitRem;
    WORD wScaleOp;

    // Quit if remainder can be truncated
    while (curTemp >= curOperand)
    {
        // Scale up and divide Hi portion
        HI_BIT(curTemp.m_cur.Hi, wHiBitRem);

        if (wHiBitRem != 0)
            wHiBitRem += 32;
        else
            HI_BIT(curTemp.m_cur.Lo, wHiBitRem);

        WORD wShift = (WORD)(64 - wHiBitRem);
        LSHIFT_UCUR(curTemp, wShift);

        // If Operand bigger than Hi it must be scaled
        wScaleOp = (WORD)((nTempOp > (DWORD)curTemp.m_cur.Hi) ? 1 : 0);

        // Perform synthetic division
        curTempResult.m_cur.Hi =
            (DWORD)curTemp.m_cur.Hi / (nTempOp >> wScaleOp);

        // Scale back to get correct result and remainder
        RSHIFT_UCUR(curTemp, wShift);
        wShift = (WORD)(wShift - wScaleOp);
        RSHIFT_UCUR(curTempResult, wShift);

        // Now calculate result and remainder
        curResult += curTempResult;
        curTemp -= curTempResult * nTempOp;
    }

    // Compute result sign
    if ((m_cur.Hi ^ nOperand) & 0x80000000)
        curResult = -curResult;

    return curResult;
}

void COleCurrency::SetCurrency(long nUnits, long nFractionalUnits)
{
    COleCurrency curUnits;              // Initializes to 0
    COleCurrency curFractionalUnits;    // Initializes to 0

    // Set temp currency value to Units (need to multiply by 10,000)
    curUnits.m_cur.Lo = (DWORD)labs(nUnits);
    curUnits = curUnits * 10000;
    if (nUnits < 0)
        curUnits = -curUnits;

    curFractionalUnits.m_cur.Lo = (DWORD)labs(nFractionalUnits);
    if (nFractionalUnits < 0)
        curFractionalUnits = -curFractionalUnits;

    // Now add together Units and FractionalUnits
    *this = curUnits + curFractionalUnits;

    SetStatus(valid);
}

BOOL COleCurrency::ParseCurrency(LPCTSTR lpszCurrency,
    DWORD dwFlags,  LCID lcid)
{
    USES_CONVERSION;
    CString strCurrency = lpszCurrency;

    SCODE sc;
    if ( FAILED(sc = VarCyFromStr((LPOLESTR)T2COLE(strCurrency),
        lcid, dwFlags, &m_cur)))
    {
        if (sc == DISP_E_TYPEMISMATCH)
        {
            // Can't convert string to CURRENCY, set 0 & invalid
            m_cur.Hi = 0x00000000;
            m_cur.Lo = 0x00000000;
            SetStatus(invalid);
            return FALSE;
        }
        else if (sc == DISP_E_OVERFLOW)
        {
            // Can't convert string to CURRENCY, set max neg & invalid
            m_cur.Hi = 0x80000000;
            m_cur.Lo = 0x00000000;
            SetStatus(invalid);
            return FALSE;
        }
        else
        {
            TRACE0("\nCOleCurrency VarCyFromStr call failed.\n\t");
            if (sc == E_OUTOFMEMORY)
                AfxThrowMemoryException();
            else
                AfxThrowOleException(sc);
        }
    }

    SetStatus(valid);
    return TRUE;
}

CString COleCurrency::Format(DWORD dwFlags, LCID lcid) const
{
    USES_CONVERSION;
    CString strCur;

    // If null, return empty string
    if (GetStatus() == null)
        return strCur;

    // If invalid, return Currency resource string
    if (GetStatus() == invalid)
    {
        VERIFY(strCur.LoadString(AFX_IDS_INVALID_CURRENCY));
        return strCur;
    }

    COleVariant var;
    // Don't need to trap error. Should not fail due to type mismatch
    CheckError(VarBstrFromCy(m_cur, lcid, dwFlags, &V_BSTR(&var)));
    var.vt = VT_BSTR;
    return OLE2CT(V_BSTR(&var));
}


// serialization
#ifdef _DEBUG
CDumpContext& AFXAPI operator<<(CDumpContext& dc, COleCurrency curSrc)
{
    dc << "\nCOleCurrency Object:";
    dc << "\n\tm_status = " << (long)curSrc.m_status;

    COleVariant var(curSrc);
    var.ChangeType(VT_CY);
    return dc << "\n\tCurrency = " << (LPCTSTR)var.bstrVal;
}
#endif // _DEBUG

CArchive& AFXAPI operator<<(CArchive& ar, COleCurrency curSrc)
{
    ar << (long)curSrc.m_status;
    ar << curSrc.m_cur.Hi;
    return ar << curSrc.m_cur.Lo;
}

CArchive& AFXAPI operator>>(CArchive& ar, COleCurrency& curSrc)
{
    ar >> (long&)curSrc.m_status;
    ar >> curSrc.m_cur.Hi;
    return ar >> curSrc.m_cur.Lo;
}


/////////////////////////////////////////////////////////////////////////////
// COleDateTime class HELPER definitions

// Verifies will fail if the needed buffer size is too large
#define MAX_TIME_BUFFER_SIZE    128         // matches that in timecore.cpp
#define MIN_DATE                (-657434L)  // about year 100
#define MAX_DATE                2958465L    // about year 9999

// Half a second, expressed in days
#define HALF_SECOND  (1.0/172800.0)

// One-based array of days in year at month start
static int rgMonthDays[13] =
    {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365};

static BOOL OleDateFromTm(WORD wYear, WORD wMonth, WORD wDay,
    WORD wHour, WORD wMinute, WORD wSecond, DATE& dtDest);
static BOOL TmFromOleDate(DATE dtSrc, struct tm& tmDest);
static void TmConvertToStandardFormat(struct tm& tmSrc);
static double DoubleFromDate(DATE dt);
static DATE DateFromDouble(double dbl);

/////////////////////////////////////////////////////////////////////////////
// COleDateTime class

COleDateTime PASCAL COleDateTime::GetCurrentTime()
{
    return COleDateTime(::time(NULL));
}

int COleDateTime::GetYear() const
{
    struct tm tmTemp;

    if (GetStatus() == valid && TmFromOleDate(m_dt, tmTemp))
        return tmTemp.tm_year;
    else
        return AFX_OLE_DATETIME_ERROR;
}

int COleDateTime::GetMonth() const
{
    struct tm tmTemp;

    if (GetStatus() == valid && TmFromOleDate(m_dt, tmTemp))
        return tmTemp.tm_mon;
    else
        return AFX_OLE_DATETIME_ERROR;
}

int COleDateTime::GetDay() const
{
    struct tm tmTemp;

    if (GetStatus() == valid && TmFromOleDate(m_dt, tmTemp))
        return tmTemp.tm_mday;
    else
        return AFX_OLE_DATETIME_ERROR;
}

int COleDateTime::GetHour() const
{
    struct tm tmTemp;

    if (GetStatus() == valid && TmFromOleDate(m_dt, tmTemp))
        return tmTemp.tm_hour;
    else
        return AFX_OLE_DATETIME_ERROR;
}

int COleDateTime::GetMinute() const
{
    struct tm tmTemp;

    if (GetStatus() == valid && TmFromOleDate(m_dt, tmTemp))
        return tmTemp.tm_min;
    else
        return AFX_OLE_DATETIME_ERROR;
}

int COleDateTime::GetSecond() const
{
    struct tm tmTemp;

    if (GetStatus() == valid && TmFromOleDate(m_dt, tmTemp))
        return tmTemp.tm_sec;
    else
        return AFX_OLE_DATETIME_ERROR;
}

int COleDateTime::GetDayOfWeek() const
{
    struct tm tmTemp;

    if (GetStatus() == valid && TmFromOleDate(m_dt, tmTemp))
        return tmTemp.tm_wday;
    else
        return AFX_OLE_DATETIME_ERROR;
}

int COleDateTime::GetDayOfYear() const
{
    struct tm tmTemp;

    if (GetStatus() == valid && TmFromOleDate(m_dt, tmTemp))
        return tmTemp.tm_yday;
    else
        return AFX_OLE_DATETIME_ERROR;
}

const COleDateTime& COleDateTime::operator=(const VARIANT& varSrc)
{
    if (varSrc.vt != VT_DATE)
    {
        TRY
        {
            COleVariant varTemp(varSrc);
            varTemp.ChangeType(VT_DATE);
            m_dt = varTemp.date;
            SetStatus(valid);
        }
        // Catch COleException from ChangeType, but not CMemoryException
        CATCH(COleException, e)
        {
            // Not able to convert VARIANT to DATE
            DELETE_EXCEPTION(e);
            m_dt = 0;
            SetStatus(invalid);
        }
        END_CATCH
    }
    else
    {
        m_dt = varSrc.date;
        SetStatus(valid);
    }

    return *this;
}

const COleDateTime& COleDateTime::operator=(DATE dtSrc)
{
    m_dt = dtSrc;
    SetStatus(valid);

    return *this;
}

const COleDateTime& COleDateTime::operator=(const time_t& timeSrc)
{
    // Convert time_t to struct tm
    tm *ptm = localtime(&timeSrc);

    if (ptm != NULL)
    {
        m_status = OleDateFromTm((WORD)(ptm->tm_year + 1900),
            (WORD)(ptm->tm_mon + 1), (WORD)ptm->tm_mday,
            (WORD)ptm->tm_hour, (WORD)ptm->tm_min,
            (WORD)ptm->tm_sec, m_dt) ? valid : invalid;
    }
    else
    {
        // Local time must have failed (timsSrc before 1/1/70 12am)
        SetStatus(invalid);
        ASSERT(FALSE);
    }

    return *this;
}

const COleDateTime& COleDateTime::operator=(const SYSTEMTIME& systimeSrc)
{
    m_status = OleDateFromTm(systimeSrc.wYear, systimeSrc.wMonth,
        systimeSrc.wDay, systimeSrc.wHour, systimeSrc.wMinute,
        systimeSrc.wSecond, m_dt) ? valid : invalid;

    return *this;
}

const COleDateTime& COleDateTime::operator=(const FILETIME& filetimeSrc)
{
    // Assume UTC FILETIME, so convert to LOCALTIME
    FILETIME filetimeLocal;
    if (!FileTimeToLocalFileTime( &filetimeSrc, &filetimeLocal))
    {
#ifdef _DEBUG
        DWORD dwError = GetLastError();
        TRACE1("\nFileTimeToLocalFileTime failed. Error = %lu.\n\t", dwError);
#endif // _DEBUG
        m_status = invalid;
    }
    else
    {
        // Take advantage of SYSTEMTIME -> FILETIME conversion
        SYSTEMTIME systime;
        m_status = FileTimeToSystemTime(&filetimeLocal, &systime) ?
            valid : invalid;

        // At this point systime should always be valid, but...
        if (GetStatus() == valid)
        {
            m_status = OleDateFromTm(systime.wYear, systime.wMonth,
                systime.wDay, systime.wHour, systime.wMinute,
                systime.wSecond, m_dt) ? valid : invalid;
        }
    }

    return *this;
}

BOOL COleDateTime::operator<(const COleDateTime& date) const
{
    ASSERT(GetStatus() == valid);
    ASSERT(date.GetStatus() == valid);

    // Handle negative dates
    return DoubleFromDate(m_dt) < DoubleFromDate(date.m_dt);
}

BOOL COleDateTime::operator>(const COleDateTime& date) const
{   ASSERT(GetStatus() == valid);
    ASSERT(date.GetStatus() == valid);

    // Handle negative dates
    return DoubleFromDate(m_dt) > DoubleFromDate(date.m_dt);
}

BOOL COleDateTime::operator<=(const COleDateTime& date) const
{
    ASSERT(GetStatus() == valid);
    ASSERT(date.GetStatus() == valid);

    // Handle negative dates
    return DoubleFromDate(m_dt) <= DoubleFromDate(date.m_dt);
}

BOOL COleDateTime::operator>=(const COleDateTime& date) const
{
    ASSERT(GetStatus() == valid);
    ASSERT(date.GetStatus() == valid);

    // Handle negative dates
    return DoubleFromDate(m_dt) >= DoubleFromDate(date.m_dt);
}

COleDateTime COleDateTime::operator+(const COleDateTimeSpan& dateSpan) const
{
    COleDateTime dateResult;    // Initializes m_status to valid

    // If either operand NULL, result NULL
    if (GetStatus() == null || dateSpan.GetStatus() == null)
    {
        dateResult.SetStatus(null);
        return dateResult;
    }

    // If either operand invalid, result invalid
    if (GetStatus() == invalid || dateSpan.GetStatus() == invalid)
    {
        dateResult.SetStatus(invalid);
        return dateResult;
    }

    // Compute the actual date difference by adding underlying dates
    dateResult = DateFromDouble(DoubleFromDate(m_dt) + dateSpan.m_span);

    // Validate within range
    dateResult.CheckRange();

    return dateResult;
}

COleDateTime COleDateTime::operator-(const COleDateTimeSpan& dateSpan) const
{
    COleDateTime dateResult;    // Initializes m_status to valid

    // If either operand NULL, result NULL
    if (GetStatus() == null || dateSpan.GetStatus() == null)
    {
        dateResult.SetStatus(null);
        return dateResult;
    }

    // If either operand invalid, result invalid
    if (GetStatus() == invalid || dateSpan.GetStatus() == invalid)
    {
        dateResult.SetStatus(invalid);
        return dateResult;
    }

    // Compute the actual date difference by subtracting underlying dates
    dateResult = DateFromDouble(DoubleFromDate(m_dt) - dateSpan.m_span);

    // Validate within range
    dateResult.CheckRange();

    return dateResult;
}

COleDateTimeSpan COleDateTime::operator-(const COleDateTime& date) const
{
    COleDateTimeSpan spanResult;

    // If either operand NULL, result NULL
    if (GetStatus() == null || date.GetStatus() == null)
    {
        spanResult.SetStatus(COleDateTimeSpan::null);
        return spanResult;
    }

    // If either operand invalid, result invalid
    if (GetStatus() == invalid || date.GetStatus() == invalid)
    {
        spanResult.SetStatus(COleDateTimeSpan::invalid);
        return spanResult;
    }

    // Return result (span can't be invalid, so don't check range)
    return DoubleFromDate(m_dt) - DoubleFromDate(date.m_dt);
}

int COleDateTime::SetDateTime(int nYear, int nMonth, int nDay,
    int nHour, int nMin, int nSec)
{
    return m_status = OleDateFromTm((WORD)nYear, (WORD)nMonth,
        (WORD)nDay, (WORD)nHour, (WORD)nMin, (WORD)nSec, m_dt) ?
        valid : invalid;
}

BOOL COleDateTime::ParseDateTime(LPCTSTR lpszDate, DWORD dwFlags, LCID lcid)
{
    USES_CONVERSION;
    CString strDate = lpszDate;

    SCODE sc;
    if (FAILED(sc = VarDateFromStr((LPOLESTR)T2COLE(strDate), lcid,
        dwFlags, &m_dt)))
    {
        if (sc == DISP_E_TYPEMISMATCH)
        {
            // Can't convert string to date, set 0 and invalidate
            m_dt = 0;
            SetStatus(invalid);
            return FALSE;
        }
        else if (sc == DISP_E_OVERFLOW)
        {
            // Can't convert string to date, set -1 and invalidate
            m_dt = -1;
            SetStatus(invalid);
            return FALSE;
        }
        else
        {
            TRACE0("\nCOleDateTime VarDateFromStr call failed.\n\t");
            if (sc == E_OUTOFMEMORY)
                AfxThrowMemoryException();
            else
                AfxThrowOleException(sc);
        }
    }

    SetStatus(valid);
    return TRUE;
}

CString COleDateTime::Format(DWORD dwFlags, LCID lcid) const
{
    USES_CONVERSION;
    CString strDate;

    // If null, return empty string
    if (GetStatus() == null)
        return strDate;

    // If invalid, return DateTime resource string
    if (GetStatus() == invalid)
    {
        VERIFY(strDate.LoadString(AFX_IDS_INVALID_DATETIME));
        return strDate;
    }

    COleVariant var;
    // Don't need to trap error. Should not fail due to type mismatch
    CheckError(VarBstrFromDate(m_dt, lcid, dwFlags, &V_BSTR(&var)));
    var.vt = VT_BSTR;
    return OLE2CT(V_BSTR(&var));
}

CString COleDateTime::Format(LPCTSTR pFormat) const
{
    CString strDate;
    struct tm tmTemp;

    // If null, return empty string
    if (GetStatus() == null)
        return strDate;

    // If invalid, return DateTime resource string
    if (GetStatus() == invalid || !TmFromOleDate(m_dt, tmTemp))
    {
        VERIFY(strDate.LoadString(AFX_IDS_INVALID_DATETIME));
        return strDate;
    }

    // Convert tm from afx internal format to standard format
    TmConvertToStandardFormat(tmTemp);

    // Fill in the buffer, disregard return value as it's not necessary
    LPTSTR lpszTemp = strDate.GetBufferSetLength(MAX_TIME_BUFFER_SIZE);
    _tcsftime(lpszTemp, strDate.GetLength(), pFormat, &tmTemp);
    strDate.ReleaseBuffer();

    return strDate;
}

CString COleDateTime::Format(UINT nFormatID) const
{
    CString strFormat;
    VERIFY(strFormat.LoadString(nFormatID) != 0);
    return Format(strFormat);
}

void COleDateTime::CheckRange()
{
    if (m_dt > MAX_DATE || m_dt < MIN_DATE) // about year 100 to about 9999
        SetStatus(invalid);
}

// serialization
#ifdef _DEBUG
CDumpContext& AFXAPI operator<<(CDumpContext& dc, COleDateTime dateSrc)
{
    dc << "\nCOleDateTime Object:";
    dc << "\n\tm_status = " << (long)dateSrc.m_status;

    COleVariant var(dateSrc);
    var.ChangeType(VT_BSTR);

    return dc << "\n\tdate = " << (LPCTSTR)var.bstrVal;
}
#endif // _DEBUG

CArchive& AFXAPI operator<<(CArchive& ar, COleDateTime dateSrc)
{
    ar << (long)dateSrc.m_status;
    return ar << dateSrc.m_dt;
}

CArchive& AFXAPI operator>>(CArchive& ar, COleDateTime& dateSrc)
{
    ar >> (long&)dateSrc.m_status;
    return ar >> dateSrc.m_dt;
}

/////////////////////////////////////////////////////////////////////////////
// COleDateTimeSpan class helpers

#define MAX_DAYS_IN_SPAN    3615897L

/////////////////////////////////////////////////////////////////////////////
// COleDateTimeSpan class
long COleDateTimeSpan::GetHours() const
{
    ASSERT(GetStatus() == valid);

    double dblTemp;

    // Truncate days and scale up
    dblTemp = modf(m_span, &dblTemp);
    return (long)(dblTemp * 24);
}

long COleDateTimeSpan::GetMinutes() const
{
    ASSERT(GetStatus() == valid);

    double dblTemp;

    // Truncate hours and scale up
    dblTemp = modf(m_span * 24, &dblTemp);
    return (long)(dblTemp * 60);
}

long COleDateTimeSpan::GetSeconds() const
{
    ASSERT(GetStatus() == valid);

    double dblTemp;

    // Truncate minutes and scale up
    dblTemp = modf(m_span * 24 * 60, &dblTemp);
    return (long)(dblTemp * 60);
}

const COleDateTimeSpan& COleDateTimeSpan::operator=(double dblSpanSrc)
{
    m_span = dblSpanSrc;
    SetStatus(valid);
    return *this;
}

const COleDateTimeSpan& COleDateTimeSpan::operator=(const COleDateTimeSpan& dateSpanSrc)
{
    m_span = dateSpanSrc.m_span;
    m_status = dateSpanSrc.m_status;
    return *this;
}

COleDateTimeSpan COleDateTimeSpan::operator+(const COleDateTimeSpan& dateSpan) const
{
    COleDateTimeSpan dateSpanTemp;

    // If either operand Null, result Null
    if (GetStatus() == null || dateSpan.GetStatus() == null)
    {
        dateSpanTemp.SetStatus(null);
        return dateSpanTemp;
    }

    // If either operand Invalid, result Invalid
    if (GetStatus() == invalid || dateSpan.GetStatus() == invalid)
    {
        dateSpanTemp.SetStatus(invalid);
        return dateSpanTemp;
    }

    // Add spans and validate within legal range
    dateSpanTemp.m_span = m_span + dateSpan.m_span;
    dateSpanTemp.CheckRange();

    return dateSpanTemp;
}

COleDateTimeSpan COleDateTimeSpan::operator-(const COleDateTimeSpan& dateSpan) const
{
    COleDateTimeSpan dateSpanTemp;

    // If either operand Null, result Null
    if (GetStatus() == null || dateSpan.GetStatus() == null)
    {
        dateSpanTemp.SetStatus(null);
        return dateSpanTemp;
    }

    // If either operand Invalid, result Invalid
    if (GetStatus() == invalid || dateSpan.GetStatus() == invalid)
    {
        dateSpanTemp.SetStatus(invalid);
        return dateSpanTemp;
    }

    // Subtract spans and validate within legal range
    dateSpanTemp.m_span = m_span - dateSpan.m_span;
    dateSpanTemp.CheckRange();

    return dateSpanTemp;
}

void COleDateTimeSpan::SetDateTimeSpan(
    long lDays, int nHours, int nMins, int nSecs)
{
    // Set date span by breaking into fractional days (all input ranges valid)
    m_span = lDays + ((double)nHours)/24 + ((double)nMins)/(24*60) +
        ((double)nSecs)/(24*60*60);

    SetStatus(valid);
}

CString COleDateTimeSpan::Format(LPCTSTR pFormat) const
{
    CString strSpan;
    struct tm tmTemp;

    // If null, return empty string
    if (GetStatus() == null)
        return strSpan;

    // If invalid, return DateTimeSpan resource string
    if (GetStatus() == invalid || !TmFromOleDate(m_span, tmTemp))
    {
        VERIFY(strSpan.LoadString(AFX_IDS_INVALID_DATETIMESPAN));
        return strSpan;
    }

    // Convert tm from afx internal format to standard format
    TmConvertToStandardFormat(tmTemp);

    // Fill in the buffer, disregard return value as it's not necessary
    LPTSTR lpszTemp = strSpan.GetBufferSetLength(MAX_TIME_BUFFER_SIZE);
    _tcsftime(lpszTemp, strSpan.GetLength(), pFormat, &tmTemp);
    strSpan.ReleaseBuffer();

    return strSpan;
}

CString COleDateTimeSpan::Format(UINT nFormatID) const
{
    CString strFormat;
    VERIFY(strFormat.LoadString(nFormatID) != 0);
    return Format(strFormat);
}

void COleDateTimeSpan::CheckRange()
{
    if(m_span < -MAX_DAYS_IN_SPAN || m_span > MAX_DAYS_IN_SPAN)
        SetStatus(invalid);
}

// serialization
#ifdef _DEBUG
CDumpContext& AFXAPI operator<<(CDumpContext& dc, COleDateTimeSpan dateSpanSrc)
{
    dc << "\nCOleDateTimeSpan Object:";
    dc << "\n\tm_status = " << (long)dateSpanSrc.m_status;

    COleVariant var(dateSpanSrc.m_span);
    var.ChangeType(VT_BSTR);

    return dc << "\n\tdateSpan = " << (LPCTSTR)var.bstrVal;
}
#endif // _DEBUG

CArchive& AFXAPI operator<<(CArchive& ar, COleDateTimeSpan dateSpanSrc)
{
    ar << (long)dateSpanSrc.m_status;
    return ar << dateSpanSrc.m_span;
}

CArchive& AFXAPI operator>>(CArchive& ar, COleDateTimeSpan& dateSpanSrc)
{
    ar >> (long&)dateSpanSrc.m_status;
    return ar >> dateSpanSrc.m_span;
}

/////////////////////////////////////////////////////////////////////////////
// COleDateTime class HELPERS - implementation

BOOL OleDateFromTm(WORD wYear, WORD wMonth, WORD wDay,
    WORD wHour, WORD wMinute, WORD wSecond, DATE& dtDest)
{
    // Validate year and month (ignore day of week and milliseconds)
    if (wYear > 9999 || wMonth < 1 || wMonth > 12)
        return FALSE;

    //  Check for leap year and set the number of days in the month
    BOOL bLeapYear = ((wYear & 3) == 0) &&
        ((wYear % 100) != 0 || (wYear % 400) == 0);

    int nDaysInMonth =
        rgMonthDays[wMonth] - rgMonthDays[wMonth-1] +
        ((bLeapYear && wDay == 29 && wMonth == 2) ? 1 : 0);

    // Finish validating the date
    if (wDay < 1 || wDay > nDaysInMonth ||
        wHour > 23 || wMinute > 59 ||
        wSecond > 59)
    {
        return FALSE;
    }

    // Cache the date in days and time in fractional days
    long nDate;
    double dblTime;

    //It is a valid date; make Jan 1, 1AD be 1
    nDate = wYear*365L + wYear/4 - wYear/100 + wYear/400 +
        rgMonthDays[wMonth-1] + wDay;

    //  If leap year and it's before March, subtract 1:
    if (wMonth <= 2 && bLeapYear)
        --nDate;

    //  Offset so that 12/30/1899 is 0
    nDate -= 693959L;

    dblTime = (((long)wHour * 3600L) +  // hrs in seconds
        ((long)wMinute * 60L) +  // mins in seconds
        ((long)wSecond)) / 86400.;

    dtDest = (double) nDate + ((nDate >= 0) ? dblTime : -dblTime);

    return TRUE;
}

BOOL TmFromOleDate(DATE dtSrc, struct tm& tmDest)
{
    // The legal range does not actually span year 0 to 9999.
    if (dtSrc > MAX_DATE || dtSrc < MIN_DATE) // about year 100 to about 9999
        return FALSE;

    long nDays;             // Number of days since Dec. 30, 1899
    long nDaysAbsolute;     // Number of days since 1/1/0
    long nSecsInDay;        // Time in seconds since midnight
    long nMinutesInDay;     // Minutes in day

    long n400Years;         // Number of 400 year increments since 1/1/0
    long n400Century;       // Century within 400 year block (0,1,2 or 3)
    long n4Years;           // Number of 4 year increments since 1/1/0
    long n4Day;             // Day within 4 year block
                            //  (0 is 1/1/yr1, 1460 is 12/31/yr4)
    long n4Yr;              // Year within 4 year block (0,1,2 or 3)
    BOOL bLeap4 = TRUE;     // TRUE if 4 year block includes leap year

    double dblDate = dtSrc; // tempory serial date

    // If a valid date, then this conversion should not overflow
    nDays = (long)dblDate;

    // Round to the second
    dblDate += ((dtSrc > 0.0) ? HALF_SECOND : -HALF_SECOND);

    nDaysAbsolute = (long)dblDate + 693959L; // Add days from 1/1/0 to 12/30/1899

    dblDate = fabs(dblDate);
    nSecsInDay = (long)((dblDate - floor(dblDate)) * 86400.);

    // Calculate the day of week (sun=1, mon=2...)
    //   -1 because 1/1/0 is Sat.  +1 because we want 1-based
    tmDest.tm_wday = (int)((nDaysAbsolute - 1) % 7L) + 1;

    // Leap years every 4 yrs except centuries not multiples of 400.
    n400Years = (long)(nDaysAbsolute / 146097L);

    // Set nDaysAbsolute to day within 400-year block
    nDaysAbsolute %= 146097L;

    // -1 because first century has extra day
    n400Century = (long)((nDaysAbsolute - 1) / 36524L);

    // Non-leap century
    if (n400Century != 0)
    {
        // Set nDaysAbsolute to day within century
        nDaysAbsolute = (nDaysAbsolute - 1) % 36524L;

        // +1 because 1st 4 year increment has 1460 days
        n4Years = (long)((nDaysAbsolute + 1) / 1461L);

        if (n4Years != 0)
            n4Day = (long)((nDaysAbsolute + 1) % 1461L);
        else
        {
            bLeap4 = FALSE;
            n4Day = (long)nDaysAbsolute;
        }
    }
    else
    {
        // Leap century - not special case!
        n4Years = (long)(nDaysAbsolute / 1461L);
        n4Day = (long)(nDaysAbsolute % 1461L);
    }

    if (bLeap4)
    {
        // -1 because first year has 366 days
        n4Yr = (n4Day - 1) / 365;

        if (n4Yr != 0)
            n4Day = (n4Day - 1) % 365;
    }
    else
    {
        n4Yr = n4Day / 365;
        n4Day %= 365;
    }

    // n4Day is now 0-based day of year. Save 1-based day of year, year number
    tmDest.tm_yday = (int)n4Day + 1;
    tmDest.tm_year = n400Years * 400 + n400Century * 100 + n4Years * 4 + n4Yr;

    // Handle leap year: before, on, and after Feb. 29.
    if (n4Yr == 0 && bLeap4)
    {
        // Leap Year
        if (n4Day == 59)
        {
            /* Feb. 29 */
            tmDest.tm_mon = 2;
            tmDest.tm_mday = 29;
            goto DoTime;
        }

        // Pretend it's not a leap year for month/day comp.
        if (n4Day >= 60)
            --n4Day;
    }

    // Make n4DaY a 1-based day of non-leap year and compute
    //  month/day for everything but Feb. 29.
    ++n4Day;

    // Month number always >= n/32, so save some loop time */
    for (tmDest.tm_mon = (n4Day >> 5) + 1;
        n4Day > rgMonthDays[tmDest.tm_mon]; tmDest.tm_mon++);

    tmDest.tm_mday = (int)(n4Day - rgMonthDays[tmDest.tm_mon-1]);

DoTime:
    if (nSecsInDay == 0)
        tmDest.tm_hour = tmDest.tm_min = tmDest.tm_sec = 0;
    else
    {
        tmDest.tm_sec = (int)nSecsInDay % 60L;
        nMinutesInDay = nSecsInDay / 60L;
        tmDest.tm_min = (int)nMinutesInDay % 60;
        tmDest.tm_hour = (int)nMinutesInDay / 60;
    }

    return TRUE;
}

void TmConvertToStandardFormat(struct tm& tmSrc)
{
    // Convert afx internal tm to format expected by runtimes (_tcsftime, etc)
    tmSrc.tm_year -= 1900;  // year is based on 1900
    tmSrc.tm_mon -= 1;      // month of year is 0-based
    tmSrc.tm_wday -= 1;     // day of week is 0-based
    tmSrc.tm_yday -= 1;     // day of year is 0-based
}

double DoubleFromDate(DATE dt)
{
    // No problem if positive
    if (dt >= 0)
        return dt;

    // If negative, must convert since negative dates not continuous
    // (examples: -1.25 to -.75, -1.50 to -.50, -1.75 to -.25)
    double temp = ceil(dt);
    return temp - (dt - temp);
}

DATE DateFromDouble(double dbl)
{
    // No problem if positive
    if (dbl >= 0)
        return dbl;

    // If negative, must convert since negative dates not continuous
    // (examples: -.75 to -1.25, -.50 to -1.50, -.25 to -1.75)
    double temp = floor(dbl); // dbl is now whole part
    return temp + (temp - dbl);
}

/////////////////////////////////////////////////////////////////////////////
// COleSafeArray class
COleSafeArray::COleSafeArray(const SAFEARRAY& saSrc, VARTYPE vtSrc)
{
    AfxSafeArrayInit(this);
    vt = (VARTYPE)(vtSrc | VT_ARRAY);
    CheckError(::SafeArrayCopy((LPSAFEARRAY)&saSrc, &parray));
    m_dwDims = GetDim();
    m_dwElementSize = GetElemSize();
}

COleSafeArray::COleSafeArray(LPCSAFEARRAY pSrc, VARTYPE vtSrc)
{
    AfxSafeArrayInit(this);
    vt = (VARTYPE)(vtSrc | VT_ARRAY);
    CheckError(::SafeArrayCopy((LPSAFEARRAY)pSrc, &parray));
    m_dwDims = GetDim();
    m_dwElementSize = GetElemSize();
}

COleSafeArray::COleSafeArray(const COleSafeArray& saSrc)
{
    AfxSafeArrayInit(this);
    *this = saSrc;
    m_dwDims = GetDim();
    m_dwElementSize = GetElemSize();
}

COleSafeArray::COleSafeArray(const VARIANT& varSrc)
{
    AfxSafeArrayInit(this);
    *this = varSrc;
    m_dwDims = GetDim();
    m_dwElementSize = GetElemSize();
}

COleSafeArray::COleSafeArray(LPCVARIANT pSrc)
{
    AfxSafeArrayInit(this);
    *this = pSrc;
    m_dwDims = GetDim();
    m_dwElementSize = GetElemSize();
}

// Operations
void COleSafeArray::Attach(VARIANT& varSrc)
{
    ASSERT(varSrc.vt & VT_ARRAY);

    // Free up previous safe array if necessary
    Clear();

    // give control of data to COleSafeArray
    memcpy(this, &varSrc, sizeof(varSrc));
    varSrc.vt = VT_EMPTY;
}

VARIANT COleSafeArray::Detach()
{
    VARIANT varResult = *this;
    vt = VT_EMPTY;
    return varResult;
}

// Assignment operators
COleSafeArray& COleSafeArray::operator=(const COleSafeArray& saSrc)
{
    ASSERT(saSrc.vt & VT_ARRAY);

    CheckError(::VariantCopy(this, (LPVARIANT)&saSrc));
    return *this;
}

COleSafeArray& COleSafeArray::operator=(const VARIANT& varSrc)
{
    ASSERT(varSrc.vt & VT_ARRAY);

    CheckError(::VariantCopy(this, (LPVARIANT)&varSrc));
    return *this;
}

COleSafeArray& COleSafeArray::operator=(LPCVARIANT pSrc)
{
    ASSERT(pSrc->vt & VT_ARRAY);

    CheckError(::VariantCopy(this, (LPVARIANT)pSrc));
    return *this;
}

COleSafeArray& COleSafeArray::operator=(const COleVariant& varSrc)
{
    ASSERT(varSrc.vt & VT_ARRAY);

    CheckError(::VariantCopy(this, (LPVARIANT)&varSrc));
    return *this;
}

// Comparison operators
BOOL COleSafeArray::operator==(const SAFEARRAY& saSrc) const
{
    return CompareSafeArrays(parray, (LPSAFEARRAY)&saSrc);
}

BOOL COleSafeArray::operator==(LPCSAFEARRAY pSrc) const
{
    return CompareSafeArrays(parray, (LPSAFEARRAY)pSrc);
}

BOOL COleSafeArray::operator==(const COleSafeArray& saSrc) const
{
    if (vt != saSrc.vt)
        return FALSE;

    return CompareSafeArrays(parray, saSrc.parray);
}

BOOL COleSafeArray::operator==(const VARIANT& varSrc) const
{
    if (vt != varSrc.vt)
        return FALSE;

    return CompareSafeArrays(parray, varSrc.parray);
}

BOOL COleSafeArray::operator==(LPCVARIANT pSrc) const
{
    if (vt != pSrc->vt)
        return FALSE;

    return CompareSafeArrays(parray, pSrc->parray);
}

BOOL COleSafeArray::operator==(const COleVariant& varSrc) const
{
    if (vt != varSrc.vt)
        return FALSE;

    return CompareSafeArrays(parray, varSrc.parray);
}

void COleSafeArray::CreateOneDim(VARTYPE vtSrc, DWORD dwElements,
    void* pvSrcData, long nLBound)
{
    ASSERT(dwElements > 0);

    // Setup the bounds and create the array
    SAFEARRAYBOUND rgsabound;
    rgsabound.cElements = dwElements;
    rgsabound.lLbound = nLBound;
    Create(vtSrc, 1, &rgsabound);

    // Copy over the data if neccessary
    if (pvSrcData != NULL)
    {
        void* pvDestData;
        AccessData(&pvDestData);
        memcpy(pvDestData, pvSrcData, GetElemSize() * dwElements);
        UnaccessData();
    }
}

DWORD COleSafeArray::GetOneDimSize()
{
    ASSERT(GetDim() == 1);

    long nUBound, nLBound;

    GetUBound(1, &nUBound);
    GetLBound(1, &nLBound);

    return nUBound + 1 - nLBound;
}

void COleSafeArray::ResizeOneDim(DWORD dwElements)
{
    ASSERT(GetDim() == 1);

    SAFEARRAYBOUND rgsabound;

    rgsabound.cElements = dwElements;
    rgsabound.lLbound = 0;

    Redim(&rgsabound);
}

void COleSafeArray::Create(VARTYPE vtSrc, DWORD dwDims, DWORD* rgElements)
{
    ASSERT(rgElements != NULL);

    // Allocate and fill proxy array of bounds (with lower bound of zero)
    SAFEARRAYBOUND* rgsaBounds = new SAFEARRAYBOUND[dwDims];

    for (DWORD dwIndex = 0; dwIndex < dwDims; dwIndex++)
    {
        // Assume lower bound is 0 and fill in element count
        rgsaBounds[dwIndex].lLbound = 0;
        rgsaBounds[dwIndex].cElements = rgElements[dwIndex];
    }

    TRY
    {
        Create(vtSrc, dwDims, rgsaBounds);
    }
    CATCH_ALL(e)
    {
        // Must free up memory
        delete [] rgsaBounds;
        THROW_LAST();
    }
    END_CATCH_ALL

    delete [] rgsaBounds;
}

void COleSafeArray::Create(VARTYPE vtSrc, DWORD dwDims, SAFEARRAYBOUND* rgsabound)
{
    ASSERT(dwDims > 0);
    ASSERT(rgsabound != NULL);

    // Validate the VARTYPE for SafeArrayCreate call
    ASSERT(!(vtSrc & VT_ARRAY));
    ASSERT(!(vtSrc & VT_BYREF));
    ASSERT(!(vtSrc & VT_VECTOR));
    ASSERT(vtSrc != VT_EMPTY);
    ASSERT(vtSrc != VT_NULL);

    // Free up old safe array if necessary
    Clear();

    parray = ::SafeArrayCreate(vtSrc, dwDims, rgsabound);

    if (parray == NULL)
        AfxThrowMemoryException();

    vt = unsigned short(vtSrc | VT_ARRAY);
    m_dwDims = dwDims;
    m_dwElementSize = GetElemSize();
}

void COleSafeArray::AccessData(void** ppvData)
{
    CheckError(::SafeArrayAccessData(parray, ppvData));
}

void COleSafeArray::UnaccessData()
{
    CheckError(::SafeArrayUnaccessData(parray));
}

void COleSafeArray::AllocData()
{
    CheckError(::SafeArrayAllocData(parray));
}

void COleSafeArray::AllocDescriptor(DWORD dwDims)
{
    CheckError(::SafeArrayAllocDescriptor(dwDims, &parray));
}

void COleSafeArray::Copy(LPSAFEARRAY* ppsa)
{
    CheckError(::SafeArrayCopy(parray, ppsa));
}

void COleSafeArray::GetLBound(DWORD dwDim, long* pLbound)
{
    CheckError(::SafeArrayGetLBound(parray, dwDim, pLbound));
}

void COleSafeArray::GetUBound(DWORD dwDim, long* pUbound)
{
    CheckError(::SafeArrayGetUBound(parray, dwDim, pUbound));
}

void COleSafeArray::GetElement(long* rgIndices, void* pvData)
{
    CheckError(::SafeArrayGetElement(parray, rgIndices, pvData));
}

void COleSafeArray::PtrOfIndex(long* rgIndices, void** ppvData)
{
    CheckError(::SafeArrayPtrOfIndex(parray, rgIndices, ppvData));
}

void COleSafeArray::PutElement(long* rgIndices, void* pvData)
{
    CheckError(::SafeArrayPutElement(parray, rgIndices, pvData));
}

void COleSafeArray::Redim(SAFEARRAYBOUND* psaboundNew)
{
    CheckError(::SafeArrayRedim(parray, psaboundNew));
}

void COleSafeArray::Lock()
{
    CheckError(::SafeArrayLock(parray));
}

void COleSafeArray::Unlock()
{
    CheckError(::SafeArrayUnlock(parray));
}

void COleSafeArray::Destroy()
{
    CheckError(::SafeArrayDestroy(parray));
}

void COleSafeArray::DestroyData()
{
    CheckError(::SafeArrayDestroyData(parray));
}

void COleSafeArray::DestroyDescriptor()
{
    CheckError(::SafeArrayDestroyDescriptor(parray));
}

///////////////////////////////////////////////////////////////////////////////
// COleSafeArray Helpers
void AFXAPI AfxSafeArrayInit(COleSafeArray* psa)
{
    memset(psa, 0, sizeof(*psa));
}

/////////////////////////////////////////////////////////////////////////////
// Simple field formatting to text item - see dlgdata.cpp for base types
void AFXAPI DDX_Text(CDataExchange* pDX, int nIDC, COleDateTime& value)
{
    HWND hWndCtrl = pDX->PrepareEditCtrl(nIDC);
    if (pDX->m_bSaveAndValidate)
    {
        int nLen = ::GetWindowTextLength(hWndCtrl);
        CString strTemp;

        ::GetWindowText(hWndCtrl, strTemp.GetBufferSetLength(nLen), nLen+1);
        strTemp.ReleaseBuffer();

        if (!value.ParseDateTime(strTemp))  // throws exception
        {
            // Can't convert string to datetime
            AfxMessageBox(AFX_IDP_PARSE_DATETIME);
            pDX->Fail();    // throws exception
        }
    }
    else
    {
        CString strTemp = value.Format();
        AfxSetWindowText(hWndCtrl, strTemp);
    }
}

void AFXAPI DDX_Text(CDataExchange* pDX, int nIDC, COleCurrency& value)
{
    HWND hWndCtrl = pDX->PrepareEditCtrl(nIDC);
    if (pDX->m_bSaveAndValidate)
    {
        int nLen = ::GetWindowTextLength(hWndCtrl);
        CString strTemp;

        ::GetWindowText(hWndCtrl, strTemp.GetBufferSetLength(nLen), nLen+1);
        strTemp.ReleaseBuffer();

        if (!value.ParseCurrency(strTemp))  // throws exception
        {
            // Can't convert string to currency
            AfxMessageBox(AFX_IDP_PARSE_CURRENCY);
            pDX->Fail();    // throws exception
        }
    }
    else
    {
        CString strTemp = value.Format();
        AfxSetWindowText(hWndCtrl, strTemp);
    }
}

/////////////////////////////////////////////////////////////////////////////