Bestimmte Color in Bild finden

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

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Bestimmte Color in Bild finden

    Hey leute,

    ich wollte mal fragen welche Methode ich wählen würdet wenn ihr ein Bild / BIldauschnitt auf eine bestimmte farbe checken wollt. Würdet ihr das Bild in eine Picturebox laden und dann von da aus weiter arbeiten? Oder gibt es da noch bessere methoden?

    liebe grüße und frohes neues Jahr :)
    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!

    @C.O.D.E Nicht PictireBox, sondern eine Bitmap-Instanz.
    Die Frage ist, wie groß der zu durchsuchende Bereich ist.
    Du kannst in 2 For-Schleifen die x- und y-Koordinate durchgehen und pixelweise testen.
    Das ist programmiertechnisch sehr einfach, aber zeitaufwändig.
    Du kannst mit Bitmap.LockBits docs.microsoft.com/en-us/dotne…?view=dotnet-plat-ext-5.0
    das ganze wesentlich beschleunigen, indem Du gezielt Speicherinhalte suchst.
    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!

    Weitere Links zum Thema LockBits: Tutorial oder ein Beitrag aus der Eigenwerbung
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @RodFromGermany

    So wie bei deinem ersten Beispiel hatte ich es auch wirklich probiert - du hast recht es ist wirklich langsam.

    VB.NET-Quellcode

    1. Dim PixelList As New List(Of String())
    3. Private Sub btn_scan_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim btmp As New Bitmap(pic_scan.Image)
    5. For x As Integer = 0 To btmp.Width - 1
    6. For y As Integer = 0 To btmp.Height - 1
    8. If btmp.GetPixel(x, y).ToString = "Color [A=255, R=248, G=253, B=45]" Then
    9. MessageBox.Show("Found")
    10. End If
    12. Next
    13. Next
    14. End Sub


    LockBits werde ich mir wirklich angucken.
    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!

    C.O.D.E schrieb:

    VB.NET-Quellcode

    1. If btmp.GetPixel(x, y).ToString = "Color [A=255, R=248, G=253, B=45]" Then
    ist suboptimal.
    Dies sollte etwas schneller laufen:

    VB.NET-Quellcode

    1. Dim PixelList As New List(Of String())
    3. Private Sub btn_scan_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim btmp As New Bitmap(pic_scan.Image)
    5. Dim col = Color.FromArgb(255, 248, 253, 45).ToArgb()
    6. For x As Integer = 0 To btmp.Width - 1
    7. For y As Integer = 0 To btmp.Height - 1
    8. If btmp.GetPixel(x, y).ToArgb() = col Then
    9. MessageBox.Show("Found")
    10. End If
    11. Next
    12. Next
    13. End Sub
    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!

    @Bartosz Imho extrem unsinnige Einsparung - die Laufzeit ist immer noch O(n^2) (für width = height) - da machen die paar Einsparungen an den Rändern keinerlei Unterschied, im Gegenteil: Das macht es sogar schlechter, wenn
    man dann die 1D-Variante implementieren möchte.

    @TE: Schau dir ehrlich Lockbits an, das geht wesentlich schneller als über die gesamte Pixel-Matrix mit .GetPixel(x,y) zu iterieren.
    So kannst du exemplarisch vorgehen - hatte mal was dazu im Showroom gestellt: Scanline-Algorithmus

    Anmerkung: Gut, man kann argumentieren, dass die Laufzeit sich nicht signifikant ändert, denn auch wenn dann nur noch 1D betrachtet wird, gibt es insgesamt N*M Elemente, dennoch sind geschachtelte Schleifen mitnichten besser als eine einfache, schon deshalb nicht, weil man die Iteration durch ein 1D-Array häufig (in diesem Fall erst recht) parallelisieren kann.

    _
    Und Gott alleine weiß alles am allerbesten und besser.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „φConst“ ()

    Imho extrem unsinnige Einsparung
    Ja ok. Das war mir nur von einem Gespräch mit Jemandem eingefallen, der Gesichtserkennungssoftware schreibt. Man prüft nicht an den Rändern. Weil wenn man ein Foto macht, stehen die Personen gewöhnlich mittiger beziehungsweise Gesichter, die halb abgeschnitten sind, bringen nix. Danke dir trotzdem für die Aufklärung – du hast Recht, für einmalige Sachen ist das Einsparen unnütz.

    φConst schrieb:

    bei einer Gesichtserkennung
    wird per Bildverarbeitung zunächst das Gesicht vom Hintergrund getrennt, da gehen ganz andere Algorithmen ab, und die gehen nicht mit GetPixel().
    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!

    Lieber RFG, das habe ich auch nicht gesagt. Es ging mir nur um den jeweiligen Frame. :)
    An die Neulinge: Nutzt Option Strict On und Option Infer Off. Dadurch kommt ihr mit Datentypumwandlungen nicht durcheinander und der Code verbessert sich um Einiges! Solche Fehler à la Dim Beispiel As Integer = "123" können nicht mehr passieren.

    Hab hier noch ne "FastPix"-Klasse gefunden, vllt. hilfreich:

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports System.Drawing.Imaging
    3. Imports System.Runtime.InteropServices
    5. Public Class FastPix
    7. '(c) Vic Joseph (Boops Boops) 2009. Correction for UseByteData applied in October 2013.
    9. 'The FastPix class provides fast pixel processing of bitmaps. It encapsulates the LockBits/UnlockBits methods.
    10. 'FastPix is designed to deal only with the default GDI+ pixel format 32bppArgb and the format 32bppPArgb,
    11. 'but it includes a method for converting bitmaps.
    13. 'To use FastPix, unzip it to your hard drive.
    14. 'To add it to your project in VisualStudio, select the Project Menu then Add Existing Item...
    15. 'Then navigate to fastpix.vb on your drive.
    17. 'The main uses of FastPix are as follows.
    18. '1. To convert a bitmap to a 32bppPArgb (32 bit premultiplied) format, use:
    19. ' FastPix.Convert(myBitmap, PixelFormat.Format32bppPArgb)
    20. ' Note: for the canonical format 32bppArgb, it may be more convenient to do something like this:
    21. ' Dim myBitmap as New Bitmap("D:\Pictures\ExistingImage.jpg")
    23. '1. A fast substitute for Bitmap.GetPixel and Bitmap.SetPixel. Example usage:
    25. ' Using fp as New FastPix(myBitmap)
    26. ' Dim myColor As Color = fp.GetPixel(x, y)
    27. ' fp.SetPixel(x, y, Color.Orange)
    28. ' End Using
    30. '2. The class provides a PixelArray property, which is a representation of the bitmap as an array of integers.
    31. ' (Actual performance will naturally also depend on other aspects of your processing loop.) Example usage:
    33. ' Using fp as New FastPix(myBitmap)
    34. ' 'Make a local reference to the array; it is roughly 4x as fast as direct references to fp.PixelArray:
    35. ' Dim pixels as Integer() = fp.PixelArray
    37. ' For i as integer = 0 to pixels.Length - 1
    39. ' 'example: substitute a color
    40. ' if pixels(i) = Color.Red.ToArgb then pixels(i) = Color.Blue.ToArgb
    42. ' 'example: invert the color
    43. ' pixels(i) = pixels(i) AND $HFFFFFF
    45. ' Next
    46. '
    47. ' End Using
    49. '3. The class also provides an optional Byte array property, which represents the bitmap as a 1D array of bytes.
    50. 'It may be useful when individual color bytes have to be modified.
    51. 'NOTE: the bytes are in BRGA order, so the first Alpha byte is at index = 3. Example usage:
    53. ' Using fp As New FastPix(myBitmap, True)
    54. ' Dim bytes As byte() = fp.ColorByteArray
    56. ' 'Modify the Alpha bytes to make the bitmap 50% transparent:
    57. ' For i As Integer = 3 to bytes.Length - 1 Step 4
    58. ' bytes(i) = 127
    59. ' Next
    61. ' End Using
    63. Implements IDisposable
    65. Private _bmp As Bitmap
    66. Private _w, _h As Integer
    67. Private _disposed As Boolean = False
    68. Private _bmpData As BitmapData
    69. Private _UseByteArray As Boolean = False
    71. 'An array of integers representing the pixel data of a bitmap.
    72. Public Property PixelArray() As Integer()
    74. 'An array of bytes representing the pixel data of a bitmap.
    75. Public Property ColorByteArray() As Byte()
    77. #Region "Constructors/Destructors"
    79. 'The New Sub contains the LockBits+Marshall.Copy code.
    80. Public Sub New(ByRef bmp As Bitmap, Optional ByVal UseByteArray As Boolean = False)
    81. _UseByteArray = UseByteArray
    83. Dim pFSize As Integer = Image.GetPixelFormatSize(bmp.PixelFormat)
    85. If pFSize <> 32 OrElse bmp.PixelFormat = PixelFormat.Indexed Then
    86. Throw New FormatException _
    87. ("FastPix is designed to deal only with 32-bit pixel non-indexed formats. Your bitmap has " _
    88. & pFSize & "-bit pixels. You can convert it using FastPix.ConvertFormat.")
    89. Else
    90. 'Convert the bitap to a 1 dimensional array of pixel data:
    91. _w = bmp.Width
    92. _h = bmp.Height
    93. _bmp = bmp
    94. Dim bmpRect As New Rectangle(0, 0, _w, _h)
    96. _bmpData = _bmp.LockBits(bmpRect, ImageLockMode.ReadWrite, _bmp.PixelFormat)
    98. If UseByteArray Then
    99. ReDim ColorByteArray(_w * _h * 4 - 1)
    100. Marshal.Copy(_bmpData.Scan0, ColorByteArray, 0, ColorByteArray.Length)
    101. Else
    102. ReDim PixelArray(_w * _h - 1)
    103. Marshal.Copy(_bmpData.Scan0, PixelArray, 0, PixelArray.Length)
    104. End If
    105. End If
    107. End Sub
    109. Public Overloads Sub Dispose() Implements IDisposable.Dispose
    110. Dispose(True)
    111. GC.SuppressFinalize(Me)
    112. End Sub
    114. 'The Dispose Sub contains the Marshal.Copy+UnlockBits code.
    115. Protected Overloads Sub Dispose(ByVal disposing As Boolean)
    116. If Not _disposed Then
    117. If _UseByteArray Then
    118. If ColorByteArray IsNot Nothing Then Marshal.Copy(ColorByteArray, 0, _bmpData.Scan0, ColorByteArray.Length)
    119. Else
    120. If PixelArray IsNot Nothing Then Marshal.Copy(PixelArray, 0, _bmpData.Scan0, PixelArray.Length)
    121. End If
    122. _bmp.UnlockBits(_bmpData)
    123. ColorByteArray = Nothing
    124. PixelArray = Nothing
    125. _bmpData = Nothing
    126. _disposed = True
    127. End If
    128. End Sub
    130. #End Region
    132. #Region "Public Methods"
    134. 'Return the color of any pixel in the bitmap.
    135. Public Function GetPixel(ByVal x As Integer, ByVal y As Integer) As Color
    136. Return Color.FromArgb(PixelArray(y * _w + x))
    137. End Function
    139. 'Set the color of any pixel in the bitmap.
    140. Public Sub SetPixel(ByVal x As Integer, ByVal y As Integer, ByVal clr As Color)
    141. PixelArray(y * _w + x) = clr.ToArgb
    142. End Sub
    144. 'Standardize the bitmap format for use with FastPix.
    145. Public Shared Sub ConvertFormat(ByRef bmp As Bitmap, _
    146. Optional ByVal TargetFormat As PixelFormat = PixelFormat.Format32bppArgb)
    147. Try
    148. Dim bmp2 As New Bitmap(bmp.Width, bmp.Height, TargetFormat)
    149. Using g As Graphics = Graphics.FromImage(bmp2)
    150. bmp.SetResolution(96, 96)
    151. g.DrawImageUnscaled(bmp, Point.Empty)
    152. End Using
    153. bmp = bmp2
    154. Catch
    155. Throw New FormatException("FastPix could not convert the bitmap to the standard format.")
    156. End Try
    157. End Sub
    159. #End Region
    161. End Class

    @Morrison Deine Klasse ist nicht vollständig implementiert.
    Wenn ein Bild (um nicht das Wort "Bitmap" zu benutzen) als ByteArray abgelegt wird, knallt es bei den Befehlen GetPixel() und SetPixel().
    Ich würde diese Befehle stets ein Integer zurück geben lassen, da die Hin- und Her-Color-Konvertierung die Zeit frisst.
    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:

    φConst schrieb:

    bei einer Gesichtserkennung
    wird per Bildverarbeitung zunächst das Gesicht vom Hintergrund getrennt, da gehen ganz andere Algorithmen ab, und die gehen nicht mit GetPixel().


    Das ist mir schon klar, man würde aber tatsächlich als Input für CNNs z.B. eben nicht die Ränder des Bildes forwarden - zentriertere Ansätze wären da eher angebracht. Ist aber halt nur ein Optimierungsschritt, gibt wesentlich bessere.
    Dass "GetPixel" verwendet werde habe ich nirgends gesagt, lol. Hör mal auf in mein Beitrag irgendwas hineinzuprojizieren, kann ich gar nicht ab.
    Und Gott alleine weiß alles am allerbesten und besser.

    Ich habe mich jetzt ne ganze weile eingelesen und bin zu dem Entschluss gekommen das es vielleicht sinnvoller wäre wenn ich einen bestimmten Bildausschnitt in einem Screenshot suchen könnte mit rückgabe als x-y position. Ist das möglich? Ich denke das sprengt aktuell meine Kenntnisse. Kann mir da wer wirklich weiterhelfen?

    Sprich, ich möchte auf meinem Bildschirm ein vorgefertigtes kleines Bild suchen und dann die Position erfahren.

    liebe grüße,
    Daniel
    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!

    Möglich? Ja.
    Aber du scheinst das meines Erachtens ein wenig zu unterschätzen.
    Das was du vorhast, wird heute noch erforscht. Anfangs kann ich dich auf Feature-Matching verweisen, ein Objekt in einem Bild wiederzufinden ist aber kein Projekt das mit paar Zeilen Codes erledigt wäre. Sag uns doch einfach was du vorhast, statt nur Fetzen deines Vorhabens runterzugießen.
    Und Gott alleine weiß alles am allerbesten und besser.

    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!

    φConst schrieb:

    Sag uns doch einfach was du vorhast, statt nur Fetzen deines Vorhabens runterzugießen.


    Okay. Wo fange ich an. Wir (Ich, Arbeitskollegen, freunde) Spielen ein Computerspiel namens ARK. In diesem Computerspiel gibt es einen aktiven Log. Dort sieht man alles was in seinem Tribe gemacht wird. (Wenn wände abgerissen werden, etwas gesprengt mit oder zerstört wird).

    Foto davon ist im Anhang. Dort möchte ich gerne gerne auf das Wort "demolished" checken um zu Erfahren wann etwas abgerissen wurde. Das Problem - bei dem demolished ist hinter dem Font quasi immer ein anderer Background da man sich nie an der gleichen stelle im Spiel befindet.
    Bilder

    • ffffesw.jpg

      30,43 kB, 464×133, 45 mal angesehen

    • UnbenanntDDD..jpg

      625,99 kB, 1.920×1.080, 45 mal angesehen
    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!

    @C.O.D.E Oder Du liest das Control selbst aus.
    Was ist das für ein Programm - Native oder Assembly?
    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!

Facebook
Telefonspende