myautoobjimpl.cpp

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

// MYAUTOOBJIMPL : Implementation of TMyAutoObjImpl (CoClass: MyAutoObj, Interface: IMyAutoObj)

#include <vcl.h>
#pragma hdrstop

#include "MYAUTOOBJIMPL.H"
#include "Main.h"

/////////////////////////////////////////////////////////////////////////////
// TMyAutoObjImpl

STDMETHODIMP TMyAutoObjImpl::get_Text(long* Value)
{
  try
  {
    *Value=frmMain->CSpinEdit1->Value;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IMyAutoObj);
  }
  return S_OK;
};


STDMETHODIMP TMyAutoObjImpl::set_Text(long Value)
{
  try
  {
    frmMain->CSpinEdit1->Value=Value;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IMyAutoObj);
  }
  return S_OK;
};