Class TYsflCompress (unit Ysflcmp)

Inherits from

TLZHCompressor

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.

procedure SetCompressedFile(Value: String);


procedure SetFilesToProcess(List: TStrings);


Properties

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


Events

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


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;



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 : 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


Events


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


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;