home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / istreams.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  4KB  |  138 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) 'IStreams.pas' rev: 5.00
  6.  
  7. #ifndef IStreamsHPP
  8. #define IStreamsHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <AxCtrls.hpp>    // Pascal unit
  14. #include <VirtIntf.hpp>    // Pascal unit
  15. #include <Classes.hpp>    // Pascal unit
  16. #include <SysUtils.hpp>    // Pascal unit
  17. #include <ActiveX.hpp>    // Pascal unit
  18. #include <Windows.hpp>    // Pascal unit
  19. #include <SysInit.hpp>    // Pascal unit
  20. #include <System.hpp>    // Pascal unit
  21.  
  22. //-- user supplied -----------------------------------------------------------
  23.  
  24. namespace Istreams
  25. {
  26. //-- type declarations -------------------------------------------------------
  27. class DELPHICLASS TIStreamAdapter;
  28. class PASCALIMPLEMENTATION TIStreamAdapter : public Classes::TStreamAdapter 
  29. {
  30.     typedef Classes::TStreamAdapter inherited;
  31.     
  32. protected:
  33.     int FModifyTime;
  34.     
  35. public:
  36.     __fastcall TIStreamAdapter(Classes::TStream* Stream, Classes::TStreamOwnership Ownership);
  37.     virtual HRESULT __stdcall Write(void * pv, int cb, Windows::PLongint pcbWritten);
  38.     virtual HRESULT __stdcall Stat(/* out */ tagSTATSTG &statstg, int grfStatFlag);
  39.     virtual int __stdcall GetModifyTime(void);
  40.     virtual void __stdcall SetModifyTime(int Value);
  41. public:
  42.     #pragma option push -w-inl
  43.     /* TStreamAdapter.Destroy */ inline __fastcall virtual ~TIStreamAdapter(void) { }
  44.     #pragma option pop
  45.     
  46. private:
  47.     void *__IStreamModifyTime;    /* Virtintf::IStreamModifyTime */
  48.     
  49. public:
  50.     operator IStreamModifyTime*(void) { return (IStreamModifyTime*)&__IStreamModifyTime; }
  51.     
  52. };
  53.  
  54.  
  55. class DELPHICLASS TIMemoryStream;
  56. class PASCALIMPLEMENTATION TIMemoryStream : public TIStreamAdapter 
  57. {
  58.     typedef TIStreamAdapter inherited;
  59.     
  60. private:
  61.     Classes::TMemoryStream* __fastcall GetMemoryStream(void);
  62.     
  63. public:
  64.     __fastcall TIMemoryStream(Classes::TMemoryStream* Stream, Classes::TStreamOwnership Ownership);
  65.     __property Classes::TMemoryStream* MemoryStream = {read=GetMemoryStream};
  66. public:
  67.     #pragma option push -w-inl
  68.     /* TStreamAdapter.Destroy */ inline __fastcall virtual ~TIMemoryStream(void) { }
  69.     #pragma option pop
  70.     
  71. };
  72.  
  73.  
  74. class DELPHICLASS TIFileStream;
  75. class PASCALIMPLEMENTATION TIFileStream : public Classes::TStreamAdapter 
  76. {
  77.     typedef Classes::TStreamAdapter inherited;
  78.     
  79. private:
  80.     Classes::TFileStream* __fastcall GetFileStream(void);
  81.     
  82. public:
  83.     __fastcall TIFileStream(const AnsiString FileName, Word Mode);
  84.     virtual HRESULT __stdcall Commit(int grfCommitFlags);
  85.     virtual HRESULT __stdcall Stat(/* out */ tagSTATSTG &statstg, int grfStatFlag);
  86.     int __stdcall GetModifyTime(void);
  87.     void __stdcall SetModifyTime(int Time);
  88.     __property Classes::TFileStream* FileStream = {read=GetFileStream};
  89. public:
  90.     #pragma option push -w-inl
  91.     /* TStreamAdapter.Destroy */ inline __fastcall virtual ~TIFileStream(void) { }
  92.     #pragma option pop
  93.     
  94. private:
  95.     void *__IStreamModifyTime;    /* Virtintf::IStreamModifyTime */
  96.     
  97. public:
  98.     operator IStreamModifyTime*(void) { return (IStreamModifyTime*)&__IStreamModifyTime; }
  99.     
  100. };
  101.  
  102.  
  103. class DELPHICLASS TVirtualStream;
  104. class PASCALIMPLEMENTATION TVirtualStream : public Axctrls::TOleStream 
  105. {
  106.     typedef Axctrls::TOleStream inherited;
  107.     
  108. private:
  109.     Virtintf::_di_IStreamModifyTime FStreamModifyTime;
  110.     
  111. public:
  112.     __fastcall TVirtualStream(_di_IStream AStream);
  113.     int __fastcall GetModifyTime(void);
  114.     void __fastcall SetModifyTime(int Time);
  115. public:
  116.     #pragma option push -w-inl
  117.     /* TObject.Destroy */ inline __fastcall virtual ~TVirtualStream(void) { }
  118.     #pragma option pop
  119.     
  120. };
  121.  
  122.  
  123. typedef void __fastcall (*TExceptionHandler)(void);
  124.  
  125. //-- var, const, procedure ---------------------------------------------------
  126. extern PACKAGE TExceptionHandler ExceptionHandler;
  127.  
  128. }    /* namespace Istreams */
  129. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  130. using namespace Istreams;
  131. #endif
  132. #pragma option pop    // -w-
  133. #pragma option pop    // -Vx
  134.  
  135. #pragma delphiheader end.
  136. //-- end unit ----------------------------------------------------------------
  137. #endif    // IStreams
  138.