pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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'ajouter la totalité des fichiers d'un répertoire et de ses sous-répertoires dans une archive. Le répertoire est sélectionné par l'utilisateur grâce à la fonction fRepSélecteur . Le chemin complet du fichier est mémorisé dans l'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

// 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 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 , zipDisque )

   // Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
   SI
CodeErreurAjout <> 0 ALORS
       Erreur ( zipMsgErreur ( CodeErreurAjout ))
   FIN
SINON
   Erreur ( zipMsgErreur ( CodeErreurCréation ))
FIN


Le code suivant permet d'ajouter la totalité des fichiers d'un répertoire dans une archive. Le répertoire est sélectionné par l'utilisateur grâce à la fonction fRepSélecteur. Les différents répertoires composant le chemin du fichier, son nom et son extension sont mémorisés dans l'archive. Une jauge permet d'indiquer le pourcentage de compression. Cette jauge sera affichée dans la barre de message.



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

--Code de clic sur BoutonAjoutRépertoire
// Initialisation des variables
NomRépertoire 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
   // Appel de l'événement
   NumEvénement = Evénement ( "JaugeCompression" , FenEnExecution (), JaugeCompactage )
   // Sélection du répertoire
   NomRépertoire = fRepSélecteur ( "" , "" , "Répertoire à ajouter" )
   // Ajoute la totalité des fichiers du répertoire sélectionné dans l'archive
   CodeErreurAjout = zipAjouteRépertoire ( NomArchive , NomRépertoire , Faux , zipRépertoire )
   // Affichage du message d'erreur si le fichier n'a pas été ajouté
   SI
CodeErreurAjout <> 0 ALORS
      Erreur ( zipMsgErreur ( CodeErreurAjout ))
   FIN
   // Fin de l'événement
   FinEvénement ( NumEvénement )
SINON
   Erreur ( zipMsgErreur ( CodeErreurCréation ))
FIN

-- Procédure locale à la fenêtre. Cette procédure permet de gérer la jauge.
PROCÉDURE JaugeCompression ( wMesssage , wParam , lParam )
SI wParam < 100 ALORS
   Jauge ( wParam , 100 , zipFichierEnCours ( NomArchive ))
   // Rafraîchissement de la fenêtre
   Multitache (- 1 )
SINON
   // La compression est finie
   Jauge ()
FIN