TFileSystemReaderWriter

type TFileSystemReaderWriter = class

protected

  FStream: AStream;

  FStreamOwner: Boolean;

  FCacheSize: Integer;

  FLock: TCriticalSection;

  FAgeCounter: Word32;

  FBlockCache: array of TFileSystemBlock;

  FEncryptionKey: RawByteString;

  FUseEncryption: Boolean;

  procedure SetCacheSize();

  function GetCacheSizeKb;

  procedure SetCacheSizeKb();

  function GetStreamSize;

  procedure SetStreamSize();

  function LocateBlock();

  function AllocateBlock();

public

  constructor Create();

  destructor Destroy; override;

  property Stream: AStream; [r]

  property StreamOwner: Boolean; [rw]

  property StreamSize: Int64; [rw]

  property CacheSize: Integer; [rw]

  property CacheSizeKb: Integer; [rw]

  procedure Lock;

  procedure Unlock;

  function InitEncryption();

  procedure SetEncryption();

  procedure StreamReadBlock();

  procedure StreamWriteBlock();

  function GetBlock();

  procedure ReleaseBlock();

  procedure Flush;

  procedure RemoveCached();

  procedure ReadBlock();

  procedure WriteBlock();

  procedure ReadHeaderBlock();

  procedure WriteHeaderBlock();

  function GetDirectoryBlock();

  procedure ReleaseDirectoryBlock();

  function GetFreeBlock();

  procedure ReleaseFreeBlock();

  function GetAllocationBlock();

  procedure ReleaseAllocationBlock();

end;

TFileSystemReaderWriter

TObject