PC SOFT

ONLINE HELP
 WINDEVWEBDEV AND WINDEV MOBILE

Home | Sign in | English EN
This content has been translated automatically. Click here to view the French version.
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaReports and QueriesUser code (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Browser code
WINDEV Mobile
AndroidAndroid Widget iPhone/iPadIOS WidgetApple WatchMac CatalystUniversal Windows 10 App
Others
Stored procedures
Procedure WLanguage called by the zipAddFile function
Procedure WLanguage (also called "Callback") used by the zipAddFile function to manage the progress of adding a file to the archive.
If you are handling a TAR or TGZ (TAR.GZ)archive, the progress is updated only at the end of the file addition.
Example
// -- Code d'initialisation de la fenêtre
GLOBAL
NomArchive is string = "MonArchive"
 
// -- Code de clic sur BTN_AjoutFichier
// Code d'initialisation
Nomfichier is string
CodeErreurCréation is int
CodeErreurAjout is int
NumEvénement is int
 
// Création d'une archive
CodeErreurCréation = zipCreate(NomArchive, "C:\MonRépertoire\MesArchives\ArchivePdf.wdz")
 
// Affichage du message d'erreur si l'archive n'a pas été créée
IF CodeErreurCréation = 0 THEN
// Sélection du fichier à ajouter
Nomfichier = fSelect("", "", "Fichier à ajouter", ...
   "Fichier à compacter" + TAB + "*.*", "*", fselOpen + fselExist)
// Ajout du fichier sélectionné dans l'archive
CodeErreurAjout = zipAddFile(NomArchive, Nomfichier, zipNone, Aff_Jauge_Compression)
// Affichage du message d'erreur si le fichier n'a pas été ajouté
IF CodeErreurAjout <> 0 THEN
Error(zipMsgError(CodeErreurAjout))
END
ELSE
Error(zipMsgError(CodeErreurCréation))
END
 
 
// Procédure interne utilisée pour gérer la jauge.
INTERNAL PROCÉDURE Aff_Jauge_Compression(FichierEncours is string, Pourcentage is int)
IF Pourcentage < 100 THEN
ProgressBar(Pourcentage, 100, FichierEncours)
// Rafraîchissement de la fenêtre
Multitask(-1)
ELSE
// La compression est finie
ProgressBar()
END
END
Syntax
zipAjouteFichier_Callback(<Current file> , <Percentage of progress>)
<Current file>: Character string
Name of the file being processed.
<Percentage of progress>: entier
Percentage of progress in adding the current file to the archive.
Component: wd270zip.dll
Minimum version required
  • Version 9
This page is also available for…
Comments
Click [Add] to post a comment