home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / ISTREAMS.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-02-28  |  3.1 KB  |  94 lines
  1. //----------------------------------------------------------------------------
  2. // IStreams.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: IStreams.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef IStreamsHPP
  6. #define IStreamsHPP
  7. //----------------------------------------------------------------------------
  8. #include <SysUtils.hpp>
  9. #include <Classes.hpp>
  10. #include <VirtIntf.hpp>
  11. #include <System.hpp>
  12. #pragma warn -par
  13. #pragma warn -hid 
  14. #pragma warn -inl
  15.  
  16. namespace Istreams
  17. {
  18. //-- type declarations -------------------------------------------------------
  19. class __declspec(delphiclass) TIMemoryStream;
  20. class __declspec(pascalimplementation) TIMemoryStream : public Virtintf::TIStream
  21. {
  22.     typedef Virtintf::TIStream inherited;
  23.     
  24. private:
  25.     Classes::TMemoryStream* FMemoryStream;
  26.     bool FOwnStream;
  27.     long FModifyTime;
  28.     
  29. public:
  30.     __fastcall TIMemoryStream(Classes::TMemoryStream* AMemoryStream);
  31.     __fastcall virtual ~TIMemoryStream(void);
  32.     virtual long __stdcall Read(void *Buffer, long Count);
  33.     virtual long __stdcall Write(const void *Buffer, long Count);
  34.     virtual long __stdcall Seek(long Offset, Word Origin);
  35.     virtual long __stdcall GetModifyTime(void);
  36.     virtual void __stdcall SetModifyTime(long Time);
  37.     __property bool OwnStream = {read=FOwnStream, write=FOwnStream, nodefault};
  38.     __property Classes::TMemoryStream* MemoryStream = {read=FMemoryStream, nodefault};
  39. };
  40.  
  41. class __declspec(delphiclass) TIFileStream;
  42. class __declspec(pascalimplementation) TIFileStream : public Virtintf::TIStream
  43. {
  44.     typedef Virtintf::TIStream inherited;
  45.     
  46. private:
  47.     Classes::TFileStream* FFileStream;
  48.     
  49. public:
  50.     __fastcall TIFileStream(const System::AnsiString FileName, Word Mode);
  51.     __fastcall virtual ~TIFileStream(void);
  52.     virtual long __stdcall Read(void *Buffer, long Count);
  53.     virtual long __stdcall Write(const void *Buffer, long Count);
  54.     virtual long __stdcall Seek(long Offset, Word Origin);
  55.     virtual long __stdcall GetModifyTime(void);
  56.     virtual void __stdcall SetModifyTime(long Time);
  57.     __property Classes::TFileStream* FileStream = {read=FFileStream, nodefault};
  58. };
  59.  
  60. class __declspec(delphiclass) TVirtualStream;
  61. class __declspec(pascalimplementation) TVirtualStream : public Classes::TStream
  62. {
  63.     typedef Classes::TStream inherited;
  64.     
  65. private:
  66.     Virtintf::TIStream* FIStream;
  67.     
  68. public:
  69.     __fastcall TVirtualStream(Virtintf::TIStream* AIStream);
  70.     __fastcall virtual ~TVirtualStream(void);
  71.     virtual long __fastcall Read(void *Buffer, long Count);
  72.     virtual long __fastcall Write(const void *Buffer, long Count);
  73.     virtual long __fastcall Seek(long Offset, Word Origin);
  74.     long __fastcall GetModifyTime(void);
  75.     void __fastcall SetModifyTime(long Time);
  76. };
  77.  
  78. typedef void __fastcall (*TExceptionHandler)(void);
  79.  
  80. //-- var, const, procedure ---------------------------------------------------
  81. extern TExceptionHandler ExceptionHandler;
  82.  
  83. }    /* namespace Istreams */
  84.  
  85. #pragma warn .par
  86. #pragma warn .hid 
  87. #pragma warn .inl
  88.  
  89. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  90. using namespace Istreams;
  91. #endif
  92. //-- end unit ----------------------------------------------------------------
  93. #endif    // IStreams
  94.