|
|
|
|
|
|
|
|
|
|
- Arrêt de l'opération de compression d'un fichier
Arrêt de l'opération de compression d'un fichier // -- Code de clic sur BTN_CompresseFichier
// 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("Aff_Jauge_Compression", FenEnExécution(), 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 Aff_Jauge_Compression
PROCÉDURE Aff_Jauge_Compression(wMessage, wParam, lParam)
SI wParam < 100 ALORS
Jauge(wParam, 100)
Â
// Rafraîchissement de la fenêtre
Multitâche(-1)
SINON
// La compression est finie
Jauge()
FIN
// -- Code de clic sur BTN_ArrêtCompression
SI OuiNon("Voulez-vous arrêter la compression en cours ?") = Vrai ALORS
fStopCompacte()
FIN
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|