Libérer une variable

Bonjour à tous,

Je viens vers vous pour savoir s'il était possible de libérer une variable (vider son contenu) ?

Car j'ai un petit problème de mémoire sur un programme qui doit rechercher des images dans un dossier spécifique, voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Private Sub ChargementTiles() ' Déclaration des variables Dim sImageTrouve() As String Dim sCheminTiles As String = Application.StartupPath & "\Tiles" Dim sFormatImage As String = "*.png" Dim sNomTiles As String Dim MonImage As System.Drawing.Bitmap Dim TailleX, TailleY As Integer ' Vider la liste déroulante Me.COMBO_TILES.Items.Clear() ' On parcourt le dossier des Tiles sImageTrouve = Directory.GetFileSystemEntries(sCheminTiles, sFormatImage) For Each ListeImage As String In sImageTrouve ' Ajout du nom du Tiles dans la liste déroulante sNomTiles = Mid(ListeImage, sCheminTiles.Length + 2) Me.COMBO_TILES.Items.Add(sNomTiles) ' On récupére la taille de l'image MonImage = New System.Drawing.Bitmap(ListeImage) TailleX = MonImage.Width TailleY = MonImage.Height ' Ajout dans la liste des Tiles Dim Tiles As New ClassTiles(sNomTiles, ListeImage, TailleX, TailleY) Me.ListeTiles.Add(Tiles) Next ' Vérifier si des tiles ont été trouvé If sImageTrouve.Count = 0 Then MsgBox("Aucun Tiles n'a été trouvé dans " & sCheminTiles & ".", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tiles non trouvés.") Application.Exit() Else ' On sélection le premier Tiles dans la combobox Me.COMBO_TILES.SelectedIndex = 0 End If End Sub
Donc je lance cette procédure au démarrage de mon programme, elle permet de rechercher dans un dossier "Tiles" les image de format .png.
Puis dans une classe nommé ClassTiles, je stock le chemin de l'image, sa taille et son nom.

En déboguant pas à pas, je me suis rendu compte que c'était la variable "MonImage", que j'utilise pour charger l'image en mémoire afin de récupérer sa taille, qui cumule la taille de l'image à chaque boucle.

Du coup si j'ai beaucoup d'image à rechercher, à l'ouverture, l'application pése déjà + de 100 mo...
Puis si je la réduis et la maximise, elle perd toutes sa mémoire et descend à 20 mo (surement du au Garbadge collector ?)

Du coup je voulais "vider" ma variable "MonImage" à chaque boucle en faisant :

Code:

MonImage = Nothing

Mais ça ne fonctionne pas.

Vous avez une idée sur la manière de procédé ?
J'ai peut être mal pensé la récupération des images ?

Surtout que je pensais que les variables étaient détruites après que les procédures soient terminées...

Je vous remercie d'avance pour vos conseils.

Bonne journée!
Cryo

Je ne suis pas specialiste de la mémoire, mais j'aurais tendance à dire: Sauf problème de performance, faites confiance au garbage collector, il se declenchera au momment où il le faut.

Vous pouvez tout de même l'aider un peu :

Le "Nothing", c'est très bien.
Code:

1 2 MonImage = Nothing
En ajoutant un "Dispose" avant, c'est encore mieu. Dispose force l'objet à liberer les ressources qu'il utilise lui même:
Code:

1 2 3 MonImage.Dispose() MonImage = Nothing
Une autre méthode à essayer, consiste à ne pas créer, utiliser puis détruire un objet image à chaque iteration, mais plutot de le créer avant la boucle, l'utiliser pendant la boucle, et le detruire après.
Le fait de faire un "new" à chaque iteration, fait que vous abandonnez la reference de votre ancien objet "Image" pour en cree un nouveau, ce qui réalloue de la mémoire. Vous pouvez, à la place, faire un "FromFile()"
Code:

1 2 MonImage.FromFile("filename As String")
Sans avoir verifié, cela donnerait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 MonImage = New System.Drawing.Bitmap() ' On parcourt le dossier des Tiles sImageTrouve = Directory.GetFileSystemEntries(sCheminTiles, sFormatImage) For Each ListeImage As String In sImageTrouve ' Ajout du nom du Tiles dans la liste déroulante sNomTiles = Mid(ListeImage, sCheminTiles.Length + 2) Me.COMBO_TILES.Items.Add(sNomTiles) ' On récupére la taille de l'image MonImage.FromFile(ListeImage) TailleX = MonImage.Width TailleY = MonImage.Height ' Ajout dans la liste des Tiles Dim Tiles As New ClassTiles(sNomTiles, ListeImage, TailleX, TailleY) Me.ListeTiles.Add(Tiles) Next MonImage.Dispose() MonImage = Nothing

