ONLINE HELP
 WINDEVWEBDEV AND WINDEV MOBILE

Help / WLanguage / WLanguage functions / Standard functions / Archive functions / WLanguage procedure
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaEtats et RequêtesCode Utilisateur (MCU)
WEBDEV
WindowsLinuxPHPWEBDEV - Code Navigateur
WINDEV Mobile
AndroidWidget AndroidiPhone/iPadWidget IOSApple WatchMac CatalystUniversal Windows 10 App
Autres
Procédures stockées
Procédure WLangage appelée par la fonction zipAjouteFichier
Procédure WLangage (également appelée "Callback") utilisée par la fonction zipAjouteFichier pour gérer la progression de l'ajout d'un fichier dans l'archive.
Si vous manipulez une archive au format TAR ou TGZ (TAR.GZ), l'avancement est mis à jour uniquement à la fin de l'ajout du fichier.
Exemple
// -- Code d'initialisation de la fenêtre
GLOBAL
NomArchive est une chaîne = "MonArchive"
 
// -- Code de clic sur BTN_AjoutFichier
// Code d'initialisation
Nomfichier est une chaîne
CodeErreurCréation est un entier
CodeErreurAjout est un entier
NumEvénement est un entier
 
// Création d'une archive
CodeErreurCréation = zipCrée(NomArchive, "C:\MonRépertoire\MesArchives\ArchivePdf.wdz")
 
// Affichage du message d'erreur si l'archive n'a pas été créée
SI CodeErreurCréation = 0 ALORS
// Sélection du fichier à ajouter
Nomfichier = fSélecteur("", "", "Fichier à ajouter", ...
   "Fichier à compacter" + TAB + "*.*", "*", fselOuvre + fselExiste)
// Ajout du fichier sélectionné dans l'archive
CodeErreurAjout = zipAjouteFichier(NomArchive, Nomfichier, zipAucun, Aff_Jauge_Compression)
// Affichage du message d'erreur si le fichier n'a pas été ajouté
SI CodeErreurAjout <> 0 ALORS
Erreur(zipMsgErreur(CodeErreurAjout))
FIN
SINON
Erreur(zipMsgErreur(CodeErreurCréation))
FIN
 
 
// Procédure interne utilisée pour gérer la jauge.
PROCÉDURE INTERNE Aff_Jauge_Compression(FichierEncours est une chaîne, Pourcentage est un entier)
SI Pourcentage < 100 ALORS
Jauge(Pourcentage, 100, FichierEncours)
// Rafraîchissement de la fenêtre
Multitâche(-1)
SINON
// La compression est finie
Jauge()
FIN
FIN
Syntaxe
zipAjouteFichier_Callback(<Fichier en cours> , <Pourcentage d'avancement>)
<Fichier en cours> : Chaîne de caractères
Nom du fichier en cours de traitement.
<Pourcentage d'avancement> : Entier
Pourcentage d'avancement de l'ajout du fichier en cours dans l'archive.
Composante : wd290zip.dll
Minimum version required
  • Version 9
Comments
Click [Add] to post a comment

Last update: 05/25/2022

Send a report | Local help