PC SOFT

DOCUMENTATION EN LIGNE
DE WINDEV, WEBDEV ET WINDEV MOBILE
  • Exemple 1 : Extraction de la totalité des fichiers de l'archive
  • Exemple 2 : Extraction de la totalité des fichiers de l'archive avec affichage d'une jauge
zipExtraitTout (Exemple)
Exemple 1 : Extraction de la totalité des fichiers de l'archive
WINDEVWEBDEV - Code ServeurEtats et RequêtesCode Utilisateur (MCU)Ajax Le code suivant permet d'extraire et de décompresser tous les fichiers d'une archive. Le chemin mémorisé des fichiers comprend : le nom des répertoires, le nom et l'extension du fichier. Les fichiers extraits sont copiés sur disquettes ("A:\Archive").
// Déclaration et initialisation des variables
NomRépertoire est une chaîne
NomArchive est une chaîne = "MonArchive"
CodeErreurCréation est un entier
CodeErreurAjout est un entier
CodeErreurExtrait est un entier
 
// Création d'une archive
CodeErreurCréation = zipCrée(NomArchive, "C:\Répertoire\Archives\ArchivePdf.wdz")
SI CodeErreurCréation = 0 ALORS
// Sélection du répertoire
NomRépertoire = fRepSélecteur("", "", "Répertoire à ajouter")
// Ajoute la totalité des fichiers du répertoire sélectionné
// et de ses sous-répertoires dans l'archive
CodeErreurAjout = zipAjouteRépertoire(NomArchive, NomRépertoire, Vrai, zipRépertoire)
SI CodeErreurAjout = 0 ALORS
  // Extraction et décompression des fichiers
    // Les fichiers sont copiés sur disquettes
  CodeErreurExtrait = zipExtraitTout(NomArchive, "A:\Archive")
  // Affichage du message d'erreur si les fichiers n'ont pas été extraits
SI CodeErreurExtrait <> 0 ALORS
Erreur(zipMsgErreur(CodeErreurExtrait))
FIN
SINON
    // Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
    Erreur(zipMsgErreur(CodeErreurAjout))
FIN
SINON
// Affichage du message d'erreur si l'archive n'a pas été créée
  Erreur(zipMsgErreur(CodeErreurCréation))
FIN
Exemple 2 : Extraction de la totalité des fichiers de l'archive avec affichage d'une jauge
WINDEVCode Utilisateur (MCU) Le code suivant permet d'extraire et de décompresser tous les fichiers d'une archive. Le chemin mémorisé des fichiers comprend : le nom des répertoires, le nom et l'extension du fichier. Les fichiers sont extraits dans le répertoire en cours (constante zipRépertoire). Une jauge permet d'indiquer le pourcentage de décompression. Cette jauge sera affichée dans la barre de message.
// -- Code de déclaration de la fenêtre
GLOBAL
NomArchive est une chaîne = "MonArchive"
 
// -- Code de clic sur BTN_ExtraitFichier
// Initialisation
NomRépertoire est une chaîne
CodeErreurCréation est un entier
CodeErreurAjout est un entier
CodeErreurExtrait est un entier
 
// Création d'une archive
CodeErreurCréation = zipCrée(NomArchive, "C:\Répertoire\Archives\ArchivePdf.wdz")
 
SI CodeErreurCréation = 0 ALORS
// Sélection du répertoire
NomRépertoire = fRepSélecteur("", "", "Répertoire à ajouter")
// Ajoute la totalité des fichiers du répertoire sélectionné
// et de ses sous-répertoires dans l'archive
CodeErreurAjout = zipAjouteRépertoire(NomArchive, NomRépertoire, Vrai, zipRépertoire)
SI CodeErreurAjout = 0 ALORS
// Extraction et décompression des fichiers dans le répertoire courant
CodeErreurExtrait = zipExtraitTout(NomArchive, zipRépertoire, Aff_Jauge_Compression)
SI CodeErreurExtrait <> 0 ALORS
Erreur(zipMsgErreur(CodeErreurExtrait))
FIN
  SINON
// Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
Erreur(zipMsgErreur(CodeErreurAjout))
  FIN
SINON
// Affichage du message d'erreur si l'archive n'a pas été créée
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
Version minimum requise
  • Version 9
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire