src/CacheItem.pas - main - lasersquad/XFinder

src/CacheItem.pas
195 строк6 KB
lasersquad0
formatting changes
24 июн 2026, 17:49
24 июн 2026, 17:4982d3c48
unit CacheItem;

interface

uses System.Classes, System.SysUtils, Windows;

const NTFS_DIRECTORY_MASK = $10000000; // this is NTFS attr directory flag, we neeed to move it into DOS_DIR flag place

type

 TCacheItemRef = record
    ItemLevel: Cardinal;
    ItemIndex: Cardinal;
    constructor Create(level, index: Cardinal);
 end;

 TCacheItem = class
 public
  // FVolume: TVolumeCache; // refers to big object root cache object for single volume
   FParent: Cardinal;
   FLevel: Cardinal;  //TODO: idea: make it Word type instead of Cardinal and save two extra bytes for each CacheItem
   FFileAttrs: DWORD;
   FCreationTime: TFileTime;
   FLastAccessTime: TFileTime;
   FModifiedTime: TFileTime;
   FFileAttrsStr: string;
   FCreationTimeStr: string;
   FLastAccessTimeStr: string;
   FModifiedTimeStr: string;
   FFileCountStr: string;
   FFileSize: UInt64;
   FFileCount: Integer; // count of files and dirs in current directory (only in current directory) Integer - because for files we store -1 there for proper sorting with empty dirs
   FFileName: TFileName;
   FUpperCaseName: TFileName; // name of file/dir in upper case. need for search routines
   FDisplayName: string; // this field is NOT stored into index file
   FFileType: string;
   FPath: string; // full path to directory, for optimization filled only for items that were searched
   FOwner: string;
   FIconIndex: Integer;
   FDenied: Boolean;

   //constructor Create; overload;
   constructor Create(Parent, Level: Cardinal; var FileData: TWin32FindData); overload;
   procedure Assign(Other: TCacheItem);
   procedure Serialize(OStream: TStream);
   procedure Deserialize(IStream: TStream);
   function IsDirectory: Boolean;
   function IsReparsePoint: Boolean;
 end;

 TCacheItemExt = class(TCacheItem)
 public
   CacheItem: TCacheItem;
 end;

 function MakeFileSize(hi, lo: Cardinal) : UInt64; inline;


implementation

uses Functions;

function MakeFileSize(hi, lo: Cardinal) : UInt64; inline;
begin
  Result := (UInt64(hi) shl 32) + UInt64(lo);
end;

////////////////////////////////////
// TCacheItem class methods
///////////////////////////////////

constructor TCacheItemRef.Create(level: Cardinal; index: Cardinal);
begin
  ItemLevel := level;
  ItemIndex := index;
end;
   {
constructor TCacheItem.Create();
begin
  //FVolume := nil;
  FParent    := 0;
  FLevel     := 0;
  FFileAttrs := 0;
  FCreationTime.dwLowDateTime    := 0;
  FCreationTime.dwHighDateTime   := 0;
  FLastAccessTime.dwLowDateTime  := 0;
  FLastAccessTime.dwHighDateTime := 0;
  FModifiedTime.dwLowDateTime    := 0;
  FModifiedTime.dwHighDateTime   := 0;
  FFileSize  := 0;
  FFileCount := -1;
  FIconIndex := 0;
  FDenied    := False;
end;
    }
constructor TCacheItem.Create(Parent, Level: Cardinal; var FileData: TWin32FindData);
begin
 // Create(); // call default constructor to fill cache item with default values
  //FVolume := Volume;
  FParent         := Parent;
  FLevel          := Level;
  FFileName       := FileData.cFileName;
  FDisplayName    := FFileName;
  FFileAttrs      := FileData.dwFileAttributes;
  FCreationTime   := FileData.ftCreationTime;
  FLastAccessTime := FileData.ftLastAccessTime;
  FModifiedTime   := FileData.ftLastWriteTime;
  FFileSize       := MakeFileSize(FileData.nFileSizeHigh, FileData.nFileSizeLow);
  FUpperCaseName  := AnsiUpperCase(FFileName);
  FFileCount := -1;  // -1 is to differ from empty folders where FFileCount=0
  FIconIndex := 0;
  FDenied    := False;

  // both DIR bits shall be either set or both cleared, compatibility with direct NTFS reader
  if FFileAttrs AND FILE_ATTRIBUTE_DIRECTORY = FILE_ATTRIBUTE_DIRECTORY then FFileAttrs := FFileAttrs OR NTFS_DIRECTORY_MASK;
