WLanguage procedure ("Callback") used by
zipAddFileList to manage the progress of files being added to the archive.
// Création d'une archive et ajout d'un élément
// Avec jauge affichée dans un champ Jauge
MonArchive is zipArchive
NumErrZip is int
NumErrZip = zipCreate(MonArchive, "C:\Doc\Archive\ficArchive.zip")
IF NumErrZip = 0 THEN
NumErrZip = zipAddFileList(MonArchive, "C:\doc\Image\Maison.BMP" + CR + ...
"C:\Mes Projets\WDStock\WDStock.wdp", zipDrive, zipAjouteListeFichier_Callback)
IF NumErrZip <> 0 THEN
Error(zipMsgError(NumErrZip))
END
zipClose(MonArchive)
ELSE
Error(zipMsgError(NumErrZip))
END
INTERNAL PROCÉDURE zipAjouteListeFichier_Callback(FichierEnCours is string,
AvancementGlobal is int, AvancementFichier is int)
IF AvancementGlobal < 100 THEN
ProgressBar(AvancementGlobal, 100, FichierEnCours)
ELSE
ProgressBar()
END
END
Syntax
zipAjouteListeFichier_Callback(<Current file> , <Overall progress percentage> , <File progress percentage>)
<Current file>: Character string
Name of the file being processed.
<Overall progress percentage>: entier
Percentage of progress in adding files to the archive.
<File progress percentage>: entier
Percentage of progress in adding the current file 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