home *** CD-ROM | disk | FTP | other *** search
- //----------------------------------------------------------------------------
- // IStreams.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
- // From: IStreams.pas
- //----------------------------------------------------------------------------
- #ifndef IStreamsHPP
- #define IStreamsHPP
- //----------------------------------------------------------------------------
- #include <SysUtils.hpp>
- #include <Classes.hpp>
- #include <VirtIntf.hpp>
- #include <System.hpp>
- #pragma warn -par
- #pragma warn -hid
- #pragma warn -inl
-
- namespace Istreams
- {
- //-- type declarations -------------------------------------------------------
- class __declspec(delphiclass) TIMemoryStream;
- class __declspec(pascalimplementation) TIMemoryStream : public Virtintf::TIStream
- {
- typedef Virtintf::TIStream inherited;
-
- private:
- Classes::TMemoryStream* FMemoryStream;
- bool FOwnStream;
- long FModifyTime;
-
- public:
- __fastcall TIMemoryStream(Classes::TMemoryStream* AMemoryStream);
- __fastcall virtual ~TIMemoryStream(void);
- virtual long __stdcall Read(void *Buffer, long Count);
- virtual long __stdcall Write(const void *Buffer, long Count);
- virtual long __stdcall Seek(long Offset, Word Origin);
- virtual long __stdcall GetModifyTime(void);
- virtual void __stdcall SetModifyTime(long Time);
- __property bool OwnStream = {read=FOwnStream, write=FOwnStream, nodefault};
- __property Classes::TMemoryStream* MemoryStream = {read=FMemoryStream, nodefault};
- };
-
- class __declspec(delphiclass) TIFileStream;
- class __declspec(pascalimplementation) TIFileStream : public Virtintf::TIStream
- {
- typedef Virtintf::TIStream inherited;
-
- private:
- Classes::TFileStream* FFileStream;
-
- public:
- __fastcall TIFileStream(const System::AnsiString FileName, Word Mode);
- __fastcall virtual ~TIFileStream(void);
- virtual long __stdcall Read(void *Buffer, long Count);
- virtual long __stdcall Write(const void *Buffer, long Count);
- virtual long __stdcall Seek(long Offset, Word Origin);
- virtual long __stdcall GetModifyTime(void);
- virtual void __stdcall SetModifyTime(long Time);
- __property Classes::TFileStream* FileStream = {read=FFileStream, nodefault};
- };
-
- class __declspec(delphiclass) TVirtualStream;
- class __declspec(pascalimplementation) TVirtualStream : public Classes::TStream
- {
- typedef Classes::TStream inherited;
-
- private:
- Virtintf::TIStream* FIStream;
-
- public:
- __fastcall TVirtualStream(Virtintf::TIStream* AIStream);
- __fastcall virtual ~TVirtualStream(void);
- virtual long __fastcall Read(void *Buffer, long Count);
- virtual long __fastcall Write(const void *Buffer, long Count);
- virtual long __fastcall Seek(long Offset, Word Origin);
- long __fastcall GetModifyTime(void);
- void __fastcall SetModifyTime(long Time);
- };
-
- typedef void __fastcall (*TExceptionHandler)(void);
-
- //-- var, const, procedure ---------------------------------------------------
- extern TExceptionHandler ExceptionHandler;
-
- } /* namespace Istreams */
-
- #pragma warn .par
- #pragma warn .hid
- #pragma warn .inl
-
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Istreams;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // IStreams
-