home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / ObjRepos / rdmobject.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  2000-02-01  |  1.5 KB  |  74 lines
  1. [!outputon] // $Revision:   1.5.1.3  $
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "[!HeaderName]"
  6.  
  7. #if !defined(__PRAGMA_SMART_INIT_DEFINED)
  8. #define __PRAGMA_SMART_INIT_DEFINED
  9. #pragma package(smart_init)
  10. #endif
  11.  
  12. #pragma resource "*.dfm"
  13.  
  14.  
  15. /////////////////////////////////////////////////////////////////////////////
  16. // Global instance of [!ClassName] 
  17. /////////////////////////////////////////////////////////////////////////////
  18. T[!CoClassName] *[!CoClassName];
  19.  
  20.  
  21. /////////////////////////////////////////////////////////////////////////////
  22. // T[!CoClassName]::T[!CoClassName]
  23. /////////////////////////////////////////////////////////////////////////////
  24. __fastcall T[!CoClassName]::T[!CoClassName](TComponent* Owner) : TCRemoteDataModule(Owner)
  25. {
  26. }
  27.  
  28.  
  29. [!if=(ObjectControl, "TRUE")]
  30. STDMETHODIMP [!ClassName]::Activate()
  31. {
  32.   // Retrieve ObjectContext
  33.   //
  34.   static TMtsDll Mts;
  35.   HRESULT hr = E_FAIL;
  36.   hr = Mts.Get_ObjectContext(&m_spObjectContext);
  37.  
  38.   // Fire 'OnActivate' Event 
  39.   //
  40.   if (m_DataModule->FOnActivate)
  41.     m_DataModule->FOnActivate([!CoClassName]);
  42.  
  43.   if (SUCCEEDED(hr))
  44.     return S_OK;
  45.   return hr;
  46. } 
  47.  
  48.  
  49. STDMETHODIMP_(BOOL) [!ClassName]::CanBePooled()
  50. {
  51. [!if=(CanBePooled, "FALSE")]
  52.   return FALSE;
  53. [!else]
  54.   return TRUE;
  55. [!endif]
  56. } 
  57.  
  58.  
  59. STDMETHODIMP_(void) [!ClassName]::Deactivate()
  60. {
  61.   // Fire 'OnDeactivate' event 
  62.   //
  63.   if (m_DataModule->FOnDeactivate)
  64.     m_DataModule->FOnDeactivate([!CoClassName]);
  65.  
  66.   // Release Object Context
  67.   //
  68.   m_spObjectContext.Release();
  69. } 
  70.  
  71. [!endif]
  72.  
  73.  
  74.