Hoher RAM-Verbrauch bei Ändern von Deckkraft in PictureBox

Marcus Gräfe · 5. Februar 2016, 10:17

Ich habe einen Bildschirmschoner, der ein 768x250 Pixel großes Bild auf zwei verschiedenen Monitoren immer ein- und ausblendet. Für die Änderung der Deckkraft benutze ich folgende Funktion:

VB.NET-Quellcode

Public Function ChangeOpacity(ByVal img As Image, ByVal opacityvalue As Single) As Bitmap
' -----------
' Deckkraft eines Bildes ändern
' -----------
If opacityvalue > 100 Then
opacityvalue = 100
ElseIf opacityvalue < 0 Then
opacityvalue = 0
End If
Dim bmp As New Bitmap(img.Width, img.Height)
Dim graphics__1 As Graphics = Graphics.FromImage(bmp)
Dim colormatrix As New colormatrix
colormatrix.Matrix33 = opacityvalue
Dim imgAttribute As New ImageAttributes
imgAttribute.SetColorMatrix(colormatrix, ColorMatrixFlag.[Default], ColorAdjustType.Bitmap)
graphics__1.DrawImage(img, New Rectangle(0, 0, bmp.Width, bmp.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imgAttribute)
graphics__1.Dispose()
Return bmp
End Function

Während dieses Fade-Effekts geht der RAM-verbrauch auf über 1 GB hoch. Kann man das irgendwie optimieren? Die Originalgrafik in der PictureBox ist ein 32Bit-PNG.

nafets · 5. Februar 2016, 10:35

Wenn du die Bitmap in der PictureBox änderst, musst du natürlich die alte disposen. Using wäre übrigens auch ne ganz praktische Sache.

Radinator · 5. Februar 2016, 10:58

Hi @Marcus Gräfe,

Marcus Gräfe schrieb:

ein- und ausblendet

~~Wenn du einfach nur den Alpha-Wert deiner Bilder runter und hoch schraubst, brauchst du kein 2test Bild.~~ (Edit: Zurückgezogen...habs grad ausprobiert..funzt leider ned

)
~~Schau dir mal von @ThuCommix XPlan auf Github an. Da ist in der Klasse FadableText ein FadeIn/FadeOut Effekt mit dem Alphakanal implementiert~~

Wichtig hierbei ist lediglich die Update-Methode, die FadeInVelocity/FadeOutVelocity,AnimationComplete-Property und das _flag (Zeigt an, ob ausgefaded oder eingefaded wird (k.A. ob das so geschrieben wird ;D))
Hab daheim n Pong Projekt mit SGL liegen, in dem ich das FadIn/FadeOut abstrakt gemacht hab. Sprich: Per Property kann man festlegen, ob FadeIN ODER FadeOut ergfolgen soll.

Marcus Gräfe schrieb:

Änderung der Deckkraft

Ich geh mal davon aus, dass sich das Ändern des Alpha-Kanals auch auf die Opacity anpassen lässt (Edit: Bin mir zwar sicher, dass des geht, bin aber bisher auch noch auf keine Lösung gestoßen

)

Lg Radinator

Marcus Gräfe · 7. Februar 2016, 15:16

nafets schrieb:

musst du natürlich die alte disposen

Dachte ich mir zwar schon, aber leider erhalte ich immer eine Exception, wenn ich das mache. Mir fehlt also die richtige Stelle für das Dispose().

So rufe ich die Funktion aus Post #1 übrigens auf:

VB.NET-Quellcode

picBanner.Image = ChangeOpacity(imgOriginal, Convert.ToSingle(iCurrentOpacity) / 100)

Und im Form_Load speichere ich die Originalgrafik zwischen:

VB.NET-Quellcode

imgOriginal = picBanner.Image

Was ich nicht verstehe: Mache ich picBanner.Image.Dispose(), so stößt ChangeOpacity auf einen Fehler. Aber ChangeOpacity greift doch gar nicht auf die PictureBox zu?!

nafets schrieb:

Using wäre übrigens auch ne ganz praktische Sache.

Sagt mir leider gar nichts.

Eddy · 7. Februar 2016, 15:32

Durch die Using Anweisung wird am Ende(End Using) automatisch disposed. Ganz praktisch, koennte mann schnell mal vergessen. Using Anweisungen kannst du fuer alles was System.IDisposeAble implementiert nutzen. An deinem Code scheint aber auch etwas fehlerhaft zu sein, der Wert fuer die Opacity muss in einer Range von 0 und 1 sein.

VB.NET-Quellcode

Public Class Form1
Private original As Image
Private copy As Image
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
original = Image.FromFile("D:\1.jpg")
End Sub
Public Function ChangeOpacity(ByVal img As Image, ByVal opacityvalue As Single) As Bitmap
If opacityvalue > 1 Then
opacityvalue = 1
ElseIf opacityvalue < 0 Then
opacityvalue = 0
End If
Using bmp As New Bitmap(img.Width, img.Height)
Using g As Graphics = Graphics.FromImage(bmp)
Dim colormatrix As New ColorMatrix
colormatrix.Matrix33 = opacityvalue
Dim imgAttribute As New ImageAttributes
imgAttribute.SetColorMatrix(colormatrix, ColorMatrixFlag.[Default], ColorAdjustType.Bitmap)
g.DrawImage(img, New Rectangle(0, 0, bmp.Width, bmp.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imgAttribute)
Return DirectCast(bmp.Clone(), Bitmap)
End Using
End Using
End Function
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
If Not copy Is Nothing Then
copy.Dispose()
End If
copy = ChangeOpacity(original, CSng(TrackBar1.Value / 100))'Trackbar Maximum = 100
BackgroundImage = Nothing
BackgroundImage = copy
End Sub
End Class

nafets · 7. Februar 2016, 15:50

Wenn du das Bild mit der aktuellen Opacity immer als Background-Image oä festlegen möchtest, würde ich es folgendermaßen machen:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.Drawing.Imaging
Public Class MainForm
Private Sub MainForm_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
Me.DoubleBuffered = True
Me.StartTime = DateTime.Now
Me.RefreshTimer.Start()
End Sub
Private Image As Bitmap = My.Resources.Test
Private StartTime As DateTime
Private Duration As Integer = 1000
Private Sub RefreshTimer_Tick(sender As Object, e As EventArgs) Handles RefreshTimer.Tick
'Opacity berechnen
Dim progress As Single = (CSng((DateTime.Now - StartTime).TotalMilliseconds) Mod (Duration * 2)) / (Duration)
Dim opacity As Single = If(progress <= 1, progress, (2 - progress))
'Speicher von der alten Bitmap freigeben, wenn schon eine festgelegt war
If (Me.BackgroundImage IsNot Nothing) Then
Me.BackgroundImage.Dispose()
End If
'Bitmap mit gewünschter
Me.BackgroundImage = Me.SetOpacity(Me.Image, opacity)
End Sub
Private Function SetOpacity(image As Image, opacity As Single) As Bitmap
Dim bmp As Bitmap = New Bitmap(image.Width, image.Height)
Using g As Graphics = Graphics.FromImage(bmp) 'Using Disposed die Graphics nach dem Gebrauch
'Matrix und Attribute erstellen
Dim matrix As New ColorMatrix() With {.Matrix33 = opacity}
Dim attributes As New ImageAttributes()
attributes.SetColorMatrix(matrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
g.DrawImage(image, New Rectangle(0, 0, bmp.Width, bmp.Height), 0, 0, bmp.Width, bmp.Height, GraphicsUnit.Pixel, attributes)
Return bmp
End Using
End Function
End Class

Allerdings wäre eine bessere Möglichkeit, einfach das Bild im OnPaint auf die Form zu zeichnen, das würde dann folgendermaßen gehen:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.Drawing.Imaging
Public Class MainForm
Private Sub MainForm_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
Me.DoubleBuffered = True 'Doublebuffering entfernt Flackern
Me.StartTime = DateTime.Now
Me.RefreshTimer.Start()
End Sub
Private Image As Bitmap = My.Resources.Test
Private StartTime As DateTime
Private Duration As Integer = 1000
Private ImageOpacity As Single = 0
Private Sub RefreshTimer_Tick(sender As Object, e As EventArgs) Handles RefreshTimer.Tick
'Opacity berechnen
Dim progress As Single = (CSng((DateTime.Now - StartTime).TotalMilliseconds) Mod (Duration * 2)) / (Duration)
Me.ImageOpacity = If(progress <= 1, progress, (2 - progress))
'Form neu zeichnen lassen
Me.Invalidate()
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
'Matrix und Attribute erstellen
Dim matrix As New ColorMatrix() With {.Matrix33 = Me.ImageOpacity}
Dim attributes As New ImageAttributes()
attributes.SetColorMatrix(matrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
'Bild direkt auf die Form zeichnen
e.Graphics.DrawImage(Me.Image, New Rectangle((Me.ClientSize.Width - Me.Image.Width) \ 2, (Me.ClientSize.Height - Me.Image.Height) \ 2, Me.Image.Width, Me.Image.Height), 0, 0, Me.Image.Width, Me.Image.Height, GraphicsUnit.Pixel, attributes)
MyBase.OnPaint(e)
End Sub
End Class

So sparst du dir das rumhantieren mit extra-Bitmaps und BackgroundImages oder ähnlichem und zeichnest immer direkt auf die Form, was performanter ist.

Grüße
Stefan

Eddy · 7. Februar 2016, 16:06

OK, mein Beispiel ist ein wenig ungluecklich.

Aber beim 2. Code finde ich es schoener(Using + bmp.Clone()). Waere das nicht so gut? Kann mir vorstellen dass das kopieren auch auf kosten von Performence geht. Habe da nie tests gemacht.

VB.NET-Quellcode

Dim bmp As Bitmap = New Bitmap(image.Width, image.Height)
Return bmp

VB.NET-Quellcode

Using bmp As New Bitmap(img.Width, img.Height)
Return DirectCast(bmp.Clone(), Bitmap)
End Using

nafets · 7. Februar 2016, 16:21

Es geht natürlich auf die Performance, wenn du ein Bild unnötig kopierst, zudem braucht es kurzzeitig auch mehr Speicher. Die Variante ohne Using finde ich daher in diesem Fall sauberer.

Marcus Gräfe · 7. Februar 2016, 16:37

@nafets
Ich sehe bei deinem 1. Code allerdings keinen Unterscheid zu meinem.

Zum einen:
Du machst Me.BackgroundImage.Dispose(). Das führt, wie gesagt, bei mir zu einem Fehler in meiner ChangeOpacity-Funktion. Müsste dann bei dir doch theoretisch auch so sein.

Zum anderen:
Ich dispose graphics__1 bereits nach der Verwendung. Mag ja sein, dass das Using in dem Fall sicherer ist, aber es ist doch trotzdem kein echter Unterschied.

Das zweite Beispiel werde ich mal ausprobieren, aber ich verstehe nicht, was Beispiel #1 am RAM-Verbrauch ändern könnte.

Eddy · 7. Februar 2016, 16:58

Ich glaube es liegt daran das du dem imgOriginal picBanner.Image zuweist, wenn du jetzt das picBanner.Image disposed ist auch imgOriginal Nothing. Daher hast du ungueltige Argument bei erstellen von bmp in deiner Funktion.

In dem Fall macht kopieren wieder Sinn. Mach das in der Load-Methode so, dann muss das klappen da imgOriginal eine Kopie ist und diese nicht freigegeben wird.

VB.NET-Quellcode

imgOriginal = DirectCast(picBanner.Image.Clone, Image)

Marcus Gräfe · 7. Februar 2016, 17:05

Selbst wenn ich das so mache, kommt bei Dim bmp As New Bitmap(img.Width, img.Height) in ChangeOpacity eine Fehlermeldung, weil img Nothing ist.

RodFromGermany · 7. Februar 2016, 17:18

Marcus Gräfe schrieb:

Unterschied

Ich hab versucht das zu reproduzieren. das Bild dispose ich bei der Zuweisung des nächsten Bildes.
Im Taskmanager rauscht es ein wenig, aber Deine Werte kann ich nicht reproduzieren.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Drawing.Imaging
Public Class Form1
Private MyBitmap As New Bitmap("C:\Temp\Stein.jpg")
Dim value As Single = 0.0F
Dim Delta As Single = 10.0F
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Timer1.Enabled = Not Me.Timer1.Enabled
End Sub
Public Function ChangeOpacity(ByVal img As Image, ByVal opacityvalue As Single) As Bitmap
' -----------
' Deckkraft eines Bildes ändern
' -----------
If opacityvalue > 100 Then
opacityvalue = 100
Delta = -Delta
ElseIf opacityvalue < 0 Then
opacityvalue = 0
Delta = -Delta
End If
Dim bmp As New Bitmap(img.Width, img.Height)
Using graphics__1 As Graphics = Graphics.FromImage(bmp)
Dim colormatrix As New ColorMatrix
colormatrix.Matrix33 = opacityvalue / 100.0F
Dim imgAttribute As New ImageAttributes
imgAttribute.SetColorMatrix(colormatrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
graphics__1.DrawImage(img, New Rectangle(0, 0, bmp.Width, bmp.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imgAttribute)
End Using
Return bmp
End Function
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim bmp = Me.ChangeOpacity(Me.MyBitmap, value)
If (Me.PictureBox1.Image IsNot Nothing) Then
Me.PictureBox1.Image.Dispose()
End If
Me.PictureBox1.Image = bmp
value += Delta
End Sub
End Class

Mokki · 7. Februar 2016, 17:19

@Rod Naja wie groß ist das Bild was Marcus verwendet?

Lg Mokki

RodFromGermany · 7. Februar 2016, 17:22

Mokki schrieb:

wie groß

Marcus: 768x250 Pixel
ich: 816x1232 Pixel.

Eddy · 7. Februar 2016, 17:25

Also das kann ich nicht verstehen, wenn ich das so mache geht es, wenn ich aber im Load imgOriginal = picBanner.Image nutze anstatt Image.Clone() dann wird das mit einer System.ArgumentException quitiert.

Spoiler anzeigen

Quellcode

Imports System.Drawing.Imaging
Public Class Form1
Private original As Image
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
original = DirectCast(PictureBox1.Image.Clone(), Image)
'original = PictureBox1.Image
End Sub
Public Function ChangeOpacity(ByVal img As Image, ByVal opacityvalue As Single) As Bitmap
If opacityvalue > 1 Then
opacityvalue = 1
ElseIf opacityvalue < 0 Then
opacityvalue = 0
End If
Dim bmp As New Bitmap(img.Width, img.Height)
Using g As Graphics = Graphics.FromImage(bmp)
Dim colormatrix As New ColorMatrix
colormatrix.Matrix33 = opacityvalue
Dim imgAttribute As New ImageAttributes
imgAttribute.SetColorMatrix(colormatrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
g.DrawImage(img, New Rectangle(0, 0, bmp.Width, bmp.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imgAttribute)
Return bmp
End Using
End Function
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
PictureBox1.Image.Dispose()
PictureBox1.Image = ChangeOpacity(original, CSng(TrackBar1.Value / 100))
End Sub
End Class

Marcus Gräfe · 7. Februar 2016, 18:28

Ich habe den Fehler gefunden. Ich hatte an einer anderen Stelle noch ein picBanner.Image = imgOriginal, welches von einem früheren Versuch stammte, die Deckkraft zu ändern.

Nun geht es und der RAM-Verbrauch ist bei max. 20 MB!

Vielen Dank euch allen!

Hoher RAM-Verbrauch bei Ändern von Deckkraft in PictureBox

Hoher RAM-Verbrauch bei Ändern von Deckkraft in PictureBox

VB.NET-Quellcode

Marcus Gräfe schrieb:

Marcus Gräfe schrieb:

nafets schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

nafets schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Marcus Gräfe schrieb:

VB.NET-Quellcode

Mokki schrieb:

Quellcode

Benutzer online 1

Ähnliche Themen

6 Benutzer haben hier geschrieben