mycomobjectimpl.cpp

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

// MYCOMOBJECTIMPL : Implementation of TMyComObjectImpl (CoClass: MyComObject, Interface: IMyComObject)

#include <vcl.h>
#pragma hdrstop

#include "MYCOMOBJECTIMPL.H"

/////////////////////////////////////////////////////////////////////////////
// TMyComObjectImpl

STDMETHODIMP TMyComObjectImpl::ShowDialog()
{
  try
  {
    Application->MessageBoxA("ShowDialog Called","show",MB_OK);
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IMyComObject);
  }
  return S_OK;
};