Exemple d'utilisation de la commande zipFichierEnCours

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

Le code suivant permet d'afficher le nom des fichiers en cours d'extraction dans la barre de message de la fenêtre.

--Code de déclaration des globales
GLOBAL
NomArchive est une chaîne = "MonArchive"

--Code de clic sur BoutonExtraitFichier
// Initialisation
NomRépertoire est une chaîne
FichierEnCours est une chaîne
CodeErreurCréation est un entier
CodeErreurAjout est un entier
CodeErreurExtrait est un entier
NumEvénement 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
      // Appel de l'événement
      NumEvénement = Evénement ( "JaugeCompression" , FenEnExecution (), JaugeCompactage )
      // Extraction et décompression des fichiers dans le répertoire courant
      CodeErreurExtrait = zipExtraitTout ( NomArchive , zipRépertoire )
      SI CodeErreurExtrait <> 0 ALORS
         // Affichage du nom du fichier en cas d'erreur d'extraction
         FichierEnCours = zipFichierEnCours ( NomArchive )
         Erreur ( zipMsgErreur ( CodeErreurExtrait ) + "sur le fichier" + FichierEnCours )
      FIN
      // Fin de l'événement
      FinEvénement ( NumEvénement )
   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 locale à la fenêtre. Cette procédure permet de gérer la jauge.
PROCEDURE JaugeCompression ( wMesssage , wParam , lParam )
SI wParam < 100 ALORS
   // Mise à jour de la jauge avec affichage du fichier en cours d'extraction
   Jauge ( wParam , 100 , zipFichierEnCours ( NomArchive ))
   // Rafraîchissement de la fenêtre
   Multitache (- 1 )
SINON
   // La compression est terminée
   Jauge ()
FIN

Le code suivant permet d'afficher le nom des fichiers en cours d'extraction dans la barre de message de la fenêtre.

--Code de déclaration des globales
GLOBAL
NomArchive est une chaîne = "MonArchive"

--Code de clic sur BoutonExtraitFichier
// Initialisation
NomRépertoire est une chaîne
FichierEnCours est une chaîne
CodeErreurCréation est un entier
CodeErreurAjout est un entier
CodeErreurExtrait est un entier
NumEvénement est un entier

// Création d'une archive
CodeErreurCréation = zipCrée(NomArchive, "\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
      // Appel de l'événement
      NumEvénement = Evénement("JaugeCompression", FenEnExecution(), JaugeCompactage )
      // Extraction et décompression des fichiers dans le répertoire courant
      CodeErreurExtrait = zipExtraitTout(NomArchive, zipRépertoire )
      SI CodeErreurExtrait <> 0 ALORS
         // Affichage du nom du fichier en cas d'erreur d'extraction
         FichierEnCours = zipFichierEnCours (NomArchive)
         Erreur(zipMsgErreur(CodeErreurExtrait) + "sur le fichier" + FichierEnCours)
      FIN
      // Fin de l'événement
      FinEvénement(NumEvénement)
   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 locale à la fenêtre. Cette procédure permet de gérer la jauge.
PROCEDURE JaugeCompression(wMesssage, wParam, lParam)
SI wParam<100 ALORS
   // Mise à jour de la jauge avec affichage du fichier en cours d'extraction
   Jauge(wParam, 100, zipFichierEnCours (NomArchive))
   // Rafraîchissement de la fenêtre
   Multitache(-1)
SINON
   // La compression est terminée
   Jauge()
FIN