home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk14 / doc.pak / ISTREAMS.INT < prev    next >
Encoding:
Text File  |  1995-08-24  |  1.9 KB  |  61 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Visual Component Library                 }
  5. {                                                       }
  6. {       Copyright (c) 1995 Borland International        }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit IStreams;
  11.  
  12. interface
  13.  
  14. uses VirtIntf, Classes, SysUtils;
  15.  
  16. type
  17.   { TIMemoryStream }
  18.  
  19.   TIMemoryStream = class(TIStream)
  20.   public
  21.     constructor Create(AMemoryStream: TMemoryStream);
  22.     destructor Destroy; override;
  23.     function Read(var Buffer; Count: Longint): Longint; override;
  24.     function Write(const Buffer; Count: Longint): Longint; override;
  25.     function Seek(Offset: Longint; Origin: Word): Longint; override;
  26.     function GetModifyTime: Longint; override;
  27.     property OwnStream: Boolean;
  28.     property MemoryStream: TMemoryStream;
  29.   end;
  30.  
  31.   { TIFileStream }
  32.  
  33.   TIFileStream = class(TIStream)
  34.   public
  35.     constructor Create(const FileName: string; Mode: Word);
  36.     destructor Destroy; override;
  37.     function Read(var Buffer; Count: Longint): Longint; override;
  38.     function Write(const Buffer; Count: Longint): Longint; override;
  39.     function Seek(Offset: Longint; Origin: Word): Longint; override;
  40.     function GetModifyTime: Longint; override;
  41.     property FileStream: TFileStream;
  42.   end;
  43.  
  44.   { TVirtualStream }
  45.  
  46.   TVirtualStream = class(TStream)
  47.   public
  48.     constructor Create(AIStream: TIStream);
  49.     function Read(var Buffer; Count: Longint): Longint; override;
  50.     function Write(const Buffer; Count: Longint): Longint; override;
  51.     function Seek(Offset: Longint; Origin: Word): Longint; override;
  52.     function GetModifyTime: Longint;
  53.   end;
  54.  
  55.   TExceptionHandler = procedure;
  56.  
  57. const
  58.   ExceptionHandler: TExceptionHandler = nil;
  59.  
  60. implementation
  61.