home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / object10 / oset.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1995-03-20  |  7.1 KB  |  270 lines
  1. /* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */
  2.  
  3. /*
  4.     This source code is provided as a debugging aid for developers
  5.     who have purchased Oracle Objects for OLE    .  Please see the
  6.     online help for documentation of these classes.
  7. */
  8.  
  9. /*
  10.     Oracle Objects for OLE     C++ Classes
  11.     
  12.     This file implements the OFieldCollection, OConnectionCollection and
  13.     OSessionCollection classes
  14.                            
  15.     CREATED    ********   11/22/94
  16.     RWOOLARD    MODIFIED    03/20/95
  17.                 bug#
  18. */
  19.  
  20. #include "windows.h"
  21. #include <ole2.h>
  22. #include <olenls.h>       
  23. #include <dispatch.h>  
  24.  
  25. #ifndef ORACL_ORACLE
  26. #include "oracl.h"
  27. #endif
  28.  
  29. #ifndef ORAOBJI_ORACLE
  30. #include "oraobji.h"
  31. #endif
  32.  
  33. #ifndef _OracleInProcServer_H_
  34. #include <oratlb.h>
  35. #endif
  36.  
  37. static const IID IID_IOraFields =
  38. {0xedbe6700, 0x0562, 0x101b, { 0xad, 0xf2, 0x04, 0x02, 0x1c, 0x00, 0x70, 0x02 } };
  39. static const IID IID_IOraCollection =
  40. {0xdadfdec0, 0x134a, 0x101b, { 0x91, 0x9e, 0x04, 0x02, 0x1c, 0x00, 0x70, 0x02 } };
  41. static const IID IID_IOraConnection =
  42. {0xbea85c00, 0x134a, 0x101b, { 0x91, 0x9e, 0x04, 0x02, 0x1c, 0x00, 0x70, 0x02 } };   
  43. static const IID IID_IOraSession =
  44. {0xa16bec60, 0x134a, 0x101b, { 0x91, 0x9e, 0x04, 0x02, 0x1c, 0x00, 0x70, 0x02 } };
  45. static const IID IID_IOraField =
  46. {0x145f9fa0, 0x0563, 0x101b, { 0xad, 0xf2, 0x04, 0x02, 0x1c, 0x00, 0x70, 0x02 } };
  47.  
  48. // Set type defines (internal use only)
  49. #define SET_TYPE_NONE 0
  50. #define SET_TYPE_SESSION 1
  51. #define SET_TYPE_CONNECTION 2
  52. #define SET_TYPE_FIELD 3
  53.  
  54. // ----- OOracleCollection -----------------------------------------------
  55.  
  56. OOracleCollection::OOracleCollection()
  57. {
  58.     m_settype = SET_TYPE_NONE;
  59. }
  60.  
  61. OOracleCollection::OOracleCollection(const OOracleCollection &other)
  62. {
  63.     m_settype = SET_TYPE_NONE;
  64.     Copy(other);
  65. }
  66.  
  67. OOracleCollection::~OOracleCollection(void) 
  68. {
  69.     Cleanup();
  70. }
  71.  
  72. // overloaded assignment operator
  73. OOracleCollection &OOracleCollection::operator=(const OOracleCollection &other)
  74. {
  75.     if (&other == this)
  76.         return(*this); // self assignment - do nothing
  77.     
  78.     // clear out our old state
  79.     if (OSUCCESS == Cleanup())
  80.     {
  81.         Copy(other); // call copy constructor
  82.     }
  83.     // if the cleanup failed (possible but unlikely) we don't do the copy
  84.     //    and as a result, we pass on the unmodified (or partly cleaned!) object
  85.     
  86.     return(*this);
  87. } 
  88.  
  89. oresult OOracleCollection::Copy(const OOracleCollection &other)
  90. {
  91.     m_settype = other.m_settype;
  92.     
  93.     return(OOracleObject::Copy(other));
  94. }
  95.  
  96. oresult OOracleCollection::Close(void)
  97. {
  98.     return(Cleanup());
  99. }
  100.  
  101. oresult OOracleCollection::Cleanup(void)
  102. {
  103.     m_settype = SET_TYPE_NONE; 
  104.  
  105.     return(OOracleObject::Cleanup());        
  106. }
  107.  
  108. oresult OOracleCollection::OpenSetHelper(void *connect, void *otheri, unsigned char stype)
  109. {
  110.     if (!connect)
  111.     { // couldn't create set - error is on other object
  112.         SetOtherError(otheri);
  113.         return(OFAILURE);
  114.     }
  115.     
  116.     Cleanup();  // drop previous state
  117.     
  118.     HRESULT hc;
  119.     void *tempi;
  120.     if (stype == SET_TYPE_FIELD)
  121.         hc = ((IDispatch *) connect)->QueryInterface(IID_IOraFields, &tempi);
  122.     else    
  123.         hc = ((IDispatch *) connect)->QueryInterface(IID_IOraCollection, &tempi);
  124.     ((IDispatch *) connect)->Release();
  125.     if (FAILED(hc))
  126.     { // couldn't get the interface
  127.         SetInternalError(OERROR_NOINTER);
  128.         return(OFAILURE);
  129.     }
  130.     
  131.     // set object interface (only fields support error interface)
  132.     oresult ores = SetObjectInterface(tempi, stype == SET_TYPE_FIELD);
  133.     
  134.     if (ores == OSUCCESS)
  135.     { // we successfully created the object
  136.         m_settype = stype;    
  137.     }
  138.     
  139.     return(ores);
  140. } 
  141.  
  142. long OOracleCollection::GetCount(void) const
  143. {
  144.     if (ActionStart() != OSUCCESS)
  145.         return(0); // error
  146.     
  147.     long nitems;
  148.     if (m_settype == SET_TYPE_FIELD)
  149.         nitems = ((_IOraFields *) Internal())->get_Count();
  150.     else
  151.         nitems = ((_IOraCollection *) Internal())->get_Count();
  152.     
  153.     return(nitems);
  154. }
  155.  
  156. void *OOracleCollection::GetItem(unsigned char stype, int index) const
  157. {
  158.     void *itemP;
  159.     
  160.     if (stype != m_settype || !IsOpen())
  161.     {
  162.         SetInternalError(OERROR_NOINTER);
  163.         return(0);
  164.     }
  165.     
  166.     // get the dispatch pointer
  167.     VARIANT vres;
  168.     VariantInit(&vres); 
  169.  
  170.     vres.vt = VT_I2;
  171.     vres.iVal = (short) index;          
  172.     IDispatch *connect;
  173.     
  174.     if (m_settype == SET_TYPE_FIELD)
  175.         connect = ((_IOraFields *) Internal())->get_Item(vres); 
  176.     else
  177.         connect = ((_IOraCollection *) Internal())->get_Item(vres); 
  178.     
  179.     if (!connect)
  180.     {  // we know what the error is (caller will refer to us)
  181.         return(0);
  182.     }
  183.     
  184.     // now get the actual interface
  185.     
  186.     HRESULT hc;
  187.     
  188.     if (m_settype == SET_TYPE_CONNECTION)
  189.         hc = connect->QueryInterface(IID_IOraConnection, &itemP);
  190.     else if (m_settype == SET_TYPE_SESSION)
  191.         hc = connect->QueryInterface(IID_IOraSession, &itemP);
  192.     else if (m_settype == SET_TYPE_FIELD)
  193.         hc = connect->QueryInterface(IID_IOraField, &itemP);     
  194.         
  195.     connect->Release();
  196.     if (FAILED(hc))
  197.     { // couldn't get the interface
  198.         SetInternalError(OERROR_NOINTER);
  199.         return(0);
  200.         // now caller will refer to our error interface - will that know what the error is?
  201.     }
  202.     
  203.     return(itemP);
  204. }
  205.  
  206. // ----- OFieldCollection -----------------------------------------------
  207.  
  208. oresult OFieldCollection::OpenHelper(void *connect, void *otheri)
  209. {
  210.     return(OpenSetHelper(connect, otheri, SET_TYPE_FIELD));
  211. }
  212.  
  213. OField OFieldCollection::GetField(int index) const
  214. {
  215.     OField of;
  216.     
  217.     if (ActionGetStart(&of) != OSUCCESS)
  218.         return(of); // returning unopened object - indicates error
  219.     
  220.     // get new field from collection
  221.     void *tempi = GetItem(SET_TYPE_FIELD, index);    
  222.     
  223.     of.OpenHelper(tempi, Internal());
  224.     return(of);   
  225. }
  226.  
  227. // ----- OConnectionCollection -----------------------------------------------
  228.  
  229. oresult OConnectionCollection::OpenHelper(void *connect, void *otheri)
  230. {
  231.     return(OpenSetHelper(connect, otheri, SET_TYPE_CONNECTION));
  232. }
  233.  
  234. OConnection OConnectionCollection::GetConnection(int index) const
  235. {                                             
  236.     OConnection conn;
  237.     
  238.     if (ActionGetStart(&conn) != OSUCCESS)
  239.         return(conn); // returning unopened object - indicates error
  240.     
  241.     // get new session from collection
  242.     void *tempi = GetItem(SET_TYPE_CONNECTION, index);
  243.     
  244.     conn.OpenHelper(tempi, Internal());
  245.     
  246.     return(conn);
  247. }
  248.  
  249. // ----- OSessionCollection -----------------------------------------------
  250.  
  251. oresult OSessionCollection::OpenHelper(void *connect, void *otheri)
  252. {
  253.     return(OpenSetHelper(connect, otheri, SET_TYPE_SESSION));
  254. }
  255.  
  256. OSession OSessionCollection::GetSession(int index) const
  257. {
  258.     OSession sess;
  259.     
  260.     if (ActionGetStart(&sess) != OSUCCESS)
  261.         return(sess); // returning unopened object - indicates error
  262.     
  263.     // get new session from collection
  264.     void *tempi = GetItem(SET_TYPE_SESSION, index);
  265.     sess.OpenHelper(tempi, Internal());
  266.     
  267.     return(sess);
  268. }
  269.  
  270.