mycomproobjimpl.cpp

C++Builder高级应用开发指南随书源码

// MYCOMPROOBJIMPL : Implementation of TMyComProObjImpl

#include <vcl.h>
#pragma hdrstop

#include "MYCOMPROOBJIMPL.H"

/////////////////////////////////////////////////////////////////////////////
// TMyComProObjImpl


STDMETHODIMP TMyComProObjImpl::Activate()
{
  static TMtsDll Mts;
  HRESULT hr = E_FAIL;
  hr = Mts.Get_ObjectContext(&m_spObjectContext);
  if (SUCCEEDED(hr))
    return S_OK;
  return hr;
} 


STDMETHODIMP_(BOOL) TMyComProObjImpl::CanBePooled()
{
  return TRUE;
} 


STDMETHODIMP_(void) TMyComProObjImpl::Deactivate()
{
  m_spObjectContext.Release();
}

STDMETHODIMP TMyComProObjImpl::Deposit(long Value)
{
    FMoney += Value;
    Sleep(3000);
    return 0;
}

STDMETHODIMP TMyComProObjImpl::get_Money(long* Value)
{
  try
  {
    *Value = FMoney;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IMyComProObj);
  }
  return S_OK;
};


STDMETHODIMP TMyComProObjImpl::WithDraw(long Value)
{
    FMoney -= Value;
    Sleep(3000);    
    return 0;
}