home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / asptlb.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  5KB  |  131 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) 'Asptlb.pas' rev: 5.00
  6.  
  7. #ifndef AsptlbHPP
  8. #define AsptlbHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Mtx.hpp>    // Pascal unit
  14. #include <ComObj.hpp>    // Pascal unit
  15. #include <ActiveX.hpp>    // Pascal unit
  16. #include <SysInit.hpp>    // Pascal unit
  17. #include <System.hpp>    // Pascal unit
  18.  
  19. //-- user supplied -----------------------------------------------------------
  20.  
  21. namespace Asptlb
  22. {
  23. //-- type declarations -------------------------------------------------------
  24. __interface IASPObject;
  25. typedef System::DelphiInterface<IASPObject> _di_IASPObject;
  26. __interface INTERFACE_UUID("{7A8B9910-F33C-11D2-9EDD-00C04F6539EE}") IASPObject  : public IUnknown 
  27. {
  28.     
  29. public:
  30.     virtual HRESULT __safecall OnStartPage(_di_IUnknown AScriptingContext) = 0 ;
  31.     virtual HRESULT __safecall OnEndPage(void) = 0 ;
  32. };
  33.  
  34. class DELPHICLASS TASPObject;
  35. class PASCALIMPLEMENTATION TASPObject : public TAutoObject 
  36. {
  37.     typedef TAutoObject inherited;
  38.     
  39. private:
  40.     _di_IScriptingContext FScriptingContext;
  41.     _di_IApplicationObject __fastcall GetApplication();
  42.     _di_IRequest __fastcall GetRequest();
  43.     _di_IResponse __fastcall GetResponse();
  44.     _di_IScriptingContext __fastcall GetScriptingContext();
  45.     _di_IServer __fastcall GetServer();
  46.     _di_ISessionObject __fastcall GetSession();
  47.     
  48. public:
  49.     HRESULT __safecall OnStartPage(_di_IUnknown AScriptingContext);
  50.     HRESULT __safecall OnEndPage(void);
  51.     __property _di_IScriptingContext ScriptingContext = {read=GetScriptingContext};
  52.     __property _di_IRequest Request = {read=GetRequest};
  53.     __property _di_IResponse Response = {read=GetResponse};
  54.     __property _di_ISessionObject Session = {read=GetSession};
  55.     __property _di_IServer Server = {read=GetServer};
  56.     __property _di_IApplicationObject Application = {read=GetApplication};
  57. public:
  58.     #pragma option push -w-inl
  59.     /* TComObject.Create */ inline __fastcall TASPObject(void) : TAutoObject() { }
  60.     #pragma option pop
  61.     #pragma option push -w-inl
  62.     /* TComObject.CreateAggregated */ inline __fastcall TASPObject(const _di_IUnknown Controller) : TAutoObject(
  63.         Controller) { }
  64.     #pragma option pop
  65.     #pragma option push -w-inl
  66.     /* TComObject.CreateFromFactory */ inline __fastcall TASPObject(TComObjectFactory* Factory, const _di_IUnknown 
  67.         Controller) : TAutoObject(Factory, Controller) { }
  68.     #pragma option pop
  69.     #pragma option push -w-inl
  70.     /* TComObject.Destroy */ inline __fastcall virtual ~TASPObject(void) { }
  71.     #pragma option pop
  72.     
  73. private:
  74.     void *__IASPObject;    /* Asptlb::IASPObject */
  75.     
  76. public:
  77.     operator IASPObject*(void) { return (IASPObject*)&__IASPObject; }
  78.     
  79. };
  80.  
  81.  
  82. class DELPHICLASS TASPMTSObject;
  83. class PASCALIMPLEMENTATION TASPMTSObject : public TAutoObject 
  84. {
  85.     typedef TAutoObject inherited;
  86.     
  87. private:
  88.     _di_IApplicationObject __fastcall GetApplication();
  89.     _di_IRequest __fastcall GetRequest();
  90.     _di_IResponse __fastcall GetResponse();
  91.     _di_IServer __fastcall GetServer();
  92.     _di_ISessionObject __fastcall GetSession();
  93.     
  94. public:
  95.     __property _di_IRequest Request = {read=GetRequest};
  96.     __property _di_IResponse Response = {read=GetResponse};
  97.     __property _di_ISessionObject Session = {read=GetSession};
  98.     __property _di_IServer Server = {read=GetServer};
  99.     __property _di_IApplicationObject Application = {read=GetApplication};
  100. public:
  101.     #pragma option push -w-inl
  102.     /* TComObject.Create */ inline __fastcall TASPMTSObject(void) : TAutoObject() { }
  103.     #pragma option pop
  104.     #pragma option push -w-inl
  105.     /* TComObject.CreateAggregated */ inline __fastcall TASPMTSObject(const _di_IUnknown Controller) : 
  106.         TAutoObject(Controller) { }
  107.     #pragma option pop
  108.     #pragma option push -w-inl
  109.     /* TComObject.CreateFromFactory */ inline __fastcall TASPMTSObject(TComObjectFactory* Factory, const 
  110.         _di_IUnknown Controller) : TAutoObject(Factory, Controller) { }
  111.     #pragma option pop
  112.     #pragma option push -w-inl
  113.     /* TComObject.Destroy */ inline __fastcall virtual ~TASPMTSObject(void) { }
  114.     #pragma option pop
  115.     
  116. };
  117.  
  118.  
  119. //-- var, const, procedure ---------------------------------------------------
  120.  
  121. }    /* namespace Asptlb */
  122. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  123. using namespace Asptlb;
  124. #endif
  125. #pragma option pop    // -w-
  126. #pragma option pop    // -Vx
  127.  
  128. #pragma delphiheader end.
  129. //-- end unit ----------------------------------------------------------------
  130. #endif    // Asptlb
  131.