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.
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).
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
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
Partager