myappserverimpl.h

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

// MYAPPSERVERIMPL.H : Declaration of the MyAppServer

#ifndef MyAppServerImplH
#define MyAppServerImplH

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

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



// Forward ref. of IAppServer implementor


/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
class TMyAppServer : public TCRemoteDataModule
{
__published:  // IDE-managed Components
    TTable *Table1;
    TDataSetProvider *DataSetProvider1;
private:      // User declarations
public:       // User declarations
  __fastcall TMyAppServer(TComponent* Owner);

__published:
};


/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
extern PACKAGE TMyAppServer *MyAppServer;


/////////////////////////////////////////////////////////////////////////////
// TMyAppServerImpl     Implements IMyAppServer, default interface of MyAppServer
// ThreadingModel : Apartment
// Dual Interface : TRUE
// Event Support  : FALSE
// Default ProgID : Project2.MyAppServer
// Description    : 
/////////////////////////////////////////////////////////////////////////////
class ATL_NO_VTABLE TMyAppServerImpl: REMOTEDATAMODULE_IMPL(TMyAppServerImpl, MyAppServer, TMyAppServer, IMyAppServer)
{
public:

BEGIN_COM_MAP(TMyAppServerImpl)
  RDMOBJECT_COM_INTERFACE_ENTRIES(IMyAppServer)
END_COM_MAP()

  // Data used when registering Object 
  //
  DECLARE_THREADING_MODEL(otApartment);
  DECLARE_PROGID(_T("MyAppServer.MyAppServer"));
  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
protected:
};

#endif  // MyAppServerImplH