home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Include / Vcl / DSPROD.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  2.1 KB  |  70 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) 'DSProd.pas' rev: 4.00
  6.  
  7. #ifndef DSProdHPP
  8. #define DSProdHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #include <Db.hpp>    // Pascal unit
  13. #include <HTTPApp.hpp>    // Pascal unit
  14. #include <Classes.hpp>    // Pascal unit
  15. #include <SysInit.hpp>    // Pascal unit
  16. #include <System.hpp>    // Pascal unit
  17.  
  18. //-- user supplied -----------------------------------------------------------
  19.  
  20. namespace Dsprod
  21. {
  22. //-- type declarations -------------------------------------------------------
  23. class DELPHICLASS TDataSetPageProducer;
  24. #pragma pack(push, 4)
  25. class PASCALIMPLEMENTATION TDataSetPageProducer : public Httpapp::TPageProducer 
  26. {
  27.     typedef Httpapp::TPageProducer inherited;
  28.     
  29. private:
  30.     Db::TDataSet* FDataSet;
  31.     
  32. protected:
  33.     virtual Db::TDataSet* __fastcall GetDataSet(void);
  34.     virtual void __fastcall SetDataSet(Db::TDataSet* ADataSet);
  35.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  36.         );
  37.     DYNAMIC void __fastcall DoTagEvent(Httpapp::TTag Tag, const AnsiString TagString, Classes::TStrings* 
  38.         TagParams, AnsiString &ReplaceText);
  39.     
  40. public:
  41.     virtual AnsiString __fastcall Content();
  42.     
  43. __published:
  44.     __property Db::TDataSet* DataSet = {read=GetDataSet, write=SetDataSet};
  45.     __property OnHTMLTag ;
  46. public:
  47.     #pragma option push -w-inl
  48.     /* TCustomPageProducer.Create */ inline __fastcall virtual TDataSetPageProducer(Classes::TComponent* 
  49.         AOwner) : Httpapp::TPageProducer(AOwner) { }
  50.     #pragma option pop
  51.     #pragma option push -w-inl
  52.     /* TCustomPageProducer.Destroy */ inline __fastcall virtual ~TDataSetPageProducer(void) { }
  53.     #pragma option pop
  54.     
  55. };
  56.  
  57. #pragma pack(pop)
  58.  
  59. //-- var, const, procedure ---------------------------------------------------
  60.  
  61. }    /* namespace Dsprod */
  62. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  63. using namespace Dsprod;
  64. #endif
  65. #pragma option pop    // -w-
  66.  
  67. #pragma delphiheader end.
  68. //-- end unit ----------------------------------------------------------------
  69. #endif    // DSProd
  70.