Erreur enregistrement image après modifRésolu

Question

Voici mon code :

  Dim Picture As Drawing.Bitmap = Drawing.Bitmap.FromFile("C:\Users\Redman\Desktop\aaa.jpg")
                Dim TemporaryPicture As Drawing.Bitmap = Picture.Clone
                Picture.Dispose()
                Dim X As Integer = 916
                Dim Y As Integer = 258
                Dim Width As Integer = 321
                Dim Height As Integer = 241
                Dim FinalPicture As New Drawing.Bitmap(Width, Height, TemporaryPicture.PixelFormat)

                For xi As Integer = X To X + Width - 1
                    For xy As Integer = Y To Y + Height - 1
                        FinalPicture.SetPixel(xi - X, xy - Y, TemporaryPicture.GetPixel(xi, xy))
                    Next
                Next

                FinalPicture.Save("C:\Users\Redman\Desktop\aaa.jpg")

Le programme lève une exception à : FinalPicture.Save("C:\Users\Redman\Desktop\aaa.jpg")
Voici l'erreur : 

L'exception System.Runtime.InteropServices.ExternalException n'a pas été gérée
  ErrorCode=-2147467259
  Message="Une erreur générique s'est produite dans GDI+."

Comment y remédier ?

Merci d'avance :D

Redman

jmenfous · Accepted Answer

Pardon, l'éditeur de texte du forum ne semble pas aimer Opera don je te refais le code proprement avec les retours à la ligne:

Je n'ai malheureusement pas put tester ton code (soucis de taille
d'image dans la boucle for) Par contre je pense que ton souci provien
d'une impossiblité d'enregistrer ton image car elle est déjà ouverte
(souci plsu fréquent qu'il n'y parait)

Je te coneillerai plutôt
d'utiliser un code du genre : 

' Chargement de l'image à dessiner
Dim
path as String = "...path vers ton image..." 
Dim fs As New
System.IO.StreamReader(path) 
Dim image As Image =
image.FromStream(fs.BaseStream)
fs.Close()
fs.Dispose()
fs = Nothing

'
Création du bitmap pour réaliser le dessin
Dim bmp As New
Bitmap(image.Width, image.Height)

' Création du graphics pour dessiner
Dim g As Graphics = Graphics.FromImage(bmp)

' On dessine l'image 
' (ce
n'est qu'un exemple à adapter en focntion de ce que tu veux faire de
ton image) g.DrawImage(image, 0, 0)

' Sauvagarde
bmp.Save(path,
System.Drawing.Imaging.ImageFormat.Jpeg)

C'est tout de même plus lisible comem ça 

Jérémy Jeanson MCP

jmenfous · Answer

Je n'ai malheureusement pas put tester ton code (soucis de taille d'image dans la boucle for)

Par contre je pense que ton souci provien d'une impossiblité d'enregistrer ton image car elle est déjà ouverte (souci plsu fréquent qu'il n'y parait)

Je te coneillerai plutôt d'utiliser un code du genre :

        ' Chargement de l'image à dessiner
        Dim path as String = "...path vers ton iamge..."
        Dim fs As New System.IO.StreamReader(path)
        Dim image As Image = image.FromStream(fs.BaseStream)
        fs.Close()
        fs.Dispose()
        fs = Nothing

        ' Création du bitmap pour réaliser le dessin
        Dim bmp As New Bitmap(image.Width, image.Height)

        ' Création du graphics pour dessiner
        Dim g As Graphics = Graphics.FromImage(bmp)

        ' On dessine l'image (ce n'est qu'un exemple à adapter en focntion de ce que tu veux faire de ton image)
        g.DrawImage(image, 0, 0)

        ' Sauvagarde
        bmp.Save(path, System.Drawing.Imaging.ImageFormat.Jpeg)

Jérémy Jeanson MCP

Redman31100 · Answer

Bah moi j'avais appris sur un livre de programmation VB.Net a utiliser Image.Clone dans une autre image donc ca copie sans utiliser le stream et ensuite Image.Dispose. Et là ça ne marche pas. Je vais essayer comme tu dis.

Par contre j'arrive pas avec g.DrawImageUnscaledAndClipped(Picture, New Drawing.Rectangle(X, Y, Width, Height)) ca ne sélectionne pas le rectangle de l'image que je veux importer dans la nouvelle image. Ca fait une image toute noire.

Redman

Redman31100 · Answer

J'ai réussi à ma façon avec les 2 boucles que j'avais fait.

Merci 

Redman

Erreur enregistrement image après modif

4 réponses

Votre réponse

Discussions similaires