Discussion :

[AliHome]

Bonjour à tous,

Ce que je souhaite faire est plutot simple mais j'ai un soucis à ce niveau là. J'aimerais pouvoir récuperer une image à partir d'un fichier .jpg par exemple et ensuite pouvoir la libérer pour pouvoir la réutiliser ensuite, ou réécrire sur le fichier.

J'ai une fonction pour ca mais je ne sais pas pourquoi elle fonctionne mal parfois, c'est à dire que des fois mon image apparait à moitié ou bien il y a 80% de l'image qui est noire :/

La voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Public Function GetImage(ByRef Path As String) As Image
        Dim original As Bitmap = New Bitmap(Path)
        Dim copy As Bitmap = New Bitmap(original.Width, original.Height, original.PixelFormat)
        Dim g As Graphics = Graphics.FromImage(copy)
        g.DrawImage(original, 0, 0)
        Return copy
        g.Dispose()
        original.Dispose()
        copy.Dispose()
    End Function

Comment remédier à ce problème ?


Merci d'avance, cordialement,

AliHome

[tomlev]

Il y a un moyen beaucoup plus simple de copier une image :

Code :

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

Dim copy As Bitmap = CType(original.Clone(), Bitmap)

D'autre part, dans ton code les 3 appels à Dispose ne sont jamais exécutés, car ils sont faits après le Return.

[AliHome]

Merci à toi ca fonctionne sans problème !

Bonne soirée !

[AliHome]

Bon je me permet de réouvrir le sujet car en fait ca n'ai pas si résolu que ca car meme en utilisant ce bout de code dans ma fonction, l'image n'est toujours pas libérée !
J'ai fais des test notamment avec le logiciel Unlocker pour savoir si le fichier étais "libre" et j'ai pus constater qu'il étais toujours attaché à mon application donc ...

Comment pourrais-je libérer la ressource ?

[tomlev]

Fais voir le code final de ta méthode GetImage

[AliHome]

Code :

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

1
2
3
4
5
6
    Public Function GetImage(ByRef Path As String) As Image
        Dim original As Bitmap = New Bitmap(Path)
        Dim copy As Bitmap = CType(original.Clone(), Bitmap)
        original.Dispose()
        Return copy
    End Function

[tomlev]

Bizarre, je vois pourtant rien qui cloche...
Peut-être que la copie est encore liée au fichier (puisque c'est un clone de l'original)
Sinon quand ça me gonfle trop ce genre de problème je fais comme ça (très bourrin j'en conviens...) :

Code :

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

1
2
3
4
5
6
7
    Public Function GetImage(ByRef Path As String) As Image
        Dim bytes() As Byte = File.GetAllBytes(Path)
        Dim ms As New MemoryStream(bytes)
        Dim img As Bitmap = New Bitmap(ms)
        ms.Close()
        Return img
    End Function

[AliHome]

Bon ta technique fonctionne mais qu'est ce que ca bouffe comme ram !!! Surtout que je dois remplir une listview avec une centaine d'images ...

Je te remercie pour ton aide, même si je ne pense pas pouvoir utiliser ta fonction trop gourmande en mémoire vive :/

Bonne soirée

EDIT : J'ai trouver la solution, et c'est très peu gourmand en ressource ! Je vous fais pars de ma fonction finale :

Code :

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

1
2
3
4
5
6
7
    Public Function GetImage(ByRef Path As String) As Image
        Dim photoStream As IO.FileStream = New IO.FileStream(Path, IO.FileMode.Open)
        Dim img As Bitmap = Image.FromStream(photoStream)
        photoStream.Dispose()
        photoStream.Close()
        Return img
    End Function

[tomlev]

bien vu