myappserver_interfaceimpl.h

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

// MYAPPSERVER_INTERFACEIMPL.H : Declaration of the MyAppServer_Interface

#ifndef MyAppServer_InterfaceImplH
#define MyAppServer_InterfaceImplH

#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_Interface : public TCRemoteDataModule
{
__published:  // IDE-managed Components
    TDataSetProvider *DataSetProvider1;
    TQuery *Query1;
    TSession *Session1;
    TDatabase *Database1;
private:      // User declarations
public:       // User declarations
  __fastcall TMyAppServer_Interface(TComponent* Owner);

__published:
};


/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
extern PACKAGE TMyAppServer_Interface *MyAppServer_Interface;


/////////////////////////////////////////////////////////////////////////////
// TMyAppServer_InterfaceImpl     Implements IMyAppServer_Interface, default interface of MyAppServer_Interface
// ThreadingModel : Apartment
// Dual Interface : TRUE
// Event Support  : FALSE
// Default ProgID : Project1.MyAppServer_Interface
// Description    : 
/////////////////////////////////////////////////////////////////////////////
class ATL_NO_VTABLE TMyAppServer_InterfaceImpl: REMOTEDATAMODULE_IMPL(TMyAppServer_InterfaceImpl, MyAppServer_Interface, TMyAppServer_Interface, IMyAppServer_Interface)
{
public:

BEGIN_COM_MAP(TMyAppServer_InterfaceImpl)
  RDMOBJECT_COM_INTERFACE_ENTRIES(IMyAppServer_Interface)
END_COM_MAP()

  // Data used when registering Object 
  //
  DECLARE_THREADING_MODEL(otApartment);
  DECLARE_PROGID(_T("Project1.MyAppServer_Interface"));
  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_Interface
protected: 
  STDMETHOD(SetSQL(BSTR sSQL));
};

#endif  // MyAppServer_InterfaceImplH