Exemple d'utilisation de la commande fCompacte

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 de compresser un fichier. Le fichier à compresser et le fichier compressé sont sélectionnés avec la fonction fSélecteur . Une jauge permet d'indiquer le pourcentage de compression. Cette jauge sera affichée dans la barre de message.

--Code de clic sur BoutonCompresseFichier
// Code d'initialisation
NumEven est un entier
FichierACompresser est une chaîne
FichierCompressé est une chaîne
ResCompression est un entier
// Sélection du fichier à compresser
FichierACompresser = fSélecteur("", "", "Sélection du fichier à compresser", ...
         "Tous fichiers (*.*)"+ TAB +"*.*", "", fselOuvre + fselExiste )
// Sélection du fichier compressé
FichierCompressé = fSélecteur("", "", "Sélection du fichier compressé", ...
         "Tous fichiers (*.*)"+ TAB +"*.*", "", fselCrée )
// Appel de l'événement pour afficher la jauge
NumEven = Evénement("JaugeCompression", FenEnExecution(), JaugeCompactage )
// Compression du fichier
ResCompression = fCompacte (FichierACompresser, FichierCompressé)
// Fin de l'événement
FinEvénement(NumEven)
// Affichage du message d'erreur si la compression n'a pas été effectuée
SI ResCompression <> 0 ALORS
   Erreur(ErreurInfo( errMESSAGE ))
SINON
   Info("La compression a été effectuée")
FIN

// Procédure locale JaugeCompression
PROCEDURE JaugeCompression(wMessage, wParam, lParam)
SI wParam < 100 ALORS
   Jauge(wParam, 100)
   // Rafraîchissement de la fenêtre
   Multitache(-1)
SINON
   // La compression est finie
   Jauge()
FIN

Le code suivant permet de compresser un fichier.