Discussion :

[stephane93fr]

Bonjour à tous.

Dans mon application, lors de la creation d'une fiche, je donne la possibilité d'ajouter une image, et qui s'affiche dans une PICTUREBOX.
Le fichier est ensuite copié dans un repertoire de stockage.

Lorsque l'utilisateur supprime une fiche, je veux que le fichier de l'image associé soit elle aussi supprimé.

Mon probleme est qu'il me dit à chaque fois que le fichier est en cours d'utilisation, et je ne peux pas le supprimer.

Voici mon code:

Code :

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

1
2
3
4
5
6
 
        If Not (ptbAffiche.Image Is Nothing) Then
            ptbAffiche.Image.Dispose()
            ptbAffiche.Image = Nothing
            File.Delete(DataViewSupp.Item(0).Item("Image"))
        End If

Avez-vous une idée ?

Merci.

[neguib]

T'es en mode debbug peut être
en tout cas sur le principe tu as du ouvrir ton fichier à un moment donc il faut arrêter le handle sur ce fichier avant de le supprimer

[stephane93fr]

OK !!

Mais comment j'arrete le HANDLE ?
Et oui effectivement, je suis en mode DEBUG.

Merci.

[neguib]

OK !!

Mais comment j'arrete le HANDLE ?
Et oui effectivement, je suis en mode DEBUG.

Merci.

si tu ferme ta form dans le designer avant d'executer çà te le fait toujours :
sinon mets moi le code qui recupère l'image dans le fichier pour savoir comment il est ouvert

[stephane93fr]

Comme je ne peux pas fermer la FORM, je te donne mon code qui me permet d'afficher l'image dans ma PICTUREBOX.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        Dim Dlg As New OpenFileDialog
        Dim MyImage As Bitmap
 
        Dlg.Filter = "Fichiers image (*.JPEG;*.JPG)|*.JPEG;*.JPG"
 
        If Dlg.ShowDialog() = DialogResult.OK Then
            folderImage = Dlg.FileName
            MyImage = New Bitmap(folderImage)
            ptbAffiche.Image = CType(MyImage, Image)
        End If

Ensuite, quand l'utilisateur valide la creation de la fiche je copie l'image selectionnée dans un repertoire de stockaga avec la commande suivante:

Code :

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

1
2
 
        File.Copy(folderImage, exedir & imgFile & temp, True)

Enfin, en mode lecture, j'affiche l'image de la facon suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
            folderImage = DataViewSelect.Item(0).Item("Image")
            Dim fi As New FileInfo(folderImage)
            Dim MyImage As New Bitmap(folderImage)
            ptbAffiche.Image = CType(MyImage, Image)
[quote]
 
J'espere que cela te suffira.
 
Merci pour ton aide.[/quote]

[neguib]

Comme je ne peux pas fermer la FORM...

Comment çà tu peux pas fermer la fenêtre du mode design : : :

[stephane93fr]

Eu si, excuse moi je me suis trompé !!
Je viens de faire le teste, c'est toujours pareil, il me dit que le fichier est en cour d'utilisation.

[neguib]

Code :

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

1
2
3
4
5
6
 
If Dlg.ShowDialog() = DialogResult.OK Then 
            folderImage = Dlg.FileName 
            MyImage = New Bitmap(folderImage) 
            ptbAffiche.Image = CType(MyImage, Image) 
End If

C'est là que çà se joue je crois
je te propose d'utiliser plutôt le Constructeur Bitmap (Stream)
le stream doit rester ouvert pendant la durée de vie de l'objet Bitmap
mais ensuite il suffura de le fermer le moment venu dès que l'objet Bitmap en question n'a plus de raison d'être; celà liberera le fichier

• Stream.Close

• ptbAffiche.Image.Dispose

[stephane93fr]

Merci beaucoup, ca marche maintenant !!