Delphi Database, Delphi Components from ComponentAce

TZipForge.TestFiles
TZipForge Example

Top

Tests files stored within the archive.

procedure TestFiles; overload;
procedure TestFiles(
         FileMask:    String;
         SearchAttr:    Word = faAnyFile;
         ExclusionMask: String = ''); overload;

Description
Use TestFiles to test files stored within the open archive file. Selected files will be extracted to temporary directory specified by TempDir property. TestFiles will delete these temporary files after testing. If errors occurs during test operation OnProcessFileFailure event will be triggered. If there is no event handler available then exception will be raised. If Options.Recurse is set to True, TestFiles will search files recursively.

TestFiles variant without parameters uses FileMasks, ExclusionMasks and Options.SearchAttr to specify search conditions and to exclude files from test operation.

The FileMask parameter is the directory and file name mask, including wildcard characters. For example, 'TEST\*.*' specifies all files in the TEST directory stored within the archive file. All files that meets FileMask and SearchAttr will be tested.

The SearchAttr parameter specifies the special files to include in addition to all normal files. This parameter is similar to the Attr parameter in FindFirst function from SysUtils unit. You can set it to any combination of faReadOnly, faHidden, faSysFile, faVolumeID, faDirectory, faArchive constants defined in SysUtils or value faAnyFile meaning that any file meets search condition.

The ExclusionMask specifies files to be excluded from test operation.

Note: Any transaction must be finished before calling TestFiles. Otherwise an exception will be raised. Also if some other errors occurs an exception will be raised. Write an OnProcessFileFailure event handler to perform your own error handling.

Nov 23, 2024