end;

procedure TCacheItem.Assign(Other: TCacheItem);
begin
  //FVolume         := Other.FVolume;
  FParent         := Other.FParent;
  FLevel          := Other.FLevel;
  FFileAttrs      := Other.FFileAttrs;
  FCreationTime   := Other.FCreationTime;
  FLastAccessTime := Other.FLastAccessTime;
  FModifiedTime   := Other.FModifiedTime;
  FFileSize       := Other.FFileSize;
  FFileCount      := Other.FFileCount;
  FUpperCaseName  := Other.FUpperCaseName;
  FDisplayName    := Other.FDisplayName;
  FFileType       := Other.FFileType;
  FIconIndex      := Other.FIconIndex;
  FDenied         := Other.FDenied;
  FOwner          := Other.FOwner;
end;

procedure TCacheItem.Serialize(OStream: TStream);
begin
  OStream.WriteData<Cardinal>(FParent);
  OStream.WriteData<Cardinal>(FFileAttrs);
  OStream.WriteData<TFileTime>(FCreationTime);
  OStream.WriteData<TFileTime>(FLastAccessTime);
  OStream.WriteData<TFileTime>(FModifiedTime);
  OStream.WriteData<UInt64>(FFileSize);
  OStream.WriteData<Integer>(FFileCount); //TODO: optimization: we may not store FFileCount for files, store it only for dirs - save place in index file
  OStream.WriteData<Cardinal>(FLevel);
  OStream.WriteData<Boolean>(FDenied);

  WriteStringToStream(OStream, FFileName);
  WriteStringToStream(OStream, FOwner);

  //var lenBytes := ByteLength(FFileName); //StrLen(FFileData.cFileName) * sizeof(FFileData.cFileName[0]);
  //Assert(lenBytes < MAX_PATH * sizeof(FFileName[1]));
  //OStream.WriteData<Integer>(lenBytes);
  //OStream.Write(FFileName[1], lenBytes);
end;

procedure TCacheItem.Deserialize(IStream: TStream);
//var
//  lenBytes: Cardinal;
begin
  IStream.ReadData<Cardinal>(FParent);
  IStream.ReadData<Cardinal>(FFileAttrs);
  IStream.ReadData<TFileTime>(FCreationTime);
  IStream.ReadData<TFileTime>(FLastAccessTime);
  IStream.ReadData<TFileTime>(FModifiedTime);
  IStream.ReadData<UInt64>(FFileSize);
  IStream.ReadData<Integer>(FFileCount); // optimization: we may not store FFileCount for files, store it only for dirs - save plave in index file
  IStream.ReadData<Cardinal>(FLevel);
  IStream.ReadData<Boolean>(FDenied);

  FFileName := ReadStringFromStream(IStream);
  FOwner := ReadStringFromStream(IStream);

  //IStream.ReadData<Cardinal>(lenBytes);
  //Assert(lenBytes < MAX_PATH * sizeof(FFileName[1]));
  //SetLength(FFileName, lenBytes div sizeof(FFileName[1])); // SetLength needs size in characters
  //IStream.Read(FFileName[1], lenBytes);

  FUpperCaseName := AnsiUpperCase(FFileName);
  FDisplayName := FFileName;
end;

function TCacheItem.IsDirectory: Boolean;
begin
  IsDirectory := (FFileAttrs AND FILE_ATTRIBUTE_DIRECTORY) > 0;
end;

function TCacheItem.IsReparsePoint: Boolean;
begin
  IsReparsePoint := (FFileAttrs and FILE_ATTRIBUTE_REPARSE_POINT) > 0;
end;


end.