Unit Ysflcmp

Classes

EYCCannotCreateTemp -
EYCCannotOpenCorrectPartition -
EYCCannotReadHeaders -
EYCCannotWriteHeaders -
EYCCouldNotCreateFile -
EYCCouldNotOpenCompressedFile -
EYCCouldNotOpenFile -
EYCDiskFull -
EYCFileNotInArchive -
EYCNewDiskEventNotAssigned -
EYCNoSuchFile -
EYCNotEnoughSpace -
EYCStop -
EYCTooManyFiles -
TYsflCompress -

Functions

Register -

Types

TFileHeaderArray
TFilePath
TlzhAction
TlzhCommand
TlzhFileHeader
TlzhFileStats
TlzhFileStatsEvent
TlzhMainHeader
TlzhNewDiskEvent

Constants

Variables


Functions


procedure Register;


Types


TFileHeaderArray = array[0..300] of TlzhFileHeader;

TFilePath = array[0..80] of Char;

TlzhAction = (acAdd,acExtract);

TlzhCommand = (lzcAll);

TlzhFileHeader = record
AddedOrder : Integer;
Date : TDateTime;
EndDisk : Byte;
EndOffset : LongInt;
FileName : TFileName;
NextHeaderOffset : LongInt;
NormalSize : LongInt;
StartOffset : LongInt;
PackedSize : LongInt;
StartDisk : Byte;
Version : String[20];
Tag1 : Byte;
Tag2 : Byte;
end;

TlzhFileStats = record
IFCompletion : Byte;
IFBytesProcessed : LongInt;
IFHeader : TlzhFileHeader;
IFName : TFileName;
IFPackedSize : LongInt;
IFRatio : Byte;
IFSize : LongInt;
TotalBytesProcessed : LongInt;
TotalCompletion : Byte;
TotalPackedSize : LongInt;
TotalRatio : Byte;
TotalSize : LongInt;
end;

TlzhFileStatsEvent = procedure(YsflCompress: TYsflCompress;const FileStats: TlzhFileStats) of object

TlzhMainHeader = record
FileCount : Integer;
MultipleDisk : Boolean;
FirstHeader : LongInt;
end;

TlzhNewDiskEvent = procedure(YsflCompress: TYsflCompress;const DiskNumber: Integer;var Path: String) of object

Constants


Variables