eventcomimpl.cpp

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

// EVENTCOMIMPL : Implementation of TEventComImpl (CoClass: EventCom, Interface: IEventCom)

#include <vcl.h>
#pragma hdrstop

#include "EVENTCOMIMPL.H"

/////////////////////////////////////////////////////////////////////////////
// TEventComImpl

STDMETHODIMP TEventComImpl::SetNum(long NumValue)
{
  try
  {
    if(NumValue==10) Fire_OnTen();
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IEventCom);
  }
  return S_OK;
};