Discussion :

[wd_newbie]

Bonsoir,

j'ai une petite question : j'utilise la fonction ZipajouteFichier ( ) pour intégrer de nouveaux fichiers à une archive.

J'ai réussi a mettre en place une jauge de suivi de l acompression ( de 0 - 100%) , par contre je désire ajouter un bouton "Annuler" pour interrompre une compression en cours sur un gros fichier.

Je ne sais pas comment "dire" a Windev "arrête l'ajout de ce fichier"

Je suppose un SendMessage() , mais je sèche complètement.

Auriez-vous une idée ?

Merci d'avance et bon week-end

Olviier

[Yusep]

Bonsoir
Regardes dans la collection pJauges et la fenetre Fenêtre_Jauge_XP, l'usage de la variable bArrêtDemandé

[wd_newbie]

Je n'avais pas pensé aux exemples didactiques !! seulement l'exemple complet WD_zip !

Merci

Olivier

[wd_newbie]

C'est a nouveau moi, je déchante un peu, l'exemple cité (me semble en tout cas ... ) ne porte que sur une "banale" jauge et non sur une jauge lors d'une compression de fichier.

Je peux recréer l'exemple avec plus ou moins les mêmes principes, mais je n'arrive toujours au même point :


By wd_newbie

J'ai testé avec ZipSupprimeFichier() , ZipFerme(),Ferme() a tout les coups, ça plante. Lors de a compression, j'affiche un groupe avec un label et une jauge sur fond de rectangle blanc et un bouton annuler :


By wd_newbie

C'est le clic sur "Annuler" qui doit m'arrêter la compression et me redonner la main, mais non , paf , ça plante ...

Bon , vous me direz , le résultat est le bon , ça annule la compression, mais ça fait un peut négligé non ?

Bonne soirée

Olivier

[Lo²]

Salut à toi,

Tu pourrais peut-être mettre ton code de compression dans un thread et arrêter ton thread via ton bouton d'annulation.

a+

[wd_newbie]

Bonjour,

je continue mon chemin de croix avec mon "zippage" .
J'ai tester ton idée de mettre le zippage dans un Thread secondaire que je lance avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

	ThreadExécute("Zipper",threadNormal,Compression_Fichier,sMediaZip,sFichieraZipper)

Dans mon bouton "Annuler" j'ai un bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThreadArrête("Zipper")

Quand je lance la compression, tout se passe bien , tread est lancé, mais quand je clique sur "Annuler", le programme se fige et je n'ai plus la main.

Si je vais dans l'explorateur de fichier et que je fais des "actualiser", je vois la taille de mon fichier zip s'incrémenter, preuve que mon thread continue a faire son bonhomme de chemin.

Quand la compression est terminée, le programme reprend la main et le code situé après "ThredArrete()" est exécuté.

[OnePoint]

Salut,

Quand je lance la compression, tout se passe bien , tread est lancé, mais quand je clique sur "Annuler", le programme se fige et je n'ai plus la main.

Si je vais dans l'explorateur de fichier et que je fais des "actualiser", je vois la taille de mon fichier zip s'incrémenter, preuve que mon thread continue a faire son bonhomme de chemin.

Quand la compression est terminée, le programme reprend la main et le code situé après "ThredArrete()" est exécuté.

Tu devrais lire de plus près la doc sur la fonction ThreadArrête.

la fonction ThreadArrête attend que la fonction du WLangage en cours (par exemple HLitPremier) soit terminée. Dans ce cas, la fonction ThreadArrête est bloquante.

Dans ton cas, ThreadArrête se bloque en attendant la fin de ZipAjouteFichier.

Apparemment, ZipAjouteFichier est une fonction bloquante (non interruptible) et tu ne pourras pas empêcher son exécution d'aller jusqu'à son terme, à moins d'intervenir directement sur le thread au niveau du système d'exploitation, ce que ne permet pas ThreadArrête.

