Discussion :

[chapeau_melon]

Bonjour,

Après analyse je constate que mon appli mets 45sec à se fermer complètement dans la mémoire, après fermeture de la fenêtre principale.

Un des warnings est (j'en ai 5 les mêmes pour différents threads) :

Le thread '1' est bloqué et n'a pas pu être arrêté normalement, il a été détruit.
----- Informations techniques -----
Projet : ANXe
Que s'est-il passé ?
Le thread '1' est bloqué et n'a pas pu être arrêté normalement, il a été détruit.
Code erreur : 2926
Niveau : warning (EL_WARNING_EXECUTION)
Dump de l'erreur du module 'wd170vm.dll' (17.0.247.5).
Identifiant des informations détaillées (.err) : 2926
Informations supplémentaires :
EIT_DATEHEURE : 16/01/2013 19:38:04


Hors je mets dans le code de fermeture de mon appli, executé par finprogramme("",vrai)

ThreadArrête(threadPrincipal)
ThreadArrête("1")
ThreadArrête("1b")
ThreadArrête("1c")
ThreadArrête("2")
ThreadArrête("3")
ThreadArrête("4")
ThreadArrête("5")
HFerme("*")
HAnnuleDéclaration(REQ_PM_merken)
HAnnuleDéclaration(REQ_connector)


HAnnuleDéclaration(REQ_polarity)

---
Donc comment y remédier ? comment fermer/libérer plus rapidement la mémoire ?

BAV

[miripesage]

bonjour, faire un timeout null

Code :

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

1
2
3
4
5
6
7
8
//ThreadArrête(threadPrincipal)//pas nécessaire avec FinProgramme()
ThreadArrête("1",0)
ThreadArrête("1b",0)
ThreadArrête("1c",0)
ThreadArrête("2",0)
ThreadArrête("3",0)
ThreadArrête("4",0)
ThreadArrête("5",0)

[frenchsting]

Regarde également l'ordre de création/dépendance de tes threads/requêtes...

[chapeau_melon]

@ frenchsting : que veux-tu dire ? Je ne comprends pas très bien ...
L'ordre ; lequel commence en premier etc...

[chapeau_melon]

le timeout 0 ne change rien

...

et je n'arrive pas à fermer l'api avec api("Kernel32","CloseHandle",ihandle),
getlasterror = 6 (je suppose access denied)

Que faire ?
....

Ceux qui ne se ferment pas sont en faite des sniffer de folder :

iHandle = API("Kernel32","CreateFileA",&strRep,FILE_LIST_DIRECTORY,OUBinaire(FILE_SHARE_READ,FILE_SHARE_WRITE),Null,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,Null)
SI iHandle <> INVALID_HANDLE_VALUE ALORS
bContinuer = Vrai
TANTQUE bContinuer
iPos = 0
SI API("Kernel32","ReadDirectoryChangesW",iHandle,&bBuffer,1024,Vrai,FILE_NOTIFY_CHANGE_FILE_NAME,&iNull_1,&iNull_2,&iNull_3) <> 0 ALORS
TANTQUE Vrai
Transfert(&strFile,&strFileVide,1024)
Transfert(&struFile,&bBuffer+iPos,Dimension(struFile))
SELON struFile:Action
CAS FILE_ACTION_ADDED:
//Trace("Ajout")
...
TANTQUE Waitsignal<>""
FIN
PostMessage(Handle(FEN_main),"lance",0,0)
ThreadAttendSignal()
CAS FILE_ACTION_REMOVED:
//Trace("Delete")
//Transfert(&strFile,&bBuffer+iPos+Dimension(struFile),struFile:FileNameLength)
CAS FILE_ACTION_MODIFIED:
//Trace("Modif")
//Transfert(&strFile,&bBuffer+iPos+Dimension(struFile),struFile:FileNameLength)
CAS FILE_ACTION_RENAMED_OLD_NAME:
//Trace("Ren old")
//Transfert(&strFile,&bBuffer+iPos+Dimension(struFile),struFile:FileNameLength)
CAS FILE_ACTION_RENAMED_NEW_NAME:
//Trace("Ren new")
//Transfert(&strFile,&bBuffer+iPos+Dimension(struFile),struFile:FileNameLength)
AUTRE CAS
//Trace("rien")
FIN
//Trace(struFile:FileNameLength)
//Trace(UnicodeVersAnsi(strFile))

SI struFile:NextEntryOffset <> 0 ALORS
iPos += struFile:NextEntryOffset
SINON
SORTIR
FIN

FIN
SINON
Erreur()
FIN

// bcontinuer = ouinon("continuer?")
FIN
API("Kernel32","CloseHandle",iHandle)
// api("Kernel32","CloseHandle",ihandle)
SINON
Erreur()
FIN

[frenchsting]

@ frenchsting : que veux-tu dire ? Je ne comprends pas très bien ...
L'ordre ; lequel commence en premier etc...

Si tu as un thread a qui appelle un thread b, alors arrête le thread b d'abord...

Ceci -> TANTQUE Vrai, doit poser un problème d'arrêt. Utilise plutôt une variable booléenne globale, qui sera mise à faux lors de la fermeture du programme.

Tu peux également faire un coup d'analyseur de performances pour tracer l'arrêt.

[chapeau_melon]

hmmm...la variable globale, bContinuer=faux, lancé depuis le thread principal, code de fermeture, n'est pas pris en compte ?

Comment faire ?

Par contre, quand j'active le // bcontinuer = ouinon("continuer?")
et que je selectionne 'non' effectivement l'
API("Kernel32","CloseHandle",iHandle) est effective et le threadtermine("1",0) est = vrai.

[chapeau_melon]

Bon pour l'instant je n'ai rien trouvé de mieux que de mettre
ExeTermine(ExeDonnePID()) à la dernière ligne de fin du programme.
La mémoire est libéré instantanément et je ne crains riens car tous les fichiers (req/etc...) sont proprement fermés.

Si jamais vous avez d'autres avis ??

BAV