Unit AFCInter |
Classes |
Functions |
ChfUnzip_Init -
CloseZipFile - zprec: record, will be filled with zipfile data,
do not change the 'internal' field received from previous calls!
FileUnzip - *******************************************************************} {*********************************************************************} {************** The African Chief's functions ************************} {*********************************************************************} {
The Chief!
FileUnzipEx -
GetFirstInZip - Hi byte=number before period, Lo byte=number after period} {Later versions will be downward compatible} {******************** ZIP central directory access *******************} {The following 3 functions can be called in a loop to retreive all
the files in the given zip file.
GetNextInZip - zipfilename: filename of zip file} {zprec: record, will be filled with zipfile data
GetSupportedMethods - Tests if given file is a zip file (only test for PK#3#4 at the beginning)} {***************** Get Unzip Methods supported by DLL ****************} {Currently (version 1.
GetUnzipDllVersion - *******************************************************************} {*********************************************************************} {*************************** original functions **********************} {*********************************************************************} {*********************************************************************} {******************* DLL version
usage:
in_name: name of zip file with full path
out_name: desired name for out file
offset: header position of desired file in zipfile, found in tZiprec
hFileAction: handle to dialog box showing advance of decompression (optional),
or zero when only keyboard shall be checked
cm_index: - if hfileaction<>0 : notification code sent in a wm_command
message to the dialog to update percent-bar
- if hfileaction=0 : virtual key code of key the user must press
to interrupt unzipping, i.
isZip - Call after last GetNextInZip call to free buffer} {********************* Test if file is a ZIP file
SetUnZipQuestionProc -
SetUnZipReportProc -
unzipfile - Method 0 supported -> bit 0 = 1,
Method 8 supported -> bit 8 = 1,
etc.
UnZipSize -
Viewzip -
Types |
Constants |
Variables |
Functions |
usage: in_name: name of zip file with full path out_name: desired name for out file offset: header position of desired file in zipfile, found in tZiprec hFileAction: handle to dialog box showing advance of decompression (optional), or zero when only keyboard shall be checked cm_index: - if hfileaction<>0 : notification code sent in a wm_command message to the dialog to update percent-bar - if hfileaction=0 : virtual key code of key the user must press to interrupt unzipping, i.e. vk_escape Return value: one of the above unzip_xxx codes Example for handling the cm_index message in a progress dialog: unzipfile(......,cm_showpercent); ... procedure TFileActionDialog.wmcommand(var msg:tmessage); var ppercent:^word; begin TDialog.WMCommand(msg); if msg.wparam=cm_showpercent then begin ppercent:=pointer(lparam); if ppercent<>nil then begin if (ppercent^>=0) and (ppercent^<=100) then SetProgressBar(ppercent^); if UserPressedAbort then ppercent^:=$ffff else ppercent^:=0; end; end; end; end;
Types |
Constants |
Variables |