Citation:

Envoyé par LeCygne

Je ne suis pas specialiste de la mémoire, mais j'aurais tendance à dire: Sauf problème de performance, faites confiance au garbage collector, il se declenchera au momment où il le faut.

Tout à fait
Pour vérifier que le GC va bien collecter la mémoire, tu peux l'appeler explicitement :

Code:

GC.Collect()

Mais c'est pas conseillé, fais le juste pour voir que ça libère effectivement la mémoire et enlève le après.
Citation:
Envoyé par LeCygne
Vous pouvez tout de même l'aider un peu :

Le "Nothing", c'est très bien.
Code:

1 2 MonImage = Nothing
Non, en l'occurrence ça sert à rien (pour une variable locale), parce la variable va sortir du scope à la fin de la méthode de toutes façons, et sera éligible pour le GC
Citation:
Envoyé par LeCygne
En ajoutant un "Dispose" avant, c'est encore mieu. Dispose force l'objet à liberer les ressources qu'il utilise lui même:
Code:

1 2 3 MonImage.Dispose() MonImage = Nothing
Le Dispose est effectivement une bonne habitude, ça permet de libérer tout de suite les ressources système associées à l'objet (handle HBITMAP par exemple)

Citation:

Envoyé par LeCygne

Une autre méthode à essayer, consiste à ne pas créer, utiliser puis détruire un objet image à chaque iteration, mais plutot de le créer avant la boucle, l'utiliser pendant la boucle, et le detruire après.
Le fait de faire un "new" à chaque iteration, fait que vous abandonnez la reference de votre ancien objet "Image" pour en cree un nouveau, ce qui réalloue de la mémoire. Vous pouvez, à la place, faire un "FromFile()"

Ca marche pas comme ça : FromFile est une méthode statique, et renvoie une nouvelle instance de Image. Avec ce code la variable MonImage n'est jamais assignée

Citation:

Envoyé par tomlev

Non, en l'occurrence ça sert à rien (pour une variable locale), parce la variable va sortir du scope à la fin de la méthode de toutes façons, et sera éligible pour le GC
....
Ca marche pas comme ça : FromFile est une méthode statique, et renvoie une nouvelle instance de Image. Avec ce code la variable MonImage n'est jamais assignée

C'est bien ce que je disais :

Citation:

Envoyé par LeCygne

Je ne suis pas specialiste de la mémoire

;)

Je vous remercie tous les deux.

Donc je viens de tester et en effet la fonction .Dispose correspond bien à mon attente.
Je pensais qu'elle servait à "Détruire" une variable (donc plus moyen de l'utiliser), car si on fait de même pour une TextBox par exemple, le composant est supprimé.

Donc c'est nikel, je préfère faire cela, car même si le Garbage Collecteur passe ensuite, ça utilise de la mémoire pour rien entre temps...

Je vous remercie encore.

Bonne journée!

Citation:

Envoyé par CryoCid

Donc je viens de tester et en effet la fonction .Dispose correspond bien à mon attente.
Je pensais qu'elle servait à "Détruire" une variable (donc plus moyen de l'utiliser), car si on fait de même pour une TextBox par exemple, le composant est supprimé.

"détruire une variable" n'a pas de sens : une variable est seulement une référence vers un objet. Ce que tu peux "détruire", c'est l'objet lui-même, pas la variable. Et ce n'est pas parce que tu détruis l'objet référencé par une variable que tu ne peux plus utiliser la variable (par contre tu ne peux plus utiliser l'objet)

Ok tomlev, merci pour cette précision.
Je me suis mal exprimé, mes excuses.

Citation:

Envoyé par CryoCid

Je me suis mal exprimé, mes excuses.

Tu n'as pas à t'excuser, ça arrive à tout le monde de se tromper ;)
Je voulais juste préciser un peu les choses, parce que beaucoup de gens ne font pas bien la différence entre "variable", "objet", "référence", "valeur", etc...