Bild (Screenshot) zerteilen + Zusammenfügen

  • VB.NET

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

    Bild (Screenshot) zerteilen + Zusammenfügen

    Erstmal Hallo :) ,
    Ich habe vor ein Fernwartungsprogramm zu programmieren und möchte die Bildschirmübertragung optimieren, dafür habe ich mir gedacht damit ich nicht immer einn 1920x1080 Biltmap senden muss zerteile ich dieses in 100 Stücke also den Bildschirm in ein 10x10 Muster und überprüfe in jedem Teil ob sich etwas verändert hat wenn ja wird der neue Teil gesendet. So nun zu meinem Problem ich hatte davor meine sourcecode mit lauter einzelnen Pictureboxen, was natürlich sinnlos ist da man das Bild einfach wieder zusammenfügen kann. Meine Frage also wie zerteile ich ein 1920x1080 Bild in 100 Teile und füge diese später wieder zusammen? Danke schonmal im Vorraus für die Hilfe.


    Den Sourcecode für 16 Teile habe ich berreits aber wie mache ich das mit 100 Teilen und füge das danach wieder zusammen? :?:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Function IsEqual(ByVal bmp1 As Bitmap, ByVal bmp2 As Bitmap) As Boolean
    2. Dim equal As Boolean = True
    3. If bmp1 Is Nothing Or bmp2 Is Nothing Then Return False
    4. If Bitmap.ReferenceEquals(bmp1, bmp2) Then Return True
    5. With bmp1
    6. If .Width <> bmp2.Width Then Return False
    7. If .Height <> bmp2.Height Then Return False
    8. If .PixelFormat <> bmp2.PixelFormat Then Return False
    9. End With
    10. Dim rect As New Rectangle(0, 0, bmp1.Width, bmp1.Height)
    11. Dim bd1 As BitmapData = bmp1.LockBits(rect, ImageLockMode.ReadOnly, bmp1.PixelFormat)
    12. Dim bd2 As BitmapData = bmp2.LockBits(rect, ImageLockMode.ReadOnly, bmp2.PixelFormat)
    13. Dim ByteZahl As Integer = bd1.Stride * bd1.Height
    14. Dim bmp1_bytes(ByteZahl - 1), bmp2_bytes(ByteZahl - 1) As Byte
    15. Marshal.Copy(bd1.Scan0, bmp1_bytes, 0, ByteZahl)
    16. Marshal.Copy(bd2.Scan0, bmp2_bytes, 0, ByteZahl)
    17. For i As Integer = 0 To ByteZahl - 1
    18. If bmp1_bytes(i) <> bmp2_bytes(i) Then
    19. equal = False : Exit For
    20. End If
    21. Next i
    22. bmp1.UnlockBits(bd1) : bmp2.UnlockBits(bd2)
    23. Return equal
    24. End Function
    26. Dim Bild(15) As Image
    27. Dim bmp(15) As Bitmap
    28. Dim sSize As Size
    29. Dim g As Graphics
    30. Dim img As Image
    31. Public Sub bilderstellen(ByVal screennumber As Integer)
    32. Dim Bitmap As Bitmap
    33. Dim oScreens() As Screen = Screen.AllScreens
    34. Dim nScreenCount As Integer = oScreens.Length
    35. For i As Integer = 0 To nScreenCount - 1
    36. If i = screennumber Then
    37. Dim Rect As Rectangle = oScreens(i).Bounds
    38. Using Bmp2 As Bitmap = New Bitmap(Rect.Width, Rect.Height)
    39. Using Gra As Graphics = Graphics.FromImage(Bmp2)
    40. Gra.CopyFromScreen(0, 0, 0, 0, Bmp2.Size)
    41. End Using
    42. Bitmap = New Bitmap(Bmp2, 1024, 768)
    43. Bmp2.Dispose()
    44. End Using
    45. End If
    46. Next i
    47. img = Bitmap
    48. sSize = New Size(img.Width / 4, img.Height / 4)
    50. For i As Integer = 0 To 3
    51. erstellen(i, 0, i)
    52. Next
    54. For i As Integer = 4 To 7
    55. erstellen(i, 1, i - 4)
    56. Next
    58. For i As Integer = 8 To 11
    59. erstellen(i, 2, i - 8)
    60. Next
    62. For i As Integer = 12 To 15
    63. erstellen(i, 3, i - 12)
    64. Next
    65. End Sub
    67. Public Sub erstellen(ByVal i As Integer, ByVal multiplikator As Integer, ByVal widthmultiplikator As Integer)
    68. bmp(i) = New Bitmap(sSize.Width, sSize.Height)
    69. g = Graphics.FromImage(bmp(i))
    70. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    71. sSize.Height), _
    72. New RectangleF((widthmultiplikator) * sSize.Width, multiplikator * _
    73. sSize.Height, sSize.Width, sSize.Height), _
    74. GraphicsUnit.Pixel)
    76. If Bild(i) Is Nothing Then
    77. Bild(i) = bmp(i)
    78. Else
    79. If IsEqual(Bild(i), bmp(i)) = True Then
    80. Else
    81. sendimage(i, bmp(i))
    82. Bild(i).Dispose()
    83. Bild(i) = bmp(i)
    84. End If
    85. End If
    86. End Sub

    Bohnenstange12 schrieb:

    für 16 Teile habe ich berreits
    Aus 4 * 4 mach 10 * 10.
    Ich sehe da absolut kein Problem außer dem, dass Du den von Dir zusammenkopierten Code verstehen musst.
    Das must Du ganz allein machen.
    Iwie kommt mir dieser Cosde bekannt vor.
    Pack zuerst die 4 Schleifen (0-3), (4-7), (8-11), (12-15) in eine übergeorddete Schleife.
    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:

    Das must Du ganz allein machen.


    Ja habe ich :D und wie füge ich das jez zu einem Bild zusammen? :)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. For i As Integer = 0 To 9
    2. erstellen(i, 0, i)
    3. Next
    4. For i As Integer = 10 To 19
    5. erstellen(i, 1, i - 10)
    6. Next
    7. For i As Integer = 20 To 29
    8. erstellen(i, 2, i - 20)
    9. Next
    10. For i As Integer = 30 To 39
    11. erstellen(i, 3, i - 30)
    12. Next
    13. For i As Integer = 40 To 49
    14. erstellen(i, 4, i - 40)
    15. Next
    16. For i As Integer = 50 To 59
    17. erstellen(i, 5, i - 50)
    18. Next
    19. For i As Integer = 60 To 69
    20. erstellen(i, 6, i - 60)
    21. Next
    22. For i As Integer = 70 To 79
    23. erstellen(i, 7, i - 70)
    24. Next
    25. For i As Integer = 80 To 89
    26. erstellen(i, 8, i - 80)
    27. Next
    28. For i As Integer = 90 To 99
    29. erstellen(i, 9, i - 90)
    30. Next

    Es geht doch nichts über Eigeninitiative :D

    So hab´s schon selbst geschafft der source wird jez nicht perfekt sein falls jemand noch Verbesserungsvorschläge hat bitte schreiben :)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim img(100) As Image
    2. For i As Integer = 0 To 99
    3. img(i) = Image.FromFile("C:\Pics" & i & ".bmp")
    4. Next
    6. Dim sz As New Size(1920, 1080)
    7. Dim b As New Bitmap(sz.Width, sz.Height)
    8. Dim g As Graphics = Graphics.FromImage(b)
    10. counter = 0
    11. For i As Integer = 0 To 9
    12. g.DrawImage(img(i), img(i).Width * counter, 0)
    13. PictureBox1.Image = b
    14. counter += 1
    15. Next
    16. counter = 0
    17. For i As Integer = 10 To 19
    18. g.DrawImage(img(i), img(i).Width * counter, img(i).Height)
    19. PictureBox1.Image = b
    20. counter += 1
    21. Next
    22. counter = 0
    23. For i As Integer = 20 To 29
    24. g.DrawImage(img(i), img(i).Width * counter, img(i).Height * 2)
    25. PictureBox1.Image = b
    26. counter += 1
    27. Next
    28. counter = 0
    29. For i As Integer = 30 To 39
    30. g.DrawImage(img(i), img(i).Width * counter, img(i).Height * 3)
    31. PictureBox1.Image = b
    32. counter += 1
    33. Next
    34. counter = 0
    35. For i As Integer = 40 To 49
    36. g.DrawImage(img(i), img(i).Width * counter, img(i).Height * 4)
    37. PictureBox1.Image = b
    38. counter += 1
    39. Next
    40. counter = 0
    41. For i As Integer = 50 To 59
    42. g.DrawImage(img(i), img(i).Width * counter, img(i).Height * 5)
    43. PictureBox1.Image = b
    44. counter += 1
    45. Next
    46. counter = 0
    47. For i As Integer = 60 To 69
    48. g.DrawImage(img(i), img(i).Width * counter, img(i).Height * 6)
    49. PictureBox1.Image = b
    50. counter += 1
    51. Next
    52. counter = 0
    53. For i As Integer = 70 To 79
    54. g.DrawImage(img(i), img(i).Width * counter, img(i).Height * 7)
    55. PictureBox1.Image = b
    56. counter += 1
    57. Next
    58. counter = 0
    59. For i As Integer = 80 To 89
    60. g.DrawImage(img(i), img(i).Width * counter, img(i).Height * 8)
    61. PictureBox1.Image = b
    62. counter += 1
    63. Next
    64. counter = 0
    65. For i As Integer = 90 To 99
    66. g.DrawImage(img(i), img(i).Width * counter, img(i).Height * 9)
    67. PictureBox1.Image = b
    68. counter += 1
    69. Next

    Pack zunächst die inzwischen 10 For-Schleifen in eine weitere, dass auis diesen 10 Schleifen eine wird, zusammen also 2 ineinandergeschachtelte Schleifen!
    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!


    Pack zunächst die inzwischen 10 For-Schleifen in eine weitere


    Ich habe das mit der schleife nochnich gemacht weil ich in den Ferien war aber ich habe ein Problem beim zusammenfügen und komm echt nicht dahinter was das ist, ich bekomme einen "Argument Exception: Ungültiger Parameter Fehler" ?!? ?(

    Der Fehler kommt in dieser Zeile: Dim g As Graphics = Graphics.FromImage(x)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Threading
    4. Public Class Form1
    6. Public Sub PicZusammenfügen(ByVal stext As String)
    7. Dim antwortteile() As String = Split(stext, "~+~")
    8. Dim ms As New MemoryStream(Convert.FromBase64String(antwortteile(1)))
    9. Dim bild As Image = Image.FromStream(ms)
    10. Dim i As Integer = antwortteile(0)
    11. Dim x As Image = PictureBox1.Image
    12. Dim g As Graphics = Graphics.FromImage(x)
    13. If i <= 9 Then
    14. g.DrawImage(bild, bild.Width * i, 0)
    15. PictureBox1.Image = x
    16. ElseIf i <= 19 Then
    17. g.DrawImage(bild, bild.Width * (i - 10), bild.Height)
    18. PictureBox1.Image = x
    19. ElseIf i <= 29 Then
    20. g.DrawImage(bild, bild.Width * (i - 20), bild.Height * 2)
    21. PictureBox1.Image = x
    22. ElseIf i <= 39 Then
    23. g.DrawImage(bild, bild.Width * (i - 30), bild.Height * 3)
    24. PictureBox1.Image = x
    25. ElseIf i <= 49 Then
    26. g.DrawImage(bild, bild.Width * (i - 40), bild.Height * 4)
    27. PictureBox1.Image = x
    28. ElseIf i <= 59 Then
    29. g.DrawImage(bild, bild.Width * (i - 50), bild.Height * 5)
    30. PictureBox1.Image = x
    31. ElseIf i <= 69 Then
    32. g.DrawImage(bild, bild.Width * (i - 60), bild.Height * 6)
    33. PictureBox1.Image = x
    34. ElseIf i <= 79 Then
    35. g.DrawImage(bild, bild.Width * (i - 70), bild.Height * 7)
    36. PictureBox1.Image = x
    37. ElseIf i <= 89 Then
    38. g.DrawImage(bild, bild.Width * (i - 80), bild.Height * 8)
    39. PictureBox1.Image = x
    40. ElseIf i <= 99 Then
    41. g.DrawImage(bild, bild.Width * (i - 90), bild.Height * 9)
    42. PictureBox1.Image = x
    43. End If
    44. x.Dispose()
    45. End Sub
    46. Public Function BitmapToString(ByVal bImage As Bitmap) As String
    47. Try
    48. Dim data As String
    49. Dim ms As MemoryStream = New MemoryStream
    50. bImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
    51. data = Convert.ToBase64String(ms.ToArray())
    52. Return data
    53. Catch ex As Exception
    54. Return String.Empty
    55. End Try
    56. End Function
    58. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    59. Dim t As New Thread(AddressOf add)
    60. t.IsBackground = True
    61. t.Start()
    62. End Sub
    64. Public Sub add()
    65. For i As Integer = 0 To 99
    66. PicZusammenfügen(i & "~+~" & BitmapToString(Image.FromFile("C:\Users\Admin\Desktop\1.jpg")))
    67. Next
    68. End Sub
    70. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    71. PictureBox1.Image = New Bitmap(1920, 1080)
    72. End Sub
    73. End Class


    Hoffe ihr könnt mir helfen :)


    Edit:
    so wenn ich das x.dispose in der letzten Zeile entferne kommt der Fehler hier:
    Das Objekt wird bereits an anderer Stelle verwendet.

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

    Bohnenstange12 schrieb:

    auch jez mit der If Abfrage
    ...

    VB.NET-Quellcode

    1. If i <= 9 Then
    2. g.DrawImage(bild, bild.Width * i, 0)
    3. PictureBox1.Image = x
    4. ElseIf i <= 19 Then
    5. g.DrawImage(bild, bild.Width * (i - 10), bild.Height)
    6. PictureBox1.Image = x
    7. ' ...
    8. ElseIf i <= 89 Then
    9. g.DrawImage(bild, bild.Width * (i - 80), bild.Height * 8)
    10. PictureBox1.Image = x
    11. ElseIf i <= 99 Then
    12. g.DrawImage(bild, bild.Width * (i - 90), bild.Height * 9)
    13. PictureBox1.Image = x
    14. End If

    Suboptimal. ;(
    PictureBox1.Image = x kommt überall vor, kannst Du also raus machen.
    Machma zwischendurch eine Ausgabe MessageBox.Show((i \ 10).ToString). Vielleicht fällt Dir da was auf.
    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!