home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk14 / doc.pak / VIRTINTF.INT < prev    next >
Encoding:
Text File  |  1995-08-24  |  1.1 KB  |  38 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Visual Component Library                 }
  5. {                                                       }
  6. {       Copyright (c) 1995 Borland International        }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit VirtIntf;
  11.  
  12. interface
  13.  
  14. const
  15.   FaultHandlerSignature = '__VCLFAULTHANDLER';
  16.  
  17. type
  18.   TInterface = class
  19.   public
  20.     procedure Free;
  21.     procedure Release; virtual; export;
  22.     function GetVersion: Integer; virtual; export;
  23.   end;
  24.  
  25.   { TIStream - This provides a pure virtual interface to a physical stream }
  26.  
  27.   TIStream = class(TInterface)
  28.   public
  29.     function Read(var Buffer; Count: Longint): Longint; virtual; export; abstract;
  30.     function Write(const Buffer; Count: Longint): Longint; virtual; export; abstract;
  31.     function Seek(Offset: Longint; Origin: Word): Longint; virtual; export; abstract;
  32.     function GetModifyTime: Longint; virtual; export; abstract;
  33.   end;
  34.  
  35. function ReleaseException: string;
  36.  
  37. implementation
  38.