Ist ein Bild in einen Großem Vorhanden

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Devilx1.

    Ist ein Bild in einen Großem Vorhanden

    Guten Tag,
    Ich habe Zwei Bilder, ich weiß wie man prüft ob zwei Bilder identisch sind aber mein Problem ist bisschen anders. Ich will prüfen ob in einem Bild ein anderes Bild vorhanden ist
    WICHTIG:
    In den kleinen Bild ist Transparenz mit drin aber in den Anderen nicht!
    Wäre sehr schön könntet ihr mir helfen
    MFg
    COnfix :thumbsup:

    Du willst also wenn ich das richtig verstanden habe, einen Bild auschnitt mit einem anderen Bild vergleichen das größer ist und auch noch Teilweise transparent?

    Edit: Hab da was gefunden, sieht sehr gut aus.

    sythe.org/showthread.php?t=155248

    Code (Quelle: Sythe.org)

    VB.NET-Quellcode

    1. Private Sub FindBitmap() Handles Button1.Click
    2. Dim Target = My.Resources.photoshop_icon
    3. Dim ScreenBounds = Screen.PrimaryScreen.Bounds
    4. Dim Source = New Bitmap(ScreenBounds.Width, ScreenBounds.Height, Imaging.PixelFormat.Format32bppArgb)
    5. Using Gfx = Graphics.FromImage(Source)
    6. Gfx.CopyFromScreen(Nothing, Nothing, ScreenBounds.Size)
    7. End Using
    8. Dim Result = Source.FindBitmap(Target)
    9. Debug.WriteLine(If(Result.HasValue, "Found bitmap at: " & Result.Value.ToString, "Could not find bitmap."))
    10. End Sub


    Bild suchen

    VB.NET-Quellcode

    1. Public Module ImageScanner
    3. Private Const BytesPerPixel As Integer = 3
    5. <System.Runtime.CompilerServices.Extension()> _
    6. Public Function FindBitmap(ByVal Source As Bitmap, ByVal Target As Bitmap) As Rectangle?
    7. Return Source.FindBitmap(New Rectangle(Nothing, Source.Size), Target)
    8. End Function
    10. <System.Runtime.CompilerServices.Extension()> _
    11. Public Function FindBitmap(ByVal Source As Bitmap, ByVal Area As Rectangle, ByVal Target As Bitmap) As Rectangle?
    12. Dim SourceData As Imaging.BitmapData = Nothing
    13. Dim SourceBytes = Source.GetBitmapData(New Rectangle(0, 0, Source.Width, Source.Height), SourceData)
    15. Dim TargetData As Imaging.BitmapData = Nothing
    16. Dim TargetBytes = Target.GetBitmapData(New Rectangle(0, 0, Target.Width, Target.Height), TargetData)
    18. Dim FirstTargetPixel = TargetBytes.GetPixelFromArray(Nothing, TargetData).ToArgb
    19. Dim TargetSection = TargetBytes.GetSection(New Rectangle(0, 0, Target.Width, Target.Height), TargetData)
    21. For Y = Area.Top To Area.Bottom - Target.Height
    22. For X = Area.Left To Area.Right - Target.Width
    23. If SourceBytes.GetPixelFromArray(New Point(X, Y), SourceData).ToArgb <> FirstTargetPixel Then Continue For
    24. Dim SectionBounds = New Rectangle(X, Y, Target.Width, Target.Height)
    25. Dim Section = SourceBytes.GetSection(SectionBounds, SourceData)
    26. If CompareByteArray(Section, TargetSection) Then Return SectionBounds
    27. Next X, Y
    28. Return Nothing
    29. End Function
    31. <System.Runtime.CompilerServices.Extension()> _
    32. Private Function GetPixelFromArray(ByVal Array As Byte(), ByVal Point As Point, ByVal BitmapData As Imaging.BitmapData) As Color
    33. Dim Offset = (BitmapData.Stride * Point.Y) + (BytesPerPixel * Point.X)
    34. Return Color.FromArgb(Array(Offset + 2), Array(Offset + 2), Array(Offset))
    35. End Function
    37. <System.Runtime.CompilerServices.Extension()> _
    38. Private Function GetBitmapData(ByVal Bitmap As Bitmap, ByVal Area As Rectangle, ByRef BitmapData As Imaging.BitmapData) As Byte()
    39. BitmapData = Bitmap.LockBits(Area, Imaging.ImageLockMode.ReadOnly, Imaging.PixelFormat.Format24bppRgb)
    40. Dim Out = New Byte(BitmapData.Height * BitmapData.Stride) {}
    41. System.Runtime.InteropServices.Marshal.Copy(BitmapData.Scan0, Out, 0, Out.Length)
    42. Bitmap.UnlockBits(BitmapData)
    43. Return Out
    44. End Function
    46. <System.Runtime.CompilerServices.Extension()> _
    47. Private Function GetSection(ByVal Bytes As Byte(), ByVal Area As Rectangle, ByVal BitmapData As Imaging.BitmapData) As Byte()
    48. Using Out = New IO.MemoryStream
    49. For Y = Area.Top To Area.Bottom - 1
    50. Dim Offset = (BitmapData.Stride * Y) + (BytesPerPixel * Area.Left)
    51. Out.Write(Bytes, Offset, Area.Width * BytesPerPixel)
    52. Next
    53. Return Out.ToArray
    54. End Using
    55. End Function
    57. Private Function CompareByteArray(ByVal Array1 As Byte(), ByVal Array2 As Byte()) As Boolean
    58. For Position = 0 To Array1.Length - 1
    59. If Array1(Position) <> Array2(Position) Then Return False
    60. Next
    61. Return True
    62. End Function
    64. End Module

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Devilx1“ ()

Facebook
Telefonspende