DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Fonctions WLangage / Fonctions standard / Fonctions de gestion des archives
  • Exemple 1 : Ajout d'un fichier dans une archive
  • Exemple 2 : Ajout d'un fichier dans une archive avec utilisation d'une jauge
zipAjouteFichier (Exemple)
Exemple 1 : Ajout d'un fichier dans une archive
WINDEVEtats et RequêtesCode Utilisateur (MCU) 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
Exemple 2 : Ajout d'un fichier dans une archive avec utilisation d'une jauge
WINDEVCode Utilisateur (MCU) 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 BTN_AjoutFichier
// Code d'initialisation
Nomfichier est une chaîne
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 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
Version minimum requise
  • Version 9
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 25/05/2022

Signaler une erreur ou faire une suggestion | Aide en ligne locale