|
|
|
|
|
|
|
|
WLanguage procedure called by zipAddFileList WLanguage procedure ("Callback") used by zipAddFileList to manage the progress of files being added to the archive. // Create an archive and add an element
// With progress bar displayed in a Progress Bar control
MyArchive is zipArchive
NumZipErr is int
NumZipErr = zipCreate(MyArchive,"C:\Doc\Archive\ArchiveFile.zip")
IF NumZipErr = 0 THEN
NumZipErr = zipAddFileList(MyArchive, "C:\doc\Image\House.BMP" + CR + ...
"C:\My Projects\WDStock\WDStock.wdp", zipDrive, zipAddFileList_CallBack)
IF NumZipErr <> 0 THEN
Error(zipMsgError(NumZipErr))
END
zipClose(MyArchive)
ELSE
Error(zipMsgError(NumZipErr))
END
INTERNAL PROCÉDURE zipAddFileList_CallBack(CurrentFile is string,
OverallProgress is int, FileProgress is int)
IF OverallProgress < 100 THEN
ProgressBar(OverallProgress, 100, CurrentFile)
ELSE
ProgressBar()
END
END
Syntax
zipAddFileList_CallBack(<Current file> , <Overall progress percentage> , <File progress percentage>)
<Current file>: Character string Name of the file being processed. <Overall progress percentage>: Integer Progress percentage of the files added to the archive. <File progress percentage>: Integer Progress percentage of the file being added to the archive. Remarks If you are using a 7z archive, only <Overall progress percentage> is specified. <File progress percentage> will have the same value. Business / UI classification: Neutral code |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|