myappserver_multimodule_mainimpl.cpp

bcb应用开发技术解析 包括多线程

#include <vcl.h>
#pragma hdrstop

#include "MYAPPSERVER_MULTIMODULE_MAINIMPL.H"

#if !defined(__PRAGMA_SMART_INIT_DEFINED)
#define __PRAGMA_SMART_INIT_DEFINED
#pragma package(smart_init)
#endif

#pragma resource "*.dfm"


/////////////////////////////////////////////////////////////////////////////
// Global instance of TMyAppServer_MultiModule_MainImpl
/////////////////////////////////////////////////////////////////////////////
TMyAppServer_MultiModule_Main *MyAppServer_MultiModule_Main;


/////////////////////////////////////////////////////////////////////////////
// TMyAppServer_MultiModule_Main::TMyAppServer_MultiModule_Main
/////////////////////////////////////////////////////////////////////////////
__fastcall TMyAppServer_MultiModule_Main::TMyAppServer_MultiModule_Main(TComponent* Owner) : TCRemoteDataModule(Owner)
{
}





STDMETHODIMP TMyAppServer_MultiModule_MainImpl::get_ChildRDM(
  IMyAppServer_MultiModule_Child** Value)
{
  try
  {
    Value=m_MyAppServer_MultiModule_Client
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IMyAppServer_MultiModule_Main);
  }
  return S_OK;
};