Unit ziptypes |
Classes |
Functions |
Upper - rudimentary "uppercase" function
Types |
buftype
nWord
pReportRec
TDirtype
TReportRec
TZipRec
UnzipQuestionProc
UnzipReportProc
Constants |
file_completed
file_Failure
file_starting
file_unzipping
tBufSize
tFSize
UnzipActions
Unzipmethods
unzip_completed
unzip_CRCErr
unzip_Encrypted
unzip_FileError
unzip_InternalError
unzip_InUse
unzip_MissingParameter
unzip_NoMoreItems
unzip_NotSupported
unzip_NotZipfile
unzip_Ok
unzip_ReadErr
unzip_SeriousError
unzip_starting
unzip_UserAbort
unzip_WriteErr
unzip_ZipFileErr
Variables |
Functions |
Types |
buftype = ARRAY [ 0..tBufSize ] of char;filename length} { Record for UNZIP
nWord = longintType definitions for UNZIP * original version by Christian Ghisler * extended and amended for Win32 by Dr Abimbola Olowofoyeku (The African Chief) Homepage: http://ourworld.compuserve.com/homepages/African_Chief {$i unzip.inc
pReportRec = ^TReportRecTZipRec } { record for callback progress Reports, etc.
TDirtype = ARRAY [ 0..tFSize ] of char;
TReportRec = recordpassed to callback functions
FileName : tdirtype;
Time : Longint;
Size : Longint;
CompressSize : Longint;
Attr : integer;
PackMethod : Word;
Ratio : byte;
Status : longint;
end;
TZipRec = record
buf : ^buftype;
bufsize : word;
localstart : word;
Time : Longint;
Size : Longint;
CompressSize : Longint;
headeroffset : Longint;
FileName : tdirtype;
PackMethod : word;
Attr : Byte;
end;
UnzipQuestionProc = FUNCTION ( Rec : pReportRec ) : Booleanprocedural type for "Report" callback: the callback function (if any) is called several times during the unzip process Error codes are sent to the callback in "Retcode". Other details are sent in the record pointed to by "Rec". * Note particularly Rec^.Status - this contains information about the current status or stage of the unzip process. It can have any of the following values; (archive status) unzip_starting = starting with a new ZIP archive (rec^.filename) unzip_completed = finished with the ZIP archive (rec^.filename) (file status) file_starting = starting to unzip (extract) a file (from archive) file_unzipping = continuing to unzip a file (from archive) (when this status value is reported, the actual number of bytes written to the file are reported in "Retcode"; this is valuable for updating any progress bar) file_completed = finshed unzip a file (from archive) file_Failure = could not extract the file (from archive)
UnzipReportProc = PROCEDURE ( Retcode : longint;Rec : pReportRec )completed this ZIP file} { procedural types for callbacks
Constants |
Variables |