Bonjour,

Je suis un débutant dans ce langage.
Mon erreur est assez simple à comprendre mais je n'arrive pas à la résoudre.
On me dit que le fichier est déjà utilisé par un processus.
Le but de cette fonction est de supprimer l'image et de la recréer en fonction de ce que l'on a envoyé en paramètres.


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
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub SaveFile(ByVal Source As Bitmap, ByVal DestinationSize As Size, ByVal Path As String)
            Dim CodecInfos As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders()
 
            Dim EncoderParameter As New Imaging.EncoderParameter(Encoder.Quality, _JpgQuality)
            Dim EncoderParameters As New Imaging.EncoderParameters
            EncoderParameters.Param(0) = EncoderParameter
 
            Dim MyImageCodecInfo As ImageCodecInfo = Nothing
            For Each codec As ImageCodecInfo In ImageCodecInfo.GetImageEncoders()
                If codec.MimeType = "image/jpeg" Then
                    MyImageCodecInfo = codec
                    Exit For
                End If
            Next
 
            Dim Folder As String = Path.Substring(0, Path.LastIndexOf("\"))
            If Not IO.Directory.Exists(Folder) Then
                IO.Directory.CreateDirectory(Folder)
            End If
 
            If System.IO.File.Exists(Path) Then
                System.IO.File.Delete(Path)
            End If
 
            Using FileStream As New IO.FileStream(Path, IO.FileMode.Create)
                Source.Save(FileStream, MyImageCodecInfo, EncoderParameters)
            End Using
            Source.Dispose()
        End Sub
L'erreur se situe lorsque je veux supprimer l'image, (quand l'image n'existe pas ça marche, une fois qu'elle est crée ça ne marche plus).

Je suis vraiment perdu, si quelqu'un a une idée, ou que ça lui est déjà arrivé, je suis preneur :/

Si vous avez des questions je reste à votre disposition.

GoT