|
|
|
|
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
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|