home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / sdk / com / oleaut / browseh / module.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1997-07-31  |  4.1 KB  |  163 lines
  1. /*************************************************************************
  2. **
  3. **  This is a part of the Microsoft Source Code Samples.
  4. **
  5. **  Copyright (C) 1992-1997 Microsoft Corporation. All rights reserved.
  6. **
  7. **  This source code is only intended as a supplement to Microsoft Development
  8. **  Tools and/or WinHelp documentation.  See these sources for detailed
  9. **  information regarding the Microsoft samples programs.
  10. **
  11. **  OLE Automation TypeLibrary Browse Helper Sample
  12. **
  13. **  module.cpp
  14. **
  15. **  CModule implementation
  16. **
  17. **  Written by Microsoft Product Support Services, Windows Developer Support
  18. **
  19. *************************************************************************/
  20.  
  21. #include <windows.h>
  22. #include <windowsx.h>
  23. #ifdef WIN16   
  24.   #include <ole2.h>
  25.   #include <compobj.h>    
  26.   #include <dispatch.h> 
  27.   #include <variant.h>
  28.   #include <olenls.h>  
  29. #endif 
  30. #include "browseh.h"  
  31.  
  32. /*
  33.  * CModule::Create
  34.  *
  35.  * Purpose:
  36.  *  Creates an instance of the Module automation object and initializes it.
  37.  *
  38.  * Parameters:       
  39.  *  ptinfo      TypeInfo of module.
  40.  *  ppModule    Returns Module automation object.
  41.  *
  42.  * Return Value:
  43.  *  HRESULT
  44.  *
  45.  */
  46. HRESULT 
  47. CModule::Create(LPTYPEINFO ptinfo, CModule FAR* FAR* ppModule) 
  48. {   
  49.     HRESULT hr;
  50.     CModule FAR* pModule = NULL;
  51.      
  52.     *ppModule = NULL;
  53.     
  54.     // Create object.
  55.     pModule = new CModule();
  56.     if (pModule == NULL)
  57.     {
  58.         hr = E_OUTOFMEMORY; 
  59.         goto error;
  60.     }    
  61.     // Load type information for the object from type library. 
  62.     hr = pModule->LoadTypeInfo(IID_IModule);
  63.     if (FAILED(hr))
  64.         goto error;
  65.     // Intialize base class, CTypeInfo
  66.     hr = pModule->_InitTypeInfo(ptinfo);
  67.     if (FAILED(hr))
  68.         goto error;
  69.     
  70.     ptinfo->AddRef();
  71.     pModule->m_ptinfo = ptinfo;
  72.  
  73. #ifdef _DEBUG  
  74.     lstrcpyn(pModule->m_szClassName, TEXT("Module"), 100);
  75. #endif 
  76.         
  77.     *ppModule = pModule;
  78.     return NOERROR;
  79.     
  80. error:
  81.     if (pModule == NULL) return E_OUTOFMEMORY;
  82.     if (pModule->m_ptinfo) pModule->m_ptinfo->Release();
  83.          
  84.     // Set to NULL to prevent destructor from attempting to free again  
  85.     pModule->m_ptinfo = NULL;
  86.     
  87.     delete pModule;
  88.     return hr;
  89. }
  90.  
  91. /*
  92.  * CModule::CModule
  93.  *
  94.  * Purpose:
  95.  *  Constructor for CModule object. Initializes members to NULL.
  96.  *
  97.  */
  98. CModule::CModule()
  99. { 
  100.     m_pdispFunctions = NULL;
  101.     m_ptinfo = NULL;
  102. }
  103.  
  104. /*
  105.  * CModule::~CModule
  106.  *
  107.  * Purpose:
  108.  *  Destructor for CModule object. 
  109.  *
  110.  */
  111. CModule::~CModule()
  112. {
  113.     if (m_pdispFunctions) m_pdispFunctions->Release();   
  114.     if (m_ptinfo) m_ptinfo->Release();
  115. } 
  116.  
  117. STDMETHODIMP_(REFCLSID)
  118. CModule::GetInterfaceID()
  119. {
  120.     return IID_IModule;
  121. }
  122.  
  123. STDMETHODIMP_(ICollection FAR*)
  124. CModule::get_Functions()     
  125. {  
  126.     HRESULT hr;
  127.     CFunction FAR* pFunction;
  128.     CCollection FAR* pCollection = NULL;
  129.     LPDISPATCH pdisp;
  130.     LPTYPEATTR ptypeattr = NULL;
  131.     unsigned short n;
  132.     
  133.     if (m_pdispFunctions == NULL)
  134.     {   
  135.         // Create collection of functions of the interface.
  136.         hr = m_ptinfo->GetTypeAttr(&ptypeattr); 
  137.         if (FAILED(hr))
  138.             {RaiseException(IDS_Unexpected); return NULL;}   
  139.         hr = CCollection::Create(ptypeattr->cFuncs, 0, &pCollection);
  140.         if (FAILED(hr))
  141.             {RaiseException(IDS_Unexpected); goto error;}      
  142.         for (n=0; n<ptypeattr->cFuncs; n++)
  143.         {                
  144.             hr = CFunction::Create(m_ptinfo, n, &pFunction); 
  145.             if (FAILED(hr))
  146.                 {RaiseException(IDS_Unexpected); goto error;}
  147.             pFunction->QueryInterface(IID_IDispatch, (void FAR* FAR*)&pdisp);
  148.             pCollection->Add(pdisp);  
  149.             pdisp->Release();
  150.         }
  151.         pCollection->QueryInterface(IID_IDispatch, (void FAR* FAR*)&pdisp);
  152.         m_pdispFunctions = pdisp; 
  153.         m_ptinfo->ReleaseTypeAttr(ptypeattr);
  154.     }
  155.     m_pdispFunctions->AddRef();
  156.     return (ICollection FAR*)m_pdispFunctions;     
  157.     
  158. error:    
  159.     if (ptypeattr) m_ptinfo->ReleaseTypeAttr(ptypeattr);   
  160.     if (pCollection) delete pCollection;  
  161.     return NULL;
  162. }    
  163.