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 un fichier dans une archive. Le fichier est sélectionné par l'utilisateur grâce à la fonction fSélecteur . Le chemin complet du fichier est mémorisé dans l'archive.



// Déclaration et initialisation des variables
Nomfichier est une chaîne
NomArchive est une chaîne = "MonArchive"
CodeErreurCréation est un entier
CodeErreurAjout est un entier

// Création d'une archive
// Code WinDev
CodeErreurCréation = zipCrée ( NomArchive , "C:\MonRépertoire\MesArchives\ArchivePdf.wdz" )
// Code WinDev Mobile
CodeErreurCréation = zipCrée(NomArchive, "\MonRépertoire\MesArchives\ArchivePdf.zip")

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


Le code suivant permet d'ajouter un fichier dans une archive. Le fichier est sélectionné par l'utilisateur grâce à la fonction fSélecteur . Le nom du fichier seulement est mémorisé dans l'archive. Une jauge permet d'indiquer le pourcentage de compression. Cette jauge sera affichée dans la barre de message.



--Code de création de la fenêtre
GLOBAL
NomArchive est une chaîne = "MonArchive"

--Code de clic sur BoutonAjoutFichier
// 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
    // Appel de l'événement
     NumEvénement = Evénement ( "JaugeCompression" , FenEnExecution (), JaugeCompactage )
    // 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 )
    // 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