[VB.Net] Image à partir d'un fichier

Salut,

Code:

---

1 2 3

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick PictureBox1.Image = Image.FromFile("c:\captured.jpg") End Sub

---

voilà mon code pour afficher une image dans ma picturebox a chaques fois que timer.tick, sachant que celle-ci est un capture écran d'une autre form et qui change elle aussi toute les secondes.

A la charge de mon projet, on m'affiche l'erreur suivante :
"Une erreur générique s'est produite dans GDI+"

Si quelqu'un sait d'ou vient l'erreur ?
Merci :)

Il semblerait que le problème ne vienne pas du chargement de l'image à partir du fichier, mais plutôt de la capture d'une nouvelle image.

La méthode Image.FromFile à l'air d'empêcher la réécriture par MyImage.Save, cela se confirme lorsque l'on utilise un try, catch :

Code:

---

1 2 3 4 5

Try MyImage.Save("c:\Captured.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) Catch ex As Exception MessageBox.Show(ex.Message) End Try

---

Mais je n'ai pas de solution pour fermer le fichier :aie: .

Comment fais-tu pour la capture d'écran?

si tu as la possibilité, passe par des streams mémoires au lieu de passer par un fichier...

Excuse moi c'est quoi un stream mémoire ? :? ^^

C'est la classe MemoryStream qui te permet ça... elle dérive de la classe Stream


Comment procèdes tu pour faire ta copie d'ecran???

essayer de déclarer un variable image1

image1= New Bitmap("c:\Captured.jpg", True)

puis l'affecter à ton PictureBox:

PictureBox1.Image = image1

Malheureusement cette nouvelle méthode ne change rien, la méthode de capture de l'écran a été donnée par Badger Man dans une autre discussion :

Code:

---

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

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim G1 As Graphics = Me.CreateGraphics Dim MyImage As Image = New Bitmap(Me.ClientRectangle.Width, Me.ClientRectangle.Height, G1) Dim G2 As Graphics = Graphics.FromImage(MyImage) Dim dc1 As IntPtr = G1.GetHdc Dim dc2 As IntPtr = G2.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, TernaryRasterOperations.SRCCOPY) G1.ReleaseHdc(dc1) G2.ReleaseHdc(dc2) Try MyImage.Save("c:\Captured.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) Catch ex As Exception MessageBox.Show(ex.Message) EndTry EndSub

---