Class TYsflCompress (unit Ysflcmp) |
Inherits from
TLZHCompressor
constructor Create(AOwner: TComponent);
- String-manipulation routines
procedure Add(Cmd: TlzhCommand);
procedure CopyToDisk(Path: String);
Attach the correct date to the file!!!
destructor Destroy;
procedure Extract;
procedure List;
Now write all file headers
procedure AddOnGetBytes(var DTA;NBytes: WORD;var Bytes_Got: WORD);
procedure ExtractOnGetBytes(var DTA;NBytes: WORD;var Bytes_Got: WORD);
Update the file statistics header
procedure OnGetBytes(var DTA;NBytes: WORD;var Bytes_Got: WORD);
Protected declarations Update the file statistics header
procedure OnPutBytes(var DTA;NBytes: WORD;var Bytes_Put: WORD);
procedure ChangeToPartition(var Stream: THandleStream;Disk: Integer;var CF: String);
procedure ConvertFileHeadersToStats;
Converts the information in the FileHeaders array to appropriate total information
procedure ConvertFileHeaderToStats(FH: TlzhFileHeader);
procedure CopyStream(SourceStream,DestStream: THandleStream);
Trigger the status event
function FindFileHeader(FileName: String): TlzhFileHeader;
Finds a given file in the archive which is specified in the FileName parameter
function GetFileCount: Integer;
function GetFiles(I: Integer): TlzhFileStats;
procedure ReadInformation;
This procedure retrieves information from the CompressedFile into the
MainHeader and the FileHeaders object variable.
procedure SetCompressedFile(Value: String);
procedure SetFilesToProcess(List: TStrings);
property Abort : Boolean
Published declarations
property CompressedFile : String
property ExtractDirectory : String
property FilesToProcess : TStrings
property Overwrite : TOverwriteType
property ExtractName : String
Public declarations
property FileCount : Integer
property Files : TlzhFileStats
property SkipFile : Boolean
event OnAborted : TNotifyEvent
Events
event OnAfterAdding : TlzhFileStatsEvent
event OnAfterExtracting : TlzhFileStatsEvent
event OnBeforeAdding : TlzhFileStatsEvent
event OnBeforeExtracting : TlzhFileStatsEvent
event OnListing : TlzhFileStatsEvent
event OnNewDisk : TlzhNewDiskEvent
event OnReplace : TlzhFileStatsEvent
event OnStatus : TlzhFileStatsEvent
Action : TlzhAction;
Private declarations
CurrentDisk : Integer;
DestFile : THandleStream;
A memory cache of all the file's file headers
FAbort : Boolean;
Property field holders
FAbortedEvent : TNotifyEvent;
Events
FAfterAddingEvent : TlzhFileStatsEvent;
FAfterExtractingEvent : TlzhFileStatsEvent;
FBeforeAddingEvent : TlzhFileStatsEvent;
FBeforeExtractingEvent : TlzhFileStatsEvent;
FCompressedFile : String;
FExtractDirectory : String;
FExtractName : String;
FFileCount : Integer;
FFilesToProcess : TStrings;
FileHeader : TlzhFileHeader;
FileHeaders : TFileHeaderArray;
The file stats for the current file being operated on
FileStats : TlzhFileStats;
The header for the current file being operated on
FListingEvent : TlzhFileStatsEvent;
FNewDiskEvent : TlzhNewDiskEvent;
FOverwrite : TOverwriteType;
FReplaceEvent : TlzhFileStatsEvent;
FSkipFile : Boolean;
FStatusEvent : TlzhFileStatsEvent;
InMemory : Boolean;
MainHeader : TlzhMainHeader;
SourceFile : THandleStream;
constructor Create(AOwner: TComponent);
String-manipulation routines
procedure Add(Cmd: TlzhCommand);
procedure CopyToDisk(Path: String);
Attach the correct date to the file!!!
destructor Destroy;
procedure Extract;
procedure List;
Now write all file headers
procedure AddOnGetBytes(var DTA;NBytes: WORD;var Bytes_Got: WORD);
procedure ExtractOnGetBytes(var DTA;NBytes: WORD;var Bytes_Got: WORD);
Update the file statistics header
procedure OnGetBytes(var DTA;NBytes: WORD;var Bytes_Got: WORD);
Protected declarations
Update the file statistics header
procedure OnPutBytes(var DTA;NBytes: WORD;var Bytes_Put: WORD);
procedure ChangeToPartition(var Stream: THandleStream;Disk: Integer;var CF: String);
procedure ConvertFileHeadersToStats;
Converts the information in the FileHeaders array to appropriate total information
procedure ConvertFileHeaderToStats(FH: TlzhFileHeader);
procedure CopyStream(SourceStream,DestStream: THandleStream);
Trigger the status event
function FindFileHeader(FileName: String): TlzhFileHeader;
Finds a given file in the archive which is specified in the FileName parameter
function GetFileCount: Integer;
function GetFiles(I: Integer): TlzhFileStats;
procedure ReadInformation;
This procedure retrieves information from the CompressedFile into the
MainHeader and the FileHeaders object variable. It also updates FileCount.
procedure SetCompressedFile(Value: String);
procedure SetFilesToProcess(List: TStrings);
property Abort : Boolean
Published declarations
property CompressedFile : String
property ExtractDirectory : String
property FilesToProcess : TStrings
property Overwrite : TOverwriteType
property ExtractName : String
Public declarations
property FileCount : Integer
property Files : TlzhFileStats
property SkipFile : Boolean
event OnAborted : TNotifyEvent
Events
event OnAfterAdding : TlzhFileStatsEvent
event OnAfterExtracting : TlzhFileStatsEvent
event OnBeforeAdding : TlzhFileStatsEvent
event OnBeforeExtracting : TlzhFileStatsEvent
event OnListing : TlzhFileStatsEvent
event OnNewDisk : TlzhNewDiskEvent
event OnReplace : TlzhFileStatsEvent
event OnStatus : TlzhFileStatsEvent
Action : TlzhAction;
Private declarations
CurrentDisk : Integer;
DestFile : THandleStream;
A memory cache of all the file's file headers
FAbort : Boolean;
Property field holders
FAbortedEvent : TNotifyEvent;
Events
FAfterAddingEvent : TlzhFileStatsEvent;
FAfterExtractingEvent : TlzhFileStatsEvent;
FBeforeAddingEvent : TlzhFileStatsEvent;
FBeforeExtractingEvent : TlzhFileStatsEvent;
FCompressedFile : String;
FExtractDirectory : String;
FExtractName : String;
FFileCount : Integer;
FFilesToProcess : TStrings;
FileHeader : TlzhFileHeader;
FileHeaders : TFileHeaderArray;
The file stats for the current file being operated on
FileStats : TlzhFileStats;
The header for the current file being operated on
FListingEvent : TlzhFileStatsEvent;
FNewDiskEvent : TlzhNewDiskEvent;
FOverwrite : TOverwriteType;
FReplaceEvent : TlzhFileStatsEvent;
FSkipFile : Boolean;
FStatusEvent : TlzhFileStatsEvent;
InMemory : Boolean;
MainHeader : TlzhMainHeader;
SourceFile : THandleStream;