myappserver_interfaceimpl.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "MYAPPSERVER_INTERFACEIMPL.H"

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

#pragma resource "*.dfm"


/////////////////////////////////////////////////////////////////////////////
// Global instance of TMyAppServer_InterfaceImpl 
/////////////////////////////////////////////////////////////////////////////
TMyAppServer_Interface *MyAppServer_Interface;


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





STDMETHODIMP TMyAppServer_InterfaceImpl::SetSQL(BSTR sSQL)
{ 
    m_DataModule->Query1->Close();
    m_DataModule ->Query1->SQL->Clear();
    m_DataModule ->Query1->SQL->Add(sSQL);
    m_DataModule ->Query1->Open();
    return S_OK;
}