Là encore, les développeurs du framework Windev ont manqué d'inventivité, d'ingéniosité et d'esprit d'à propos.
Pourtant, il y avait bien un moyen très simple pour permettre à nos programmes de piloter l'avancement de la fonction ZipAjouteFichier, grâce au message JaugeCompactage (1174) qui aurait pu être utilisé pour transmettre une information d'annulation de l'opération de compactage.

De manière générale, il manque au WLangage une gestion de messages/événements applicatifs digne de ce nom. D'ailleurs la fonction Evénement ne concerne que Windows et seulement pour les champs et les fenêtres.

[wd_newbie]

Effectivement, c'est également la réponse donnée par le ST ...
... que l'on ne peut arrêter ce type de fonction , pas que c'est bête de ne pas y avoir mis une fonction d'annulation

Bon je vais voir si je peux trouver quelque chose au niveau des APIs système

Merci pour ton aide

Olivier

[Lo²]

Salut à toi,

Même en essayant de mettre un délai dans le ThreadArrête(..) ? ou en exécutant un ZipFerme(..) ?

[jurassic pork]

bonjour,

voici un truc tout à fait bestial (grouik grouik) pour tuer un thread. C'est nettement moins propre qu'un ThreadArrête mais on n' attend pas la fin de la fonction qui est en train de s'exécuter dans le thread. Les problèmes suivants peuvent intervenir après cette opération :
1 - libérations mémoire non faite.
2 - Désallocation d'objets non faite.
3 - Dll utilisées par le thread dans un état non connu.
4 - Difficulté à fermer l'application car des éléments ne sont plus reconnus.

Alors voici la manip
1 - En global on déclare un entier système :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ThreadPID est un entier système

2 - Dans la procédure du thread avant de lancer la procédure longue qu'on veut pouvoir interrompre on fait un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
// récupération du thread ID
 ThreadPID = ExeDonnePID(exeTID)

3 - Et pour interrompre le thread on peut alors essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Résultat est un entier système
nHandleThread est un entier système
 
//on récupère le handle du thread 
nHandleThread = API("Kernel32.dll","OpenThread",1,Faux,ThreadPID)
SI nHandleThread  = 0 ALORS	
    API("KERNEL32.dll","GetLastError")
	Info(ErreurInfo())
FIN
 
//on termine à l'arrache le thread
Résultat = API("Kernel32.dll","TerminateThread",nHandleThread,0)
 SI Résultat = 0 ALORS
    API("KERNEL32.dll","GetLastError")
 Info(ErreurInfo())
 FIN

Ami calmant, J.P

[OnePoint]

voici un truc tout à fait bestial (grouik grouik) pour tuer un thread. C'est nettement moins propre qu'un ThreadArrête mais on n' attend pas la fin de la fonction qui est en train de s'exécuter dans le thread. Les problèmes suivants peuvent intervenir après cette opération :
1 - libérations mémoire non faite.
2 - Désallocation d'objets non faite.
3 - Dll utilisées par le thread dans un état non connu.
4 - Difficulté à fermer l'application car des éléments ne sont plus reconnus.

Alors voici la manip

@jurassic pork
Je salue ton intervention qui mériterait d'apparaître dans le sous-forum "Contribuez".

Cependant, et tu nous mets en garde, cette pratique n'est vraiment pas propre (programmation de "jurassic" cochon ), et son impact sur la gestion des ressources doit être sérieusement étudié au cas par cas.

Ici, la fonction ZipAjouteFichier ouvre au moins 2 fichiers (le ZIP + celui en cours d'ajout) et un arrêt brutal du thread ne garantit pas que ces fichiers soient libérés, ni la mémoire associée.
risque de fichiers verrouillés et de "fuite de mémoire"

A wd_newbie de faire très attention.

Peut-être existe-t-il une alternative aux fonctions ZIP de Windev, qui prendrait en charge l'annulation de la fonction ?

Encore une autre piste de réflexion: réaliser la compression dans un processus à part qu'il est possible de "killer" avec plus de garanties sur la libération des ressources qu'un "kill" de thread.

[wd_newbie]

OK, merci pour votre aide , je vais faire quelques tests avant de me lancer tête baissée dans le "TerminateThread".

+