home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / databkr.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  5KB  |  133 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'DataBkr.pas' rev: 5.00
  6.  
  7. #ifndef DataBkrHPP
  8. #define DataBkrHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <SysUtils.hpp>    // Pascal unit
  14. #include <Provider.hpp>    // Pascal unit
  15. #include <Forms.hpp>    // Pascal unit
  16. #include <Midas.hpp>    // Pascal unit
  17. #include <Classes.hpp>    // Pascal unit
  18. #include <ActiveX.hpp>    // Pascal unit
  19. #include <Windows.hpp>    // Pascal unit
  20. #include <SysInit.hpp>    // Pascal unit
  21. #include <System.hpp>    // Pascal unit
  22.  
  23. //-- user supplied -----------------------------------------------------------
  24.  
  25. namespace Databkr
  26. {
  27. //-- type declarations -------------------------------------------------------
  28. class DELPHICLASS TRemoteDataModule;
  29. class PASCALIMPLEMENTATION TRemoteDataModule : public Forms::TDataModule 
  30. {
  31.     typedef Forms::TDataModule inherited;
  32.     
  33. private:
  34.     Classes::TList* FProviders;
  35.     _RTL_CRITICAL_SECTION FLock;
  36.     
  37. protected:
  38.     virtual Provider::TCustomProvider* __fastcall GetProvider(const AnsiString ProviderName);
  39.     #pragma option push -w-inl
  40.     /* virtual class method */ virtual void __fastcall UpdateRegistry(bool Register, const AnsiString ClassID
  41.         , const AnsiString ProgID) { UpdateRegistry(__classid(TRemoteDataModule), Register, ClassID, ProgID
  42.         ); }
  43.     #pragma option pop
  44.     /*         class method */ static void __fastcall UpdateRegistry(TMetaClass* vmt, bool Register, const 
  45.         AnsiString ClassID, const AnsiString ProgID);
  46.     HRESULT __safecall AS_GetProviderNames(OleVariant &AS_GetProviderNames_result);
  47.     HRESULT __safecall AS_ApplyUpdates(const WideString ProviderName, const OleVariant Delta, int MaxErrors
  48.         , /* out */ int &ErrorCount, OleVariant &OwnerData, OleVariant &AS_ApplyUpdates_result);
  49.     HRESULT __safecall AS_GetRecords(const WideString ProviderName, int Count, /* out */ int &RecsOut, 
  50.         int Options, const WideString CommandText, OleVariant &Params, OleVariant &OwnerData, OleVariant &AS_GetRecords_result
  51.         );
  52.     HRESULT __safecall AS_DataRequest(const WideString ProviderName, const OleVariant Data, OleVariant &AS_DataRequest_result
  53.         );
  54.     HRESULT __safecall AS_GetParams(const WideString ProviderName, OleVariant &OwnerData, OleVariant &AS_GetParams_result
  55.         );
  56.     HRESULT __safecall AS_RowRequest(const WideString ProviderName, const OleVariant Row, int RequestType
  57.         , OleVariant &OwnerData, OleVariant &AS_RowRequest_result);
  58.     HRESULT __safecall AS_Execute(const WideString ProviderName, const WideString CommandText, OleVariant 
  59.         &Params, OleVariant &OwnerData);
  60.     
  61. public:
  62.     __fastcall virtual TRemoteDataModule(Classes::TComponent* AOwner);
  63.     __fastcall virtual ~TRemoteDataModule(void);
  64.     virtual void __fastcall RegisterProvider(Provider::TCustomProvider* Value);
  65.     virtual void __fastcall UnRegisterProvider(Provider::TCustomProvider* Value);
  66.     virtual void __fastcall Lock(void);
  67.     virtual void __fastcall Unlock(void);
  68.     __property Provider::TCustomProvider* Providers[AnsiString ProviderName] = {read=GetProvider};
  69. public:
  70.         
  71.     #pragma option push -w-inl
  72.     /* TDataModule.CreateNew */ inline __fastcall virtual TRemoteDataModule(Classes::TComponent* AOwner
  73.         , int Dummy) : Forms::TDataModule(AOwner, Dummy) { }
  74.     #pragma option pop
  75.     
  76. private:
  77.     void *__IAppServer;    /* Midas::IAppServer */
  78.     
  79. public:
  80.     operator IAppServer*(void) { return (IAppServer*)&__IAppServer; }
  81.     
  82. };
  83.  
  84.  
  85. class DELPHICLASS TCRemoteDataModule;
  86. class PASCALIMPLEMENTATION TCRemoteDataModule : public Forms::TDataModule 
  87. {
  88.     typedef Forms::TDataModule inherited;
  89.     
  90. private:
  91.     Classes::TList* FProviders;
  92.     _RTL_CRITICAL_SECTION FLock;
  93.     
  94. public:
  95.     __fastcall virtual TCRemoteDataModule(Classes::TComponent* AOwner);
  96.     __fastcall virtual ~TCRemoteDataModule(void);
  97.     virtual void __fastcall RegisterProvider(Provider::TCustomProvider* Value);
  98.     virtual void __fastcall UnRegisterProvider(Provider::TCustomProvider* Value);
  99.     virtual void __fastcall Lock(void);
  100.     virtual void __fastcall UnLock(void);
  101.     OleVariant __fastcall CRDMGetProviderNames();
  102.     virtual Provider::TCustomProvider* __fastcall GetProvider(const AnsiString ProviderName);
  103.     __property Provider::TCustomProvider* Providers[AnsiString ProviderName] = {read=GetProvider};
  104. public:
  105.         
  106.     #pragma option push -w-inl
  107.     /* TDataModule.CreateNew */ inline __fastcall virtual TCRemoteDataModule(Classes::TComponent* AOwner
  108.         , int Dummy) : Forms::TDataModule(AOwner, Dummy) { }
  109.     #pragma option pop
  110.     
  111. };
  112.  
  113.  
  114. //-- var, const, procedure ---------------------------------------------------
  115. extern PACKAGE void __fastcall RegisterPooled(const AnsiString ClassID, int Max, int Timeout, bool Singleton
  116.     );
  117. extern PACKAGE void __fastcall UnregisterPooled(const AnsiString ClassID);
  118. extern PACKAGE void __fastcall EnableSocketTransport(const AnsiString ClassID);
  119. extern PACKAGE void __fastcall DisableSocketTransport(const AnsiString ClassID);
  120. extern PACKAGE void __fastcall EnableWebTransport(const AnsiString ClassID);
  121. extern PACKAGE void __fastcall DisableWebTransport(const AnsiString ClassID);
  122.  
  123. }    /* namespace Databkr */
  124. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  125. using namespace Databkr;
  126. #endif
  127. #pragma option pop    // -w-
  128. #pragma option pop    // -Vx
  129.  
  130. #pragma delphiheader end.
  131. //-- end unit ----------------------------------------------------------------
  132. #endif    // DataBkr
  133.