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