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

Question

Mon programme calcule le ferraillage d'un poteau béton. L'utilisateur
entre les données, et lance le calcul qui aboutit sur le dessin du
poteau et une note de calcul que je genère en HTML.

L'image est enregistrée sur mon disque et est affichée dans une picturebox et dans la note de calcul en HTML.

Tout cela marche mais si je relance le calcul ça plante avec mon erreur de GDI+.

Je n'arrive pas à comprendre si c'est parce que l'image est utilisé que je n'arrive pas à l'afficcher de nouveau.

 MON CODE
 
Private
Sub menu_Calculer(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles barre_calculer.Click, mnu_calculer.Click

        ...blablablabla....

        
        '--- Affichage dessin ---
        'Image de support
        'pic.Dispose()
        Dim img As Bitmap = New Bitmap(pic.Width, pic.Height)
        'Dim img As New Bitmap(file_img_p)
        'frm_note.Close()
        'pic.Image = Nothing
        'Paramètres de transformation
        Dim ajust As ajustage = Ajuste_section(section, pic)
        'Trace
        Call Trace_section(section, img, ajust)
        Call Trace_section(section_Br, img, ajust)
        'Affichage sur la picturebox

        Try
            Image.FromFile(file_img_p).Dispose()
            img.Save(file_img_p, ImageFormat.Gif)
            pic.Image = Image.FromFile(file_img_p)
        Catch ex As Exception
            Console.WriteLine(">>>" & ex.Message)
        End Try
        

        '--- Note de calculs ---
        'Call ndc_poteau(p, geom_p, soll_p, meca_p, arm_p)
        'Call menu_ndc(sender, e)

        'img.Dispose()

    End Sub
 MODULE DESSIN
 
Public Sub Trace_section(ByRef tableau() As PointF, ByVal img As Bitmap, ByVal ajust As ajustage)
        'Trace une image à partir d'un tableau

        Dim tableau_trace() As PointF
        tableau_trace = tableau.Clone

        'Tableau affichage
        For i As Integer = 0 To tableau_trace.GetUpperBound(0)
            tableau_trace(i).X = tableau(i).X * ajust.echelle.dx + ajust.vecteur.dx
            tableau_trace(i).Y = tableau(i).Y * ajust.echelle.dy + ajust.vecteur.dy
        Next i

        'Créer une image en fonction de la picturebox
        Dim graph As Graphics = Graphics.FromImage(img)
        'graph.FromImage(img)
        'Dessin
        graph.FillRectangle(Brushes.White, New Rectangle(0, 0, img.Width, img.Height))
        graph.DrawPolygon(Pens.Red, tableau_trace)

        'Dim img1 As Image = New Bitmap(img.Width, img.Height, graph)
        'img1.Save("c:\essai.bmp") ', ImageFormat.Bmp)

        graph.Dispose()

    End Sub

alex1496 · Accepted Answer

J'ai trouvé la solution mais pas la réponse.

Code :
 Sub principal ()_click

blabla...

        '--- Affichage dessin ---
      
        Dim img As Bitmap = New Bitmap(pic.Width, pic.Height)
        Dim graph As Graphics = Graphics.FromImage(img)

        'Paramètres de transformation
        Dim ajust As ajustage = Ajuste_section(section, pic)

        'Trace
        graph.FillRectangle(Brushes.White, New Rectangle(0, 0, img.Width, img.Height))
        Call Trace_section(section, img, graph, ajust)
        Call Trace_section(section_Br, img, graph, ajust)

        'Affichage sur la picturebox
        img.Save(file_img_p, ImageFormat.Bmp)
        pic.Image = img

        graph.Dispose()

end sub
    Public Sub Trace_section(ByRef tableau() As PointF, ByVal img As Bitmap, ByVal graph As Graphics, ByVal ajust As ajustage)
        'Trace une image à partir d'un tableau

        Dim tableau_trace() As PointF
        tableau_trace = tableau.Clone

        'Tableau affichage
        For i As Integer = 0 To tableau_trace.GetUpperBound(0)
            tableau_trace(i).X = tableau(i).X * ajust.echelle.dx + ajust.vecteur.dx
            tableau_trace(i).Y = tableau(i).Y * ajust.echelle.dy + ajust.vecteur.dy
        Next i

        graph.DrawPolygon(Pens.Red, tableau_trace)

    End Sub

alex1496 · Answer

C'est ce que j'ai reussi à recupérer de 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+."
  Source="System.Drawing"
  StackTrace:
       à System.Drawing.Image.Save(String filename, ImageCodecInfo encoder, EncoderParameters encoderParams)
       à System.Drawing.Image.Save(String filename, ImageFormat format)
       à WindowsApplication1.frm_poteau.menu_Calculer(Object sender, EventArgs e) dans N:\PROG_VB2005\CABA\frm_poteau.vb:ligne 235
       à System.Windows.Forms.ToolStripItem.RaiseEvent(Object key, EventArgs e)
       à System.Windows.Forms.ToolStripButton.OnClick(EventArgs e)
       à System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e)
       à System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e)
       à System.Windows.Forms.ToolStripItem.FireEventInteractive(EventArgs e, ToolStripItemEventType met)
       à System.Windows.Forms.ToolStripItem.FireEvent(EventArgs e, ToolStripItemEventType met)
       à System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea)
       à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       à System.Windows.Forms.Control.WndProc(Message& m)
       à System.Windows.Forms.ScrollableControl.WndProc(Message& m)
       à System.Windows.Forms.ToolStrip.WndProc(Message& m)
       à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
       à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       à System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       à System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
       à System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       à System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       à System.Windows.Forms.Application.Run(ApplicationContext context)
       à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       à WindowsApplication1.My.MyApplication.Main(String[] Args) dans 17d14f5c-a337-4978-8281-53493378c1071.vb:ligne 81
       à System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
       à System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
       à Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       à System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       à System.Threading.ThreadHelper.ThreadStart()
 Moi j'y comprends rien

Si vous avez besoin de plus d'info, pas de souci

Dur d'etre pour moi d'être novice !

ShareVB · Answer

salut,

apparemment MS a encore sorti quelquechose avant de l'avoir finalisé :
http://www.gotdotnet.com/Community/MessageBoard/Thread.aspx?id=385983

sinon essaie en JPEG...visiblement les implémentation de l'enregistrement sont un peu buggées...

ShareVB

ShareVB · Answer

salut,

j'ai l'impression que le Gif de .Net a une taille limite...par contre en JPEG, ca doit aussi marcher...

ShareVB

alex1496 · Answer

J'en sais trop rien. J'en ai perdu mon latin.
Mais la ca marche.
Si quelqu'un a l'explication, qu'il se manifeste.

Lucyberad · Answer

la tu utilise le BMP, c'est vachement lourd comme fichier.

si la taille ne t'importe pas et que tu a plutot besoin de vitesse de traitement, ok pour le BMP, sinon pour alleger les images: utilise le Jpeg.

comme je te l'ai repondu a ton MP, la premiere ligne:
            Image.FromFile(file_img_p).Dispose()
ne sert a rien.

ensuite je crois savoir pourquoi: probablement que la methode Save fait un travail asynchrone, et que la deuxieme essaye de charger un fichier en cours d'edition... peut-être, en tout cas à essayer !
            img.Save(file_img_p, ImageFormat.Bmp)
            pic.Image = Image.FromFile(file_img_p)

 
L U C Y I3 E R @ D

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

6 réponses

Votre réponse