GDI+ - Arbeitsspeicher läuft voll

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von J.Herbrich.

    GDI+ - Arbeitsspeicher läuft voll

    Hallo,

    ich habe bei meiner GDI+ Routine das Problem, dass der Arbeitsspeicher extrem schnell volläuft, etwa 2-3 MB pro Frame den ich rendere. Bei ca. 600 - 800 Frames ist dann Schluss - OutOfMemory-Exception

    Ich habe hier mal den Code gepostet... eigentlich dispose ich alles was ich aufmache, aber irgendwas muss hier noch versteckt sein.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub drawFrame()
    3. If Not IsNothing(picBoxGauge.BackgroundImage) Then
    4. picBoxGauge.BackgroundImage.Dispose()
    5. End If
    7. Dim pic As New Bitmap(350, 350)
    8. Dim g As Graphics = Graphics.FromImage(pic)
    10. Dim backgroundBrush As New SolidBrush(Color.Black)
    11. Dim speedFont As New Font("Arial", 20, FontStyle.Bold)
    12. Dim speedXpos As Integer
    14. Dim f1t_overlay As Image = My.Resources.f1t_overlay
    15. Dim f1t_bg As Image = My.Resources.f1t_bg
    16. Dim f1t_drs_active As Image = My.Resources.f1t_drs_active
    18. Select Case frames(frameCounter).speed.ToString.Length
    19. Case 1
    20. speedXpos = 133
    21. Case 2
    22. speedXpos = 124
    23. Case 3
    24. speedXpos = 115
    25. End Select
    27. With g
    29. 'Draw the background
    30. .DrawImage(f1t_bg, 0, 0, 350, 350)
    32. 'Draw throttle, brake, speed, gear, rpm and kers
    33. .FillRectangle(Brushes.Green, 92, 233, 105 * frames(frameCounter).throttle + 1, 9)
    34. .FillRectangle(Brushes.Red, 92, 245, 105 * frames(frameCounter).brake + 1, 9)
    35. .DrawString(frames(frameCounter).speed, speedFont, Brushes.White, speedXpos, 122)
    37. 'Draw drs and overlay
    38. .DrawImage(My.Resources.f1t_overlay, 0, 0, 350, 350)
    40. End With
    42. picBoxGauge.BackgroundImage = Image.FromHbitmap(pic.GetHbitmap)
    44. g.Dispose()
    45. pic.Dispose()
    46. backgroundBrush.Dispose()
    47. speedFont.Dispose()
    49. f1t_bg.Dispose()
    50. f1t_drs_active.Dispose()
    51. f1t_overlay.Dispose()
    53. End Sub



    EDIT: Ich habe gerade auch nochmal im Taskmanager nachgeschaut, ich kriege pro Frame ein GDI-Objekt dazu -> sehr wahrscheinlich das Bild, das diese 2-3MB braucht und damit den Arbeitsspeicher vollspammt
    Twitch Viewer Display Chat-, Zuschauer- und Statistiktool für Streamer

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „newcat“ ()

    Und versuch doch mal direkt auf die PictureBox zu zeichnen und nicht das Hintergrundbild zu setzen

    VB.NET-Quellcode

    1. Private Sub picBoxGauge_Paint(sender As Object, e As PaintEventArgs) Handles picBoxGauge.Paint
    2. e.Graphics.DrawImage(f1t_bg, 0, 0, 350, 350)
    3. End Sub

    Hab jetzt mal den Code etwas geändert, die Variablen waren eh nur zu Testzwecken da unten, allerdings tritt das Problem immernoch auf.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim pic As New Bitmap(350, 350)
    2. Dim g As Graphics = Graphics.FromImage(pic)
    4. Dim backgroundBrush As New SolidBrush(Color.Black)
    5. Dim speedFont As New Font("Arial", 20, FontStyle.Bold)
    6. Dim speedXpos As Integer
    8. Dim f1t_overlay As Image = My.Resources.f1t_overlay
    9. Dim f1t_bg As Image = My.Resources.f1t_bg
    10. Dim f1t_drs_active As Image = My.Resources.f1t_drs_active
    12. Private Sub drawFrame()
    14. If Not IsNothing(picBoxGauge.BackgroundImage) Then
    15. picBoxGauge.BackgroundImage.Dispose()
    16. End If
    18. Select Case frames(frameCounter).speed.ToString.Length
    19. Case 1
    20. speedXpos = 133
    21. Case 2
    22. speedXpos = 124
    23. Case 3
    24. speedXpos = 115
    25. End Select
    27. With g
    29. .Clear(Color.Transparent)
    31. 'Draw the background
    32. .DrawImage(f1t_bg, 0, 0, 350, 350)
    34. 'Draw throttle, brake, speed, gear, rpm and kers
    35. .FillRectangle(Brushes.Green, 92, 233, 105 * frames(frameCounter).throttle + 1, 9)
    36. .FillRectangle(Brushes.Red, 92, 245, 105 * frames(frameCounter).brake + 1, 9)
    37. .DrawString(frames(frameCounter).speed, speedFont, Brushes.White, speedXpos, 122)
    39. 'Draw drs and overlay
    40. .DrawImage(My.Resources.f1t_overlay, 0, 0, 350, 350)
    42. End With
    44. picBoxGauge.BackgroundImage = Image.FromHbitmap(pic.GetHbitmap)
    46. End Sub



    @Bluespide
    Ja werde ich mal probieren... das Hauptziel ist eigentlich auch gar nicht das Anzeigen der Bitmaps sondern eigentlich das Speichern, man soll sozusagen nur den Fortschritt auch sehen können, deshalb dachte ich diese Lösung wäre eleganter
    EDIT: Hmm vielleicht bin ich zu blöd dafür, ich bekomme nur ein rotes Kreuz angezeigt... Musste man da nicht irgendwie erst einstellen, dass man selber zeichnen möchte? Wenn ja bin ich definitiv zu blöd den entsprechenden Parameter zu finden.
    EDIT2: Okay, Fehler gefunden: Ich hatte noch ne NullPointerException drin - die wurde mir natürlich nicht angezeigt. Jetzt funktioniert es auch - aber was hätte ich disposen müssen, damit es mit den Bitmaps funktioniert hätte?
    Twitch Viewer Display Chat-, Zuschauer- und Statistiktool für Streamer

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „newcat“ ()

    Sorry für den Doppelpost, aber eigentlich ist das hier ein neues (altes Problem):

    Wenn ich jetzt so die Bitmaps speichern möchte, bekomme ich wieder das RAM-Problem:

    VB.NET-Quellcode

    1. picBoxGauge.Update()
    2. picBoxGauge.DrawToBitmap(pic, New Rectangle(0, 0, 350, 350))
    3. pic.Save(filePath & "\f1t_" & frameCounter.ToString & ".png", System.Drawing.Imaging.ImageFormat.Png)


    Ich vermute, dass irgendwo im System jede "Version", also jeder Frame, des pic gespeichert wird, auch wenn ich es im nächsten Durchlauf überschreibe. Dass dadurch der benutzte Speicher in die Höhe schießt ist klar, aber ich muss doch irgendwie diese "versteckten" GDI-Objekte löschen können oder?
    Twitch Viewer Display Chat-, Zuschauer- und Statistiktool für Streamer

    Hallo, Mal ne gant kleine Frage?

    Ich selber habtte früher ein "schrott pc" als zweit rechner mit 256MB Ram, (st nicht peinlich jungs^^) und da hatte ch halt auch bei Code der scheinbar normal lief auf meinen Haupt-PC überall OutOfMemory Exceptions. Ich habe jetzt mal alten code hervorgecramt der reines GDI nutzt und da hackt auch das ganze Programm, zwar keine Exception aber der Tastmanager spricht für sich.

    LG, Herbrich

    Das mit dem Picturebox.backgroundImage.Dispose() hab ich im oberen Code schonmal probiert, das hat da allerdings auch nicht funktioniert; ich werds aber auch nochmal im neuen Code probieren.

    @ErfinderDesRades
    Ich speicher jeden Frame weil ich dann später mit Blender die ImageSequence als Overlay über das eigentliche Video lege. Dazu brauche ich Bilder mit Alpha-Channel. Die Bilder sind allerdings auch nicht groß, pro PNG nur 25kb, da komme ich selbst bei langen Recordings nicht in den GB Bereich.

    EDIT: Hatte vergessen den neuen Code fürs Paint-Event zu posten, hier ist er:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub picBoxGauge_Paint(sender As Object, e As PaintEventArgs) Handles picBoxGauge.Paint
    3. If Not IsNothing(frames) Then
    5. Select Case frames(frameCounter).speed.ToString.Length
    6. Case 1
    7. speedXpos = 132
    8. Case 2
    9. speedXpos = 121
    10. Case 3
    11. speedXpos = 110
    12. End Select
    14. Select Case frames(frameCounter).gear
    15. Case 0
    16. gearString = "N"
    17. Case 10
    18. gearString = "R"
    19. Case Else
    20. gearString = frames(frameCounter).gear
    21. End Select
    23. With e.Graphics
    25. .Clear(Color.FromKnownColor(KnownColor.Control))
    27. 'Draw the background
    28. .DrawImage(f1t_bg, 0, 0, 350, 350)
    30. 'Draw throttle, brake, speed, gear, rpm and kers
    31. .FillRectangle(Brushes.Green, 92, 233, 105 * frames(frameCounter).throttle + 1, 9)
    32. .FillRectangle(Brushes.Red, 92, 245, 105 * frames(frameCounter).brake + 1, 9)
    33. .DrawString(frames(frameCounter).speed, speedFont, Brushes.White, speedXpos, 120)
    34. .DrawString(gearString, gearFont, Brushes.White, 135, 180)
    35. 'TODO: RPM algorithms
    36. .FillRectangle(Brushes.Red, 275, CInt(212 - 76 * (frames(frameCounter).kers / 400000)), 21, CInt(76 * (frames(frameCounter).kers) / 400000) + 1)
    38. 'Draw drs and overlay
    39. If frames(frameCounter).drs = 1 Then
    40. .DrawImage(My.Resources.f1t_drs_active, 0, 0, 350, 350)
    41. End If
    42. .DrawImage(My.Resources.f1t_overlay, 0, 0, 350, 350)
    44. End With
    46. End If
    48. End Sub



    EDIT2: Habe gerade gemerkt, dass nachdem alle Frames gerendert sind, der Arbeitsspeicherverbrauch wieder drastisch sinkt. Hat vielleicht die GC nicht genug Zeit alles zu löschen? Ich habe es auch schonmal mit GC.Collect(100, GCCollectionMode.Forced, True) versucht, allerdings hat das keinen Unterschied gemacht.
    Twitch Viewer Display Chat-, Zuschauer- und Statistiktool für Streamer

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „newcat“ ()

    newcat schrieb:

    VB.NET-Quellcode

    1. Select Case frames(frameCounter).speed.ToString.Length
    Hier gibt es kein Case Else. Ist das korrekt?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    newcat schrieb:

    VB.NET-Quellcode

    1. Select Case frames(frameCounter).speed.ToString.Length
    Hier gibt es kein Case Else. Ist das korrekt?


    Korrekt. Speed geht von 0 bis etwa 350

    EDIT:
    Nachdem mir aufgefallen ist, dass das Abspielen ja funktioniert, obwohl es auf dem gleichen Prinzip basiert, habe ich jetzt einen Timer mit dem Intervall 1ms eingefügt und mit diesem die While-Schleife ersetzt. Scheint so, als ob die GC jetzt genug Zeit hat um die ganzen alten Bilder zu löschen, zumindest bleibt der benötigte Arbeitsspeicher jetzt unter 200MB. Das ist zwar definitiv nicht die eleganteste Lösung, besonders im Hinblick auf Performance, aber immerhin tut es so!
    Twitch Viewer Display Chat-, Zuschauer- und Statistiktool für Streamer

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „newcat“ ()

    Was spricht eigentlich gegen einen TryCahtch block (falls nicht schon vorhanden) mit eingebauten Finally, alle Variablen werden dann einfach vor den TryCatch Block definiert und anschlißend in Finally gecleart (also auf Nothing) gesetzt. Dann sollte es doch eigentlich ja funktionieren oder nicht?

    LG, Herbrich

    Ich hab ein ähnliches Problem, allerdings bin ich noch nie in einen Speicherüberlauf gelaufen. Die Frage die ich mir stelle ist, muss man nun am Ausgang einer Funktion die selbst erstellten Objekte (Bitmaps, Grafik-Obj., Pens und Brushes) disposen oder macht VB das selbst?

    Klaus

    Man sollte.
    Die IDisposable-Schnittstelle und das Using-Schlüsselwort sind nunmal dafür geschaffen, dass nicht mehr gebrauchte Objekte damit aufgeräumt werden.
    Viele Klassen implementieren IDisposable.
    Bei manchen wirkt es sich gravierend aus, wenn das Disposen vergessen wird, bei anderen ist zT. gar kein Effekt merkbar.

    Aber imo bist du auf der sicheren Seite, wenn du disposest, was du nicht mehr brauchst.

    Jep, ich habe selber mal zum Dispose Pattern hier ein par Tips in Forum geschrieben :)

    Scheint ja nicht zu reichen, das Disposen. Wenn die GC nicht zum Zug kommt (auch wenn ich sie force, warum auch immer) wird der Speicher trotzdem nicht freigegeben. Ich nehme an, es läuft hier irgendetwas im Framework, was ständig die Bilder speichert, aber nicht automatisch Disposed, und die GC kommt in einer while-Schleife einfach nicht dran; ich frage mich aber, warum GC.Collect(100, GCCollectionMode.Forced, True) (ob ich als Generation 1 oder 40000 nehme, ist egal) dann nicht funktioniert - theoretisch müsste doch dann so ein synchroner Aufruf der GC erfolgen. Wiegesagt, die Timer-Lösung funktioniert, deshalb habe ich den Thread auch mal als gelöst markiert; falls aber jemand noch eine Idee hat, wie man das ganze effizienter lösen könnte, darf sie hier gerne loswerden - ich würde auch Code und benötigte Dateien hochladen, falls das jemand braucht.
    Twitch Viewer Display Chat-, Zuschauer- und Statistiktool für Streamer

    ich nehme einfach an, du disposest da iwas nicht.

    Und den Königsweg nannte ich bereits in post#2: Erstell einfach nicht so massenhaft von dem Zeugs, sondern wiederverwende esauch mal hin und wieder.
    Aber kannst auch gerne ein Testprojekt zippen und anhängen - nur sollte es keinen Bin-Ordner enthalten.

    Und probier vorher selber aus, obs entpackt und läuft.

    Disposen reict immer aus, ich inplementiere ja auch in jede klasse von mir die IDisposiable Schnittstelle. Weil Dispose einfach zu einfach ist. Man setzt in grundgenommen alles wieder auf Nothing und das wars.

    Das wird dann von GC Aufgerufen und ausgeführt.

    LG, Herbrich

    Hallo,

    Ja, dass ist mir durchaus schon klar, jedoh hindert ein nichts (wie ja schon gesagt) Dispose zu einen Zeitpunkt aufzurufen der mir passt.

    LG, J. Herbrich

Facebook
Telefonspende