myappserver_queryimpl.h

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

// MYAPPSERVER_QUERYIMPL.H : Declaration of the MyAppServer_Query

#ifndef MyAppServer_QueryImplH
#define MyAppServer_QueryImplH

#define ATL_FREE_THREADED
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <MidConst.hpp>

#include "Project1_TLB.H"
#include <DB.hpp>
#include <DBTables.hpp>
#include <Provider.hpp>
#include <atl/atlvcl.h>



// Forward ref. of IAppServer implementor


/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
class TMyAppServer_Query : public TCRemoteDataModule
{
__published:  // IDE-managed Components
    TDataSetProvider *DataSetProvider1;
    TQuery *Query1;
    TSession *Session1;
private:      // User declarations
public:       // User declarations
  __fastcall TMyAppServer_Query(TComponent* Owner);

__published:
};


/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
extern PACKAGE TMyAppServer_Query *MyAppServer_Query;


/////////////////////////////////////////////////////////////////////////////
// TMyAppServer_QueryImpl     Implements IMyAppServer_Query, default interface of MyAppServer_Query
// ThreadingModel : Apartment
// Dual Interface : TRUE
// Event Support  : FALSE
// Default ProgID : Project1.MyAppServer_Query
// Description    : 
/////////////////////////////////////////////////////////////////////////////
class ATL_NO_VTABLE TMyAppServer_QueryImpl: REMOTEDATAMODULE_IMPL(TMyAppServer_QueryImpl, MyAppServer_Query, TMyAppServer_Query, IMyAppServer_Query)
{
public:

BEGIN_COM_MAP(TMyAppServer_QueryImpl)
  RDMOBJECT_COM_INTERFACE_ENTRIES(IMyAppServer_Query)
END_COM_MAP()

  // Data used when registering Object 
  //
  DECLARE_THREADING_MODEL(otApartment);
  DECLARE_PROGID(_T("Project1.MyAppServer_Query"));
  DECLARE_DESCRIPTION(_T(""));

  // Function invoked to (un)register object
  //
  static HRESULT WINAPI UpdateRegistry(BOOL bRegister)
  {
    TRemoteDataModuleRegistrar regObj(GetObjectCLSID(), GetProgID(), GetDescription());
    // Disable these flags in order to disable use by socket or web connections.
    // Also set other flags to configure the behavior of your application server.
    // For more information, see atlmod.h and atlvcl.cpp.
    regObj.Singleton = false;
    regObj.EnableWeb = true;
    regObj.EnableSocket = true;
    return regObj.UpdateRegistry(bRegister);
  }


// IMyAppServer_Query
protected:
};

#endif  // MyAppServer_QueryImplH