| Class TYsflCompress (unit Ysflcmp) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Add(Cmd: TlzhCommand);
procedure CopyToDisk(Path: String);
destructor Destroy;
procedure Extract;
procedure List;
procedure AddOnGetBytes(var DTA;NBytes: WORD;var Bytes_Got: WORD);
procedure ExtractOnGetBytes(var DTA;NBytes: WORD;var Bytes_Got: WORD);
procedure OnGetBytes(var DTA;NBytes: WORD;var Bytes_Got: WORD);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;
procedure ConvertFileHeaderToStats(FH: TlzhFileHeader);
procedure CopyStream(SourceStream,DestStream: THandleStream);
function FindFileHeader(FileName: String): TlzhFileHeader;
function GetFileCount: Integer;
function GetFiles(I: Integer): TlzhFileStats;
procedure ReadInformation;
procedure SetCompressedFile(Value: String);
procedure SetFilesToProcess(List: TStrings);| Properties |
property Abort : Boolean
property CompressedFile : String
property ExtractDirectory : String
property FilesToProcess : TStrings
property Overwrite : TOverwriteType
property ExtractName : String
property FileCount : Integer
property Files : TlzhFileStats
property SkipFile : Boolean| Events |
event OnAborted : TNotifyEvent
event OnAfterAdding : TlzhFileStatsEvent
event OnAfterExtracting : TlzhFileStatsEvent
event OnBeforeAdding : TlzhFileStatsEvent
event OnBeforeExtracting : TlzhFileStatsEvent
event OnListing : TlzhFileStatsEvent
event OnNewDisk : TlzhNewDiskEvent
event OnReplace : TlzhFileStatsEvent
event OnStatus : TlzhFileStatsEvent| Variables |
Action : TlzhAction;
CurrentDisk : Integer;
DestFile : THandleStream;
FAbort : Boolean;
FAbortedEvent : TNotifyEvent;
FAfterAddingEvent : TlzhFileStatsEvent;
FAfterExtractingEvent : TlzhFileStatsEvent;
FBeforeAddingEvent : TlzhFileStatsEvent;
FBeforeExtractingEvent : TlzhFileStatsEvent;
FCompressedFile : String;
FExtractDirectory : String;
FExtractName : String;
FFileCount : Integer;
FFilesToProcess : TStrings;
FileHeader : TlzhFileHeader;
FileHeaders : TFileHeaderArray;
FileStats : TlzhFileStats;
FListingEvent : TlzhFileStatsEvent;
FNewDiskEvent : TlzhNewDiskEvent;
FOverwrite : TOverwriteType;
FReplaceEvent : TlzhFileStatsEvent;
FSkipFile : Boolean;
FStatusEvent : TlzhFileStatsEvent;
InMemory : Boolean;
MainHeader : TlzhMainHeader;
SourceFile : THandleStream;| Constructors |
constructor Create(AOwner: TComponent);String-manipulation routines
| Functions |
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);| Properties |
property Abort : BooleanPublished declarations
property CompressedFile : String
property ExtractDirectory : String
property FilesToProcess : TStrings
property Overwrite : TOverwriteType
property ExtractName : StringPublic declarations
property FileCount : Integer
property Files : TlzhFileStats
property SkipFile : Boolean| Events |
event OnAborted : TNotifyEventEvents
event OnAfterAdding : TlzhFileStatsEvent
event OnAfterExtracting : TlzhFileStatsEvent
event OnBeforeAdding : TlzhFileStatsEvent
event OnBeforeExtracting : TlzhFileStatsEvent
event OnListing : TlzhFileStatsEvent
event OnNewDisk : TlzhNewDiskEvent
event OnReplace : TlzhFileStatsEvent
event OnStatus : TlzhFileStatsEvent| Variables |
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;