DIR SCANNING COMPONENTS

These components will scan a given dir and generate an event each time a new file or directory is found or added.

TDADirScan will just scan the directory
TDADirScanTreeView will fill a treeview with its content
TDADirScanListView will fill a listview

You can subclass TDaDirScan if you want other components to be filled.

This component will allow you to separate the content (in this case : file system) from the way it is represented (treeview, listview or other).

TSEARCHRECCLASS

TSearchRecClass = class

     Time: Integer;

     Size: Integer;

     Attr: Integer;

     Name: String;

  end;



The data property is filled with
a TSearchRecClass object

FUNCTION TYPES

TDAFileFoundEvent = procedure(Sender : TObject; FileName : STring;
 var CanAdd : boolean) of object;

TDAFileAddedEvent = procedure(Sender : TObject; FileName : STring) of object;

TDADirFoundEvent = procedure(Sender : TObject; DirName : String; var CanAdd
: boolean) of object;

TDADirAddedEvent = procedure(Sender : TObject; DirName : String ) of object;

TDADirEndEvent = procedure(Sender : TObject; DirName : String;  FilesFound:
integer) of object;

TDADIRSCAN

Properties

Levels : integer
how deep the directory tree is scanned (should be >= 2 - if set too high may hang)
RecursiveScan : boolean
whether the scan is recursive
AcceptedFiles : TStrings
File Extensions which are accepted (* = all)
CompleteData : boolean
not used
Directory : String (runtime)
Directory To Scan

Methods

class function GetFirstDir(Dir : String) : String;
Gets first part of a directory
class function IsADir(Name : String) : boolean;
True if Name is a Directory
procedure Reload;
procedure ClearAll;to clean up

Events

OnDirFound : TDADirFoundEvent;
OnDirAdded : TDADirAddedEvent;
OnFileFound : TDAFileFoundEvent;
OnFileAdded : TDAFileAddedEvent;

TDADIRSCANTREEVIEW = class(TDADIRSCAN)

The treenode data is filled with a string which contains the complete filename. You can get the other attributes using the function GetSRForFile

Properties

property EmptyDirs : boolean;
whether empty directories are shown
property TreeView : TTreeView;
TreeView that will be filled

Methods

function GetFileNameAtNode(Node : TTreeNode) : String;
procedure FillNode(Node : TTreeNode; DirName : String);
Insert this method in the OnExpanding event when Levels is set low

Events

property OnDirEnd : TDADirEndEvent;

TDADIRSCANLISTVIEW = class(TDADIRSCAN)

The listitem data is filled with a string which contains the complete filename. You can get the other attributes using the function GetSRForFile

  TOnAddingSubItems = procedure (Sender : TObject; Item : TListItem;
SRC : TSearchRecClass) of object;

Properties

property ListView : TListView;
ListView that will be filled

Methods

function GetFileNameForItem(ListItem : TListItem) : String;

Events

OnAddingSubItems : TOnAddingSubItems;