chargement d'une image pour modification

Bonjour,

Je crée un logiciel pour scanner et modifier des documents.
J'arrive donc à scanner et à modifier mes images les enregistrer aussi.

Mon soucis est de charger une image existante pour continuer à la modifier.
je n'arrive pas à enregistrer cette nouvelle modification.

voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Choix_image_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Choix_image.ValueChanged   If ok = True Then bmp.Save(fImage, System.Drawing.Imaging.ImageFormat.Jpeg) bmp.Dispose() fImage = Rep_client & BASE.Factures_Liste.CurrentRow.Cells("idbiencomptaclient").Value & "-" & Choix_image.Value & ".jpg" Picture1.Image = Image.FromFile(fImage) Dim bmp_origne As Image = Image.FromFile(fImage) bmp = New Bitmap(Image.FromFile("fImage")) g = Graphics.FromImage(bmp) g.DrawImage(bmp_origne, 1, 1) Picture1.Image = bmp Picture1.Refresh() End If   End Sub

---

donc le bmp = New Bitmap(Image.FromFile("fImage")) ne me permet pas de réengistrer l'image

Y-a-t-il un moyen de charger une image existante pour la modifier et surtout la réenregitrer ?

Merci d'avance

t'as pas besoin de faire un new bitmap, tu l'as deja via le fromfile

d'ailleur la ligne
bmp = New Bitmap(Image.FromFile("fImage"))
je suis pas sur qu'elle marche, fromfile demande un chemin de fichier !

Effectivement c'était une erreur de copier coller puisque fImage est une variable.

sauf que si j'utilise un variable de type image ça n'enregistre pas quand même.

voici mon nouveau code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Choix_image_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Choix_image.ValueChanged   If ok = True Then If bmp_scan IsNot Nothing Then bmp_scan.Save(fImage, Imaging.ImageFormat.Jpeg) bmp_scan = Nothing Else bmp_file.Save(fImage, Imaging.ImageFormat.Jpeg) End If fImage = Rep_client & BASE.Factures_Liste.CurrentRow.Cells("id").Value & "-" & Choix_image.Value & ".jpg" Picture1.Image = Image.FromFile(fImage) Dim bmp_origne As Image = Image.FromFile(fImage) bmp_file = Image.FromFile(fImage) g = Graphics.FromImage(bmp_file) g.DrawImage(bmp_origne, 1, 1) Picture1.Image = bmp_file Picture1.Refresh() End If   End Sub

---

ca ne créé pas de fichier ?
le fichier est enregistré mais pas modifié ?

?

ça ne crée pas le fichier

étrange ... .save soit ca créé un fichier, soit ca plante en théorie ...

Après quelques modif il me fait l'erreur suivante

Une erreur générique s'est produite dans GDI+.

apparemment courant selon google, essaye les diverses solutions proposées

Effectivement.
Le problème est que image.fromfile ouvre le fichier image mais ne le ferme pas donc impossible de l'enregistrer de nouveau il faut passer par un filestream et utiliser image.fromstream pour charger l'image et là ça marche.

comme suit

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

Private Sub Choix_image_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Choix_image.ValueChanged     If ok = True Then If bmp_scan IsNot Nothing Then bmp_scan.Save(fImage, Imaging.ImageFormat.Jpeg) ElseIf bmp_file IsNot Nothing Then bmp_file.Save(fImage, System.Drawing.Imaging.ImageFormat.Jpeg) End If fImage = Rep_client & BASE.Factures_Liste.CurrentRow.Cells("id").Value & "-" & Choix_image.Value & ".jpg" Dim s As FileStream = New FileStream(fImage, FileMode.Open, FileAccess.Read) Dim bmp_origne As Image = Image.FromStream(s) bmp_scan = New Bitmap(Image.FromStream(s)) s.Close() s = Nothing g = Graphics.FromImage(bmp_scan) g.DrawImage(bmp_origne, 1, 1) Picture1.Image = bmp_scan Picture1.Refresh()   End If   End Sub

---