void TestOCIEnv::test() 
{ 
  for ( int i = 0; i < 10000; ++ i ) { 
    COCIEnvironment env; 
    env.Initialize(); 
  } 
} 

COCIEnvironment::~COCIEnvironment() 
{ 
  if ( ! m_pEnv ) return; 
  Terminate(); 
} 


bool COCIEnvironment::Initialize( BOOL bThreaded ) 
// default = FALSE 
{ 
  m_initMode = bThreaded ? OCI_THREADED : OCI_DEFAULT; 
  m_initMode |= OCI_OBJECT; 

  sword st = ::OCIEnvCreate( &m_pEnv, m_initMode, NULL, NULL, NULL, NULL, 0, NULL ); 
  if ( st != OCI_SUCCESS && st != OCI_SUCCESS_WITH_INFO ) { 
    return false; 
  } 

  st = ::OCIHandleAlloc( m_pEnv, reinterpret_cast< void** >( &m_pErr ), OCI_HTYPE_ERROR, 0, NULL ); 
  if ( st != OCI_SUCCESS && st != OCI_SUCCESS_WITH_INFO ) { 
    m_pErr = NULL; 
    return false; 
  } 

  return true; 
} 

void COCIEnvironment::Terminate() 
{ 
  ::OCITerminate( m_initMode ); 
  ::OCIHandleFree( m_pErr, OCI_HTYPE_ERROR ); 
  ::OCIHandleFree( m_pErr, OCI_HTYPE_ENV ); 
  m_pEnv = NULL; 
  m_pErr = NULL; 
}