Schwarze Pixel mit getpixel() zählen sehr langsam

  • VB.NET

Es gibt 51 Antworten in diesem Thema. Der letzte Beitrag () ist von webmaster.

    Schwarze Pixel mit getpixel() zählen sehr langsam

    Hallo,

    ich habe eine Funktion geschrieben, welche in einem bestimmten Bereich eines SW-Bildes die Anzahl der schwarzen Pixel zählt. Leider muss ich diese Operation mehrmals pro Bild wiederholen, sodass es sehr lange dauert, bis das Bild bearbeitet wurde. Vielleicht hat jemand eine Idee, wie man diesen Code beschleunigen könnte?

    VB.NET-Quellcode

    1. Function SchwarzePixelZaehlen(ByVal y As Integer, ByVal x As Integer, ByVal hohe As Integer, ByVal breite As Integer, ByVal bmp As Bitmap)
    2. 'Diese Funktion zählt die Anzahl der schwarzen Pixel in einem bestimmten Bereich eines Bildes
    4. Dim ax As Integer
    5. Dim ay As Integer
    7. Dim ab As Integer
    8. Dim ah As Integer
    10. Dim SchwarzePixel As Integer = 0
    12. Dim farbe As Color
    14. ax = x - (breite * 0.1) 'Die Breite und Höhe des Bereiches wird erweitert
    15. ay = y - (hohe * 0.1) '
    16. ab = 1.2 * breite '
    17. ah = 1.2 * hohe '
    19. Dim ayAnfang As Integer = ay 'aYanfang definieren
    20. Dim axanfang
    22. Do
    23. axanfang = ax
    24. Do
    25. farbe = bmp.GetPixel(axanfang, ay)
    26. If farbe.GetBrightness = 0 Then
    27. SchwarzePixel = SchwarzePixel + 1 'bei schwarzem pixel einen dazu zählen
    28. End If
    29. axanfang = axanfang + 1
    30. Loop Until axanfang > ax + ab
    31. ay = ay + 1
    32. Loop Until ay > ayAnfang + ah
    34. SchwarzePixelZaehlen = SchwarzePixel
    35. End Function


    Herzlichen Dank!

    FreakJNS schrieb:

    such mal im showroom nach der "Fastgraphics Lib" (Fast Bitmap Lib?)..
    diese bietet auch die funktionen Set/Getpixel - allerdings mittels Lockbits realisiert und damit sehr schnell
    Hallo,

    genau diese Lockbit-Geschichte suche ich. Leider habe ich bisher nur Beispiele in C# gefunden. Auch ein Konverter konnte mir nicht weiterhelfen. Mein Wissen reicht leider nicht um den ganzen C#-Code in VB zu übertragen. Vielleicht kannst Du mir einen Link schicken?

    einfach im showroom gucken xD Heißt sogar FastGraphicsLib - habe mich nicht geirrt: [Beta] FastGraphicsLib 1.0.0.5

    Noch ein kleiner Nachtrag: der code von dir ist die hölle wenn man es übersichtlich mag xD
    benutz doch For-Schleifen - ist besser als das ganze mit loop zu basteln (UntereGrenze/ObereGrenze sind Zahlenwerte, z.b. 0 und Breite-1):

    VB.NET-Quellcode

    1. For x as integer = untereGrenze to ObereGrenze
    2. For y as integer = untereGrenze to ObereGrenze
    3. '.getpixel(x,y) etc
    4. next
    5. next


    Nachtrag2: (musst du nur noch umbasteln sodass die fastgraphicslib benutzt wird statt bitmapfunktionen)

    VB.NET-Quellcode

    1. Public Function CountBlackPixels(ByVal bit As Bitmap, ByVal Bereich As Rectangle) As Integer
    2. Dim count As Integer = 0
    4. For x As Integer = Bereich.X To Bereich.Right
    5. For y As Integer = Bereich.Y To Bereich.Bottom
    6. If bit.GetPixel(x, y) = Color.Black Then count += 1
    7. Next
    8. Next
    10. Return count
    11. End Function

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

    Du musst im blanken Bildspeicher arbeiten. Hier eine Idee davon:

    VB.NET-Quellcode

    1. Dim bmp As Bitmap = New Bitmap(DEINE_BITMAP)
    2. Dim bmpData As System.Drawing.Imaging.BitmapData
    3. bmpData = bmp.LockBits(New Rectangle(0, 0, bmp.Width, bmp.Height), System.Drawing.Imaging.ImageLockMode.ReadWrite, bmp.PixelFormat)
    4. Dim ptr As IntPtr = bmpData.Scan0
    5. Dim ofs As Integer = 0
    6. For y As Integer = 0 To bmp.Height - 1
    7. ofs = y * bmpData.Stride
    8. ' auf den Beginn einer neuen Zeile legen
    9. ' wegen der byte-to-ushort-Konvertierung kein Marshal.Copy()
    10. For x As Integer = 0 To bmp.Width - 1
    11. ' hier etwas tun
    12. Next
    13. Next
    14. bmp.UnlockBits(bmpData)
    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!

    Hallo,

    ich habe die FastGraphicsLip eingerichtet.

    Leider erhalten ich folgenden Fehler:
    "Der Bitmapbereich ist bereits gesperrt."

    Wenn ich

    VB.NET-Quellcode

    1. Dim fg As FastGraphics = FastGraphics.FromBitmap(bmp)
    in meinen o. g. Code einfüge.

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

    ich weiß eine Klasse, die kann ein 2-dim Byte-Array erzeugen, mit den Farbwerten einer Bitmap. Da würden dann jeweils 3 oder 4 Bytes ein Pixel darstellen - je nach pixelformat.

    könnte man auch modifizieren, dass jedes Pixel durch einen Int32 dargestellt wäre, oder gleich durch eine Color.

    Aber kommt drauf an, was du machen willst, weil die Grundfassung mit den Bytes ist am flexibelsten - dafür wäre der Test auf bisserl unkomfortabel - er müssteja 4 Bytes prüfen, was bei Int32 in einer Operation geht.

    also 2 Fragen:
    was willst du machen?

    interessiert?

    @ ErfinderDesRades:
    Hey. Ein SW-Bitmap ist in mehrere Regionen (Vierecke) unterteilt. Wird in einer bestimmten Region eine bestimmte Anzahl schwarzer Pixel überschritten, so gilt sie als markiert. Ich bräuchte nur die Anzahl der schwarzen Pixel in einem bestimmten Bereich. Grundsätzlich bin ich interessiert, kann jedoch mit den meisten von Dir Begriffen nichts anfangen. Mir ist jedoch klar, dass die Auswertung eines Arrays durchaus schneller funktioniert als ein Bitmap Pixelweise zu durchlaufen.

    nochma 2 Fragen:
    also du wirst endgültig nur die Farbwerte auf s/w auswerten, und nicht später mal auf die Idee kommen, Farben untersuchen zu wollen, oder auch mal aus geänderten Werten eine neue Bitmap generieren?

    welche Begriffe verstehst du nicht? (könnte sehr wichtig sein ;) )

    Also das hier ist die Klasse

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Drawing.Imaging
    3. Imports System.Runtime.InteropServices
    5. ''' <summary>
    6. ''' verschafft sich Zugriff auf die Pixeldaten von Images, in Form von 2-dim Byte-Arrays
    7. ''' </summary>
    8. Public Class PixelHelper
    9. 'Der übliche Zugang zu Pixeldaten über Bitmap.LockBits() impliziert 4 Kopiervorgänge der
    10. '! gesamten Bitmap: Lock/Unlock, und dann jeweils Marshall.Copy() in ein managed Array.
    11. 'Die Bitmap-Erstellung unter Verwendung gepinnter Arrays reduziert die Kopiervorgänge auf
    12. '! zwei.
    14. Private _ReadPixels As Byte(,)
    15. Public _ResultData As New BitmapData
    17. Private Shared _GrayAttr As New Imaging.ImageAttributes()
    19. Shared Sub New()
    20. _GrayAttr.SetColorMatrix(_GrayMatrix)
    21. End Sub
    23. Public Sub New( _
    24. ByVal Img As Image, _
    25. ByVal Format As Imaging.PixelFormat, _
    26. Optional ByVal ConvertToGray As Boolean = False)
    27. With _ResultData
    28. .Width = Img.Width
    29. .Height = Img.Height
    30. _ReadPixels = CreateWritePixels(Format)
    31. Dim GCH As GCHandle = GCHandle.Alloc(_ReadPixels, GCHandleType.Pinned)
    32. Using _
    33. Bmp As New Bitmap(.Width, .Height, .Stride, Format, GCH.AddrOfPinnedObject()), _
    34. G As Graphics = Graphics.FromImage(Bmp)
    35. Dim Rct As New Rectangle(0, 0, .Width, .Height)
    36. If ConvertToGray Then
    37. G.DrawImage(Img, Rct, 0, 0, .Width, .Height, GraphicsUnit.Pixel, _GrayAttr)
    38. Else
    39. G.DrawImageUnscaledAndClipped(Img, Rct)
    40. End If
    41. End Using
    42. GCH.Free()
    43. End With
    44. End Sub
    46. Public ReadOnly Property ReadPixels() As Byte(,)
    47. Get
    48. Return _ReadPixels
    49. End Get
    50. End Property
    52. End Class
    Ich hoffe, die geht noch, habe nämlich bischen abgespeckt - ohne zu testen.
    Um ReadPixels zu kriegen musste mit New PixelHelper(blabla) einen erstellen, und in dessen ReadPixelProperty ist halt ein 2-dim Byte-Array, bei dem 4 Bytes je ein Pixel darstellen.

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

    @ ErfinderDesRades:
    also du wirst endgültig nur die Farbwerte auf s/w auswerten, und nicht
    später mal auf die Idee kommen, Farben untersuchen zu wollen, oder auch
    mal aus geänderten Werten eine neue Bitmap generieren?
    Beides JA bzw. zu Testzwecken möchte ich Farbe einbringen (ist aber auch nicht so wichtig!).
    welche Begriffe verstehst du nicht?
    Die verschiedenen Bitmap-Typen mit Bytes und Pixeln :)

    Mit Deiner Funktion kann ich so leider nichts anfangen ...




    @Freak

    Ich habe Deinen o. g. Code angepasst:

    VB.NET-Quellcode

    1. Public Function CountBlackPixels(ByVal bit As FastGraphics, ByVal Bereich As Rectangle) As Integer
    2. Dim count As Integer = 0
    4. For x As Integer = Bereich.X To Bereich.Right
    5. For y As Integer = Bereich.Y To Bereich.Bottom
    6. If bit.GetPixel(x, y).R = 0 Then
    7. count += 1
    8. bit.SetPixel(x, y, Color.Aquamarine)
    9. End If
    10. Next
    11. Next
    12. Return count
    14. End Function


    Funktioniert prima. Ich habe

    VB.NET-Quellcode

    1. bit.SetPixel(x, y, Color.Aquamarine)
    hinzugefügt um zu Testzwecken die Pixel farblich zu markieren. Nur leider ändert sich auf den Bild nichts.

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

    ~blaze~ schrieb:

    Hi
    da SetPixel die Bitmapdaten ändert, musst du die Refresh()-Methode des Controls aufrufen, das die Bitmap verwendet. Sonst bemert das Control nichts von der Änderung.
    Übrigens überprüfst du nur, ob der Rot-Kanal 0 ist.

    Gruß
    ~blaze~
    Wie kann ich denn Prüfen, ob der Pixel Schwarz ist? Ich dachte bei Rot=0 muss der Pixel schwarz sein. Oder ist es 255? lol

    Edit: Natrülich ist es anders rum ... sorry für meine Dummheit.

    Edit: Wie bekomme ich denn das neue Bild aus der Funktion in meine Picturebox? Die Funktion gibt ja nur einen Integer zurück ... :(

    VB.NET-Quellcode

    1. Public Function CountBlackPixels(ByVal bit As FastGraphics, ByVal Bereich As Rectangle) As Integer
    2. Dim count As Integer = 0
    4. For x As Integer = Bereich.X To Bereich.Right
    5. For y As Integer = Bereich.Y To Bereich.Bottom
    6. If bit.GetPixel(x, y).GetBrightness = 0 Then
    7. count += 1
    8. bit.SetPixel(x, y, Color.Aquamarine)
    9. End If
    10. Next
    11. Next
    12. Return count
    14. End Function

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

    Richtig Schwarz ist er wenn R = 0, G = 0 und B = 0
    Du kannst allerdings eine Tolleranz einbauen sodass ein Pixel als schwarz erkannt wird wenn all diese Werte kleiner sind als z.B. 5. Bei JPG-Bildern kann es ja passieren, dass durch die Komprimierung die Farbwerte verfälscht werden.

    Allein den R-Kanal als Indikator zu benutzen ist schlecht, schau dir mal die Farbe an die R=0, G=255 und B=255 hat (einfach in Paint austesten)^^

    Einfach das Control, das die Bitmap anzeigt, mit Refresh() neuzeichnen oder das Angezeigte mit Invalidate() für ungültig erklären.
    Die Logik hinter der Farbgebung am PC ist so: Farben werden in R, G und B aufgeteilt, wobei die einzelnen Werte die Intensität beschreiben. Intensität 0 bedeutet, dass der Kanal fehlt, 255, dass er voll da ist. Wenn du jetzt R = 255, G = 0, B = 0 hast, bedeutet das, dass die Farbe Rot rauskommt - und zwar nicht abgedunkelt. Wenn du jetzt R = 0, G = 0, B = 0 hast, ist halt gar keine Farbe vorhanden ==> schwarz. R = 255, G = 255, B = 255 bedeutet, dass alle Kanäle voll vorkommen ==> weiß. Grau wäre demnach R = G = B.
    GetBrightness heißt, dass die Helligkeit herausgefunden wird. Das ist eine Funktion und kann nicht gesetzt werden. Besser ist:

    VB.NET-Quellcode

    1. Dim result As Color = If(input.GetBrightness() < 0.5f, Color.Black, Color.White)


    Gruß
    ~blaze~

    ~blaze~ schrieb:

    Einfach das Control, das die Bitmap anzeigt, mit Refresh() neuzeichnen oder das Angezeigte mit Invalidate() für ungültig erklären.
    Hallo,

    Ich verwende folgenden Code + die o. g. Funktion:

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. Dim fg As FastGraphics = FastGraphics.FromBitmap(New Bitmap(PictureBox1.Image))
    3. Dim bereich As New Rectangle(0, 0, 300, 300)
    4. MsgBox(CountBlackPixels(fg, bereich))
    5. PictureBox1.Refresh()
    6. End Sub


    Die Farbe wird nicht übernommen.