Unit ChfTypes

Classes

Functions

Types

PChiefLZArchiveHeader
StrType
TChiefLZArchiveHeader
TLZArchiveHeader
TLZCount
TLZExtStr
TLZFileRec
TLZFileStr
TLZPathStr
TLZQuestionFunc
TLZRecurse
TLZRenameFunc
TLZReply
TLZReportProc
TLZReportRec
TLZSigStr
TLZVerStr

Constants

MaxChiefLZArchiveSize
MaxChiefLZDirectories

Variables


Functions


Types


PChiefLZArchiveHeader = ^TChiefLZArchiveHeader

StrType=String

TChiefLZArchiveHeader = record
Count : TLZCount;
Files : Array[1..MaxChiefLZArchiveSize] of TLZFileRec
end;

TLZArchiveHeader = record
Signature : TLZSigStr;
Count : TLZCount
end;

TLZCount = Word

TLZExtStr  = {$ifdef Win32} string                            

TLZFileRec = record
IsDir : Boolean;
DirID : Word;
ParentDir : Word;
FileVersion : TLZVerStr;
Compressed : Boolean;
Sizes : LongInt;
uSizes : LongInt;
Times : LongInt;
Names : TLZFileStr;
end;

TLZFileStr = String[12]

TLZPathStr = {$ifdef Win32} string                            

TLZQuestionFunc=Function(const aName: TLZReportRec;Const aExist:string): TLZReply

TLZRecurse = (LZNoRecurse, LZRecurseOnce, LZFullRecurse);

TLZRenameFunc = function(var Name: string): boolean
optionally used by the LZOBJ object; procedural type to ask whether an existing file should be overwritten - the filename is sent to your function in "aName" - your function should return TRUE if you want the file to be overwritten. If no function is pointed to, the default is to overwrite existing files.
TLZReply = (LZNo, LZYes, LZQuit);
procedural type for status/progress information aName=file record information aSize=filesize (compressed)
TLZReportProc=Procedure(Const aName:TLZReportRec{String};Const aSize:LongInt)
introduced this for LZ report and Question procedures
TLZReportRec = record
FileVersion : TLZVerStr;
Sizes : LongInt;
uSizes : LongInt;
Times : LongInt;
Names : TLZPathStr;
IsDir : Boolean;
end;

TLZSigStr  = String[18]

TLZVerStr  = String[8]

Constants

MaxChiefLZArchiveSize = 2048

Function type to determine whether to abort a file operation, or rename the file. {header for ChiefLZ archives

MaxChiefLZDirectories = (MaxChiefLZArchiveSize div 2)

max number of files in archives - let's use more for Win32} {$endif Win32

Variables