Procédure WLangage (également appelée "Callback") utilisée par la fonction
zipAjouteListeFichier pour gérer la progression de l'ajout des fichiers dans l'archive.
// Création d'une archive et ajout d'un élément
// Avec jauge affichée dans un champ Jauge
MonArchive est un zipArchive
NumErrZip est un entier
NumErrZip = zipCrée(MonArchive, "C:\Doc\Archive\ficArchive.zip")
SI NumErrZip = 0 ALORS
NumErrZip = zipAjouteListeFichier(MonArchive, "C:\doc\Image\Maison.BMP" + RC + ...
"C:\Mes Projets\WDStock\WDStock.wdp", zipDisque, zipAjouteListeFichier_Callback)
SI NumErrZip <> 0 ALORS
Erreur(zipMsgErreur(NumErrZip))
FIN
zipFerme(MonArchive)
SINON
Erreur(zipMsgErreur(NumErrZip))
FIN
PROCÉDURE INTERNE zipAjouteListeFichier_Callback(FichierEnCours est une chaîne,
AvancementGlobal est un entier, AvancementFichier est un entier)
SI AvancementGlobal < 100 ALORS
Jauge(AvancementGlobal, 100, FichierEnCours)
SINON
Jauge()
FIN
FIN
Syntaxe
zipAjouteListeFichier_Callback(<Fichier en cours> , <Pourcentage d'avancement global> , <Pourcentage d'avancement du fichier>)
<Fichier en cours> : Chaîne de caractères
Nom du fichier en cours de traitement.
<Pourcentage d'avancement global> : Entier
Pourcentage d'avancement de l'ajout des fichiers dans l'archive.
<Pourcentage d'avancement du fichier> : Entier
Pourcentage d'avancement de l'ajout du fichier en cours dans l'archive.
Remarques
Si vous manipulez une archive au format 7z, seul le paramètre <Pourcentage d'avancement global> est renseigné. Le paramètre <Pourcentage d'avancement du fichier> aura la même valeur.
Classification Métier / UI : Code neutre
Composante : wd280zip.dll