TfclFileSystem

type TfclFileSystem = class(TComponent)

protected

  FOptions: TFileSystemOptions;

  FPathSeparator: AnsiChar;

  FMaxSize: Int64;

  FOpen: Boolean;

  FOnWarning: TFileSystemWarningEvent;

  FOnGetPassword: TFileSystemGetPasswordEvent;

  FOnBeforeOpen: TFileSystemEvent;

  FOnBeforeClose: TFileSystemEvent;

  FOnOpen: TFileSystemEvent;

  FOnClose: TFileSystemEvent;

  FOnGrow: TFileSystemGrowEvent;

  FOnFormatComplete: TFileSystemEvent;

  FOnBeforeFileDelete: TFileSystemNameConfirmEvent;

  FOnFileDelete: TFileSystemNameEvent;

  FOnFileOpen: TFileSystemNameEvent;

  FOnBeforeDirectoryRemove: TFileSystemNameConfirmEvent;

  FOnDirectoryMake: TFileSystemNameEvent;

  FOnDirectoryRemove: TFileSystemNameEvent;

  FLock: TCriticalSection;

  FStream: TFileSystemReaderWriter;

  FHeader: TFileSystemHeaderBlock;

  FDeferredOpen: Boolean;

  FPasswordHash: T128BitDigest;

  FUseEncryption: Boolean;

  procedure Init; virtual;

  procedure LogWarning(); virtual;

  procedure Lock;

  procedure Unlock;

  procedure SetOpen();

  procedure SetOptions();

  procedure SetPathSeparator();

  procedure Loaded; override;

  function InitEncryption();

  procedure InitHeader;

  procedure ReadHeader;

  procedure WriteHeader;

  function GetGUID();

  function GetGUIDStr;

  function GetFileSystemName;

  procedure SetFileSystemName();

  function GetUserData;

  procedure SetUserData();

  function FindFreeBlock();

  function ReleaseFreeBlock;

  function RequireFreeBlock;

  function FindAvailFreeEntry();

  procedure AddFreeBlock();

  function FindDirectoryEntry();

  function FindUnusedDirectoryEntry();

  function FindDirectoryEntryByName();

  procedure DeleteDirectoryEntry();

  procedure RenameDirectoryEntry();

  procedure AddDirectoryEntry();

  procedure WriteDirectoryEntry();

  function FindRelDirectory();

  function FindDirectory();

  function FindFile();

  function FindDirectoryInfo();

  procedure GetAllocEntry();

  procedure FreeAllocEntry();

  procedure ResizeAllocEntry();

  procedure GetAllocInfo();

  procedure GrowAlloc();

  procedure ShrinkAlloc();

  procedure ResizeAlloc();

  function GetSize;

  procedure SetSize();

  procedure Grow;

  procedure CheckOpen;

  procedure CheckNotOpen;

public

  constructor Create(); override;

  constructor CreateEx();

  destructor Destroy; override;

  property Stream: TFileSystemReaderWriter; [r]

  property Options: TFileSystemOptions; [rw]

  property PathSeparator: AnsiChar; [rw]

  property MaxSize: Int64; [rw]

  property OnWarning: TFileSystemWarningEvent; [rw]

  procedure Format(); virtual;

  procedure Open(); virtual;

  procedure Close; virtual;

  property IsOpen: Boolean; [rw]

  property OnGetPassword: TFileSystemGetPasswordEvent; [rw]

  property OnBeforeOpen: TFileSystemEvent; [rw]

  property OnOpen: TFileSystemEvent; [rw]

  property OnBeforeClose: TFileSystemEvent; [rw]

  property OnClose: TFileSystemEvent; [rw]

  property OnGrow: TFileSystemGrowEvent; [rw]

  property OnFormatComplete: TFileSystemEvent; [rw]

  property GUID []: Word32; [r]

  property GUIDStr: RawByteString; [r]

  property FileSystemName: RawByteString; [rw]

  property UserData: RawByteString; [rw]

  property Size: Int64; [rw]

  function FileExists();

  function GetFileFlags();

  procedure SetFileFlags();

  function GetFileSize();

  function GetFileCreateTime();

  function GetFileAccessTime();

  function GetFileModifyTime();

  function GetFileGUID();

  function GetFileGUIDStr();

  procedure GetFileContentType();

  procedure SetFileContentType();

  function FindFirst();

  function OpenFile();

  function OpenFileStream();

  procedure DeleteFile();

  procedure RenameFile();

  procedure MakeDirectory();

  procedure RemoveDirectory();

  function DirectoryExists();

  procedure RenameDirectory();

  procedure EnsurePathExists();

  property OnBeforeFileDelete: TFileSystemNameConfirmEvent; [rw]

  property OnFileDelete: TFileSystemNameEvent; [rw]

  property OnFileOpen: TFileSystemNameEvent; [rw]

  property OnDirectoryMake: TFileSystemNameEvent; [rw]

  property OnBeforeDirectoryRemove: TFileSystemNameConfirmEvent; [rw]

  property OnDirectoryRemove: TFileSystemNameEvent; [rw]

end;

TfclFileSystem

TObject