The process cannot access the file.
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:
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