Developers Manual Project homepage

O3DBIObject.cpp

Go to the documentation of this file.

#include "O3DBIException.h"

#pragma warning(push, 4)

// ----------------------------------------------------------------------------
// O3DBIObject static data member initialization

UINT O3DBIObject::_nRefCount = 0;
TOCIEnvironmentHandle O3DBIObject::_hEnv = NULL;
TOCIErrorHandle O3DBIObject::_hError = NULL;
MemAllocFP O3DBIObject::_memallocfp = NULL;
ReAllocFP O3DBIObject::_reallocfp = NULL;
MemFreeFP O3DBIObject::_memfreefp = NULL;

// ----------------------------------------------------------------------------
// O3DBIObject static member functions

void O3DBIObject::RegisterMemAllocCB(MemAllocFP memallocfp)
{
    _memallocfp = memallocfp;
}

void O3DBIObject::RegisterReAllocCB(ReAllocFP reallocfp)
{
    _reallocfp = reallocfp;
}

void O3DBIObject::RegisterMemFreeCB(MemFreeFP memfreefp)
{
    _memfreefp = memfreefp;
}

// ----------------------------------------------------------------------------
// O3DBIObject construction/destruction

O3DBIObject::O3DBIObject()
{
    if (_nRefCount == 0)
    {
        ub4 mode =
#ifdef _UNICODE
            OCI_UTF16 | OCI_THREADED;
#else
            OCI_DEFAULT | OCI_THREADED;
#endif // _UNICODE

        // The first O3DBIObject is constructed: create and initialize an
        // default, thread-safety environment for OCI! OCIEnvCreate() must be
        // invoked before any other OCI call!
        TOCIResult result = OCIEnvCreate(&_hEnv, mode, (TOCIDvoidPtr)NULL,
            _memallocfp, _reallocfp, _memfreefp, 0, (TOCIDvoidPtr*)NULL);

        if (result == OCI_ERROR)
        {
            throw new O3DBIException(-1, _T("Could not create an environment: ")
                _T("OCIEnvCreate returned OCI_ERROR!"),
                _T("O3DBIObject::O3DBIObject"), this);
        }

        // Allocate error handle
        result = OCIHandleAlloc(_hEnv, reinterpret_cast<TOCIDvoidPtr*>(&_hError),
            OCI_HTYPE_ERROR, (size_t)0, (TOCIDvoidPtr*)NULL);
        if (result == OCI_INVALID_HANDLE)
        {
            throw new O3DBIException(-1, _T("Could not allocate error handle: ")
                _T("OCIHandleAlloc returned OCI_INVALID_HANDLE!"),
                _T("O3DBIObject::O3DBIObject"), this);
        }
    }
    ++_nRefCount;   // Increase reference counter

    // DbC postcondition check
    ENSURE(_hEnv != NULL);
    ENSURE(_hError != NULL);
}

O3DBIObject::~O3DBIObject()
{
    --_nRefCount;   // Decrease reference counter
    if (_nRefCount == 0)
    {
        // The last instance of an O3DBIObject (or of a class derived from
        // O3DBIObject) is dying: do some cleanup work...
        if (_hError != NULL)
            OCIHandleFree(reinterpret_cast<TOCIDvoidPtr*>(&_hError),
            OCI_HTYPE_ERROR);

        // Shut down OCI
        OCITerminate(OCI_DEFAULT);
    }
}

TO3DBIString O3DBIObject::ToString() const
{
    _TCHAR buffer[512];
    int p;

    p = _stprintf(buffer, _T("O3DBIObject at: 0x%x\n"), this);
    _stprintf(buffer + p, _T("\tOCI environment handle: %x\n"), _hEnv);
    return TO3DBIString(buffer);
}

// ----------------------------------------------------------------------------
// O3DBIObject consistency-check

#ifdef _DEBUG
bool O3DBIObject::IsValid() const
{
    return true;
}
#endif

// ----------------------------------------------------------------------------
// O3DBIObject internal implementation

TOCIErrorcode O3DBIObject::GetLastError(TOCIResult result,
                                        TO3DBIString& errortext)
{
    TOCIErrorcode errorcode = -1;
    OraText errorbuffer[512];

    switch (result)
    {
    case OCI_SUCCESS_WITH_INFO:
    case OCI_ERROR:
        OCIErrorGet((TOCIDvoidPtr)_hError, (ub4)1, (OraText*)NULL,
            &errorcode, errorbuffer, (ub4)sizeof(errorbuffer),
            (ub4)OCI_HTYPE_ERROR);
        errortext = reinterpret_cast<P_TCHAR>(errorbuffer);
        break;

    case OCI_NEED_DATA:
        errortext = _T("Error - OCI_NEED_DATA");
        break;

    case OCI_NO_DATA:
        errortext = _T("Error - OCI_NO_DATA");
        break;

    case OCI_INVALID_HANDLE:
        errortext = _T("Error - OCI_INVALID_HANDLE");
        break;

    case OCI_STILL_EXECUTING:
        errortext = _T("Error - OCI_STILL_EXECUTING");
        break;

    case OCI_CONTINUE:
        errortext = _T("Error - OCI_CONTINUE");
        break;

    default:
        P_TCHAR pBuffer = reinterpret_cast<P_TCHAR>(errorbuffer);
        ::_stprintf(pBuffer, _T("Error - return value:%d"), result);
        errortext = pBuffer;
        break;
    }

    return errorcode;
}

#pragma warning(pop)

---

Generated on Sun Jan 23 11:36:34 2005 for Oracle Object Oriented Database Interface (O3DBI) by  1.3.9.1