Bilder von Screenshot Dispose´n

  • VB.NET

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

    Bilder von Screenshot Dispose´n

    Hallo liebes Forum,
    ich habe ein Problem mit meinem Fernwartungsprogramm, und zwar steigt der Ram Speicherverbrauch enorm an wenn ich zu viele Screenshots erstelle.
    Dafür gibt es ja die Lösung ein Bild zu dispose´n also

    VB.NET-Quellcode

    1. Image.dispose()

    das Problem ist ich kriege das einfach nicht hin ... ?(
    Ich wäre echt Dankbar wenn mir jemand helfen könnte
    Mein jetziger Sourcecode sieht so aus(funktioniert alles blos eben das Dispose Problem...):

    Screenshot:

    VB.NET-Quellcode

    1. Dim Bitmap As Bitmap
    2. Dim oScreens() As Screen = Screen.AllScreens
    3. Dim nScreenCount As Integer = oScreens.Length
    4. For i As Integer = 0 To nScreenCount - 1
    5. If i = screennumber Then
    6. Dim Rect As Rectangle = oScreens(i).Bounds
    7. Dim Bmp2 As Bitmap = New Bitmap(Rect.Width, Rect.Height)
    8. Using Gra As Graphics = Graphics.FromImage(Bmp2)
    9. Gra.CopyFromScreen(0, 0, 0, 0, Bmp2.Size)
    10. End Using
    11. Bitmap = New Bitmap(Bmp2, 1024, 768)
    12. Bmp2.Dispose()
    13. End If
    14. Next i


    Screenshot wird in 16 Teile geteilt:

    VB.NET-Quellcode

    1. Dim img As Image = Bitmap
    2. Dim sSize As New Size(img.Width / 4, img.Height / 4)
    3. Dim bmp(15) As Bitmap
    4. Dim g As Graphics
    5. For i As Integer = 0 To 15
    6. bmp(i) = New Bitmap(sSize.Width, sSize.Height)
    7. g = Graphics.FromImage(bmp(i))
    8. If i <= 3 Then
    9. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    10. sSize.Height), _
    11. New RectangleF(i * sSize.Width, 0, _
    12. sSize.Width, sSize.Height), GraphicsUnit.Pixel)
    13. ElseIf i <= 7 Then
    14. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    15. sSize.Height), _
    16. New RectangleF((i - 4) * sSize.Width, 1 * _
    17. sSize.Height, sSize.Width, sSize.Height), _
    18. GraphicsUnit.Pixel)
    19. ElseIf i <= 11 Then
    20. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    21. sSize.Height), _
    22. New RectangleF((i - 8) * sSize.Width, 2 * _
    23. sSize.Height, sSize.Width, sSize.Height), _
    24. GraphicsUnit.Pixel)
    25. ElseIf i <= 15 Then
    26. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    27. sSize.Height), _
    28. New RectangleF((i - 12) * sSize.Width, 3 * _
    29. sSize.Height, sSize.Width, sSize.Height), _
    30. GraphicsUnit.Pixel)
    31. End If


    Danach sollen diese Bilder mit alten Bildern verglichen werden, damit es effizienter wird also nur die geänderten Teile des Screenshots gesendet werden.
    Dafür vergleiche ich jedes bitmap in dem Bitmap-Array also

    VB.NET-Quellcode

    1. If bmp(i) = Alterscreenshot(i) Then
    2. 'Senden
    3. Else
    4. 'Nicht Senden
    5. End if


    Nach dieser Schleife muss ich aber alle neuen Bitmaps aus dem Ram kriegen... :D

    Nun endgültige meine Frage wie schaffr ich das...
    ich habe es schon mit

    VB.NET-Quellcode

    1. For each Screenshot as Bitmap in bmp()
    2. Screenshot.dispose
    3. next


    versucht aber das klappt halt nicht... :(
    LG

    Willkommen im Forum. :thumbup:
    Kannst Du vielleicht mal den gesamten Code posten, da lässt sich Dein Effekt leichter nachvollziehen.

    Bohnenstange12 schrieb:

    VB.NET-Quellcode

    1. Dim Bmp2 As Bitmap = New Bitmap(Rect.Width, Rect.Height)
    2. ' ...
    3. Bmp2.Dispose()
    Da kannst Du jedenfalls schon mal ein

    VB.NET-Quellcode

    1. Using Bmp2 As Bitmap = New Bitmap(Rect.Width, Rect.Height)
    2. ' ...
    3. End Using
    draus machen.
    Deine If-Konstruktion:

    VB.NET-Quellcode

    1. For i As Integer = 0 To 15
    2. If i <= 3 Then
    3. ElseIf i <= 7 Then
    4. ElseIf i <= 11 Then
    5. ElseIf i <= 15 Then
    6. End If
    7. Next
    schreib vielleicht so um:

    VB.NET-Quellcode

    1. For i As Integer = 0 To 3
    2. Next
    3. For i As Integer = 4 To 7
    4. Next
    5. For i As Integer = 8 To 11
    6. Next
    7. For i As Integer = 12 To 15
    8. Next
    das ist verständlicher.
    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!

    Ganzer Source

    Der ganze Sourcecode sieht so aus:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Imaging
    2. Imports System.Runtime.InteropServices
    3. Imports System.IO
    5. Public Class Form1
    6. Public Function IsEqual(ByVal bmp1 As Bitmap, ByVal bmp2 As Bitmap) As Boolean
    7. Dim equal As Boolean = True
    8. If bmp1 Is Nothing Or bmp2 Is Nothing Then Return False
    9. If Bitmap.ReferenceEquals(bmp1, bmp2) Then Return True
    10. With bmp1
    11. If .Width <> bmp2.Width Then Return False
    12. If .Height <> bmp2.Height Then Return False
    13. If .PixelFormat <> bmp2.PixelFormat Then Return False
    14. End With
    15. Dim rect As New Rectangle(0, 0, bmp1.Width, bmp1.Height)
    16. Dim bd1 As BitmapData = bmp1.LockBits(rect, ImageLockMode.ReadOnly, bmp1.PixelFormat)
    17. Dim bd2 As BitmapData = bmp2.LockBits(rect, ImageLockMode.ReadOnly, bmp2.PixelFormat)
    18. Dim ByteZahl As Integer = bd1.Stride * bd1.Height
    19. Dim bmp1_bytes(ByteZahl - 1), bmp2_bytes(ByteZahl - 1) As Byte
    20. Marshal.Copy(bd1.Scan0, bmp1_bytes, 0, ByteZahl)
    21. Marshal.Copy(bd2.Scan0, bmp2_bytes, 0, ByteZahl)
    22. For i As Integer = 0 To ByteZahl - 1
    23. If bmp1_bytes(i) <> bmp2_bytes(i) Then
    24. equal = False : Exit For
    25. End If
    26. Next i
    27. bmp1.UnlockBits(bd1) : bmp2.UnlockBits(bd2)
    28. Return equal
    29. End Function
    31. Dim Bild0 As Image
    32. Dim Bild1 As Image
    33. Dim Bild2 As Image
    34. Dim Bild3 As Image
    35. Dim Bild4 As Image
    36. Dim Bild5 As Image
    37. Dim Bild6 As Image
    38. Dim Bild7 As Image
    39. Dim Bild8 As Image
    40. Dim Bild9 As Image
    41. Dim Bild10 As Image
    42. Dim Bild11 As Image
    43. Dim Bild12 As Image
    44. Dim Bild13 As Image
    45. Dim Bild14 As Image
    46. Dim Bild15 As Image
    47. Public Sub bilderstellen(ByVal screennumber As Integer)
    48. Dim Bitmap As Bitmap
    49. Dim oScreens() As Screen = Screen.AllScreens
    50. Dim nScreenCount As Integer = oScreens.Length
    51. For i As Integer = 0 To nScreenCount - 1
    52. If i = screennumber Then
    53. Dim Rect As Rectangle = oScreens(i).Bounds
    54. Using Bmp2 As Bitmap = New Bitmap(Rect.Width, Rect.Height)
    55. Using Gra As Graphics = Graphics.FromImage(Bmp2)
    56. Gra.CopyFromScreen(0, 0, 0, 0, Bmp2.Size)
    57. End Using
    58. Bitmap = New Bitmap(Bmp2, 1024, 768)
    59. Bmp2.Dispose()
    60. End Using
    61. End If
    62. Next i
    63. Dim img As Image = Bitmap
    64. Dim sSize As New Size(img.Width / 4, img.Height / 4)
    65. Dim bmp(15) As Bitmap
    66. Dim g As Graphics
    67. For i As Integer = 0 To 15
    68. bmp(i) = New Bitmap(sSize.Width, sSize.Height)
    69. g = Graphics.FromImage(bmp(i))
    70. If i <= 3 Then
    71. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    72. sSize.Height), _
    73. New RectangleF(i * sSize.Width, 0, _
    74. sSize.Width, sSize.Height), GraphicsUnit.Pixel)
    75. ElseIf i <= 7 Then
    76. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    77. sSize.Height), _
    78. New RectangleF((i - 4) * sSize.Width, 1 * _
    79. sSize.Height, sSize.Width, sSize.Height), _
    80. GraphicsUnit.Pixel)
    81. ElseIf i <= 11 Then
    82. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    83. sSize.Height), _
    84. New RectangleF((i - 8) * sSize.Width, 2 * _
    85. sSize.Height, sSize.Width, sSize.Height), _
    86. GraphicsUnit.Pixel)
    87. ElseIf i <= 15 Then
    88. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    89. sSize.Height), _
    90. New RectangleF((i - 12) * sSize.Width, 3 * _
    91. sSize.Height, sSize.Width, sSize.Height), _
    92. GraphicsUnit.Pixel)
    93. End If
    96. If i = 0 Then
    97. If Bild0 Is Nothing Then
    98. Bild0 = bmp(i)
    99. Else
    100. If IsEqual(Bild0, bmp(i)) = True Then
    101. 'nicht senden
    102. Else
    103. sendimage(i, bmp(i))
    104. Bild0.Dispose()
    105. Bild0 = bmp(i)
    106. End If
    107. End If
    108. End If
    109. If i = 1 Then
    110. If Bild1 Is Nothing Then
    111. Bild1 = bmp(i)
    112. Else
    113. If IsEqual(Bild1, bmp(i)) = True Then
    114. 'nicht senden
    115. Else
    116. sendimage(i, bmp(i))
    117. Bild1.Dispose()
    118. Bild1 = bmp(i)
    119. End If
    120. End If
    121. End If
    122. If i = 2 Then
    123. If Bild2 Is Nothing Then
    124. Bild2 = bmp(i)
    125. Else
    126. If IsEqual(Bild2, bmp(i)) = True Then
    127. 'nicht senden
    128. Else
    129. sendimage(i, bmp(i))
    130. Bild2.Dispose()
    131. Bild2 = bmp(i)
    132. End If
    133. End If
    134. End If
    135. If i = 3 Then
    136. If Bild3 Is Nothing Then
    137. Bild3 = bmp(i)
    138. Else
    139. If IsEqual(Bild3, bmp(i)) = True Then
    140. 'nicht senden
    141. Else
    142. sendimage(i, bmp(i))
    143. Bild3.Dispose()
    144. Bild3 = bmp(i)
    145. End If
    146. End If
    147. End If
    148. If i = 4 Then
    149. If Bild4 Is Nothing Then
    150. Bild4 = bmp(i)
    151. Else
    152. If IsEqual(Bild4, bmp(i)) = True Then
    153. 'nicht senden
    154. Else
    155. sendimage(i, bmp(i))
    156. Bild4.Dispose()
    157. Bild4 = bmp(i)
    158. End If
    159. End If
    160. End If
    161. If i = 5 Then
    162. If Bild5 Is Nothing Then
    163. Bild5 = bmp(i)
    164. Else
    165. If IsEqual(Bild5, bmp(i)) = True Then
    166. 'nicht senden
    167. Else
    168. sendimage(i, bmp(i))
    169. Bild5.Dispose()
    170. Bild5 = bmp(i)
    171. End If
    172. End If
    173. End If
    174. If i = 6 Then
    175. If Bild6 Is Nothing Then
    176. Bild6 = bmp(i)
    177. Else
    178. If IsEqual(Bild6, bmp(i)) = True Then
    179. 'nicht senden
    180. Else
    181. sendimage(i, bmp(i))
    182. Bild6.Dispose()
    183. Bild6 = bmp(i)
    184. End If
    185. End If
    186. End If
    187. If i = 7 Then
    188. If Bild7 Is Nothing Then
    189. Bild7 = bmp(i)
    190. Else
    191. If IsEqual(Bild7, bmp(i)) = True Then
    192. 'nicht senden
    193. Else
    194. sendimage(i, bmp(i))
    195. Bild7.Dispose()
    196. Bild7 = bmp(i)
    197. End If
    198. End If
    199. End If
    200. If i = 8 Then
    201. If Bild8 Is Nothing Then
    202. Bild8 = bmp(i)
    203. Else
    204. If IsEqual(Bild8, bmp(i)) = True Then
    205. 'nicht senden
    206. Else
    207. sendimage(i, bmp(i))
    208. Bild8.Dispose()
    209. Bild8 = bmp(i)
    210. End If
    211. End If
    212. End If
    213. If i = 9 Then
    214. If Bild9 Is Nothing Then
    215. Bild9 = bmp(i)
    216. Else
    217. If IsEqual(Bild9, bmp(i)) = True Then
    218. 'nicht senden
    219. Else
    220. sendimage(i, bmp(i))
    221. Bild9.Dispose()
    222. Bild9 = bmp(i)
    223. End If
    224. End If
    225. End If
    226. If i = 10 Then
    227. If Bild10 Is Nothing Then
    228. Bild10 = bmp(i)
    229. Else
    230. If IsEqual(Bild10, bmp(i)) = True Then
    231. 'nicht senden
    232. Else
    233. sendimage(i, bmp(i))
    234. Bild10.Dispose()
    235. Bild10 = bmp(i)
    236. End If
    237. End If
    238. End If
    239. If i = 11 Then
    240. If Bild11 Is Nothing Then
    241. Bild11 = bmp(i)
    242. Else
    243. If IsEqual(Bild11, bmp(i)) = True Then
    244. 'nicht senden
    245. Else
    246. sendimage(i, bmp(i))
    247. Bild11.Dispose()
    248. Bild11 = bmp(i)
    249. End If
    250. End If
    251. End If
    252. If i = 12 Then
    253. If Bild12 Is Nothing Then
    254. Bild12 = bmp(i)
    255. Else
    256. If IsEqual(Bild12, bmp(i)) = True Then
    257. 'nicht senden
    258. Else
    259. sendimage(i, bmp(i))
    260. Bild12.Dispose()
    261. Bild12 = bmp(i)
    262. End If
    263. End If
    264. End If
    265. If i = 13 Then
    266. If Bild13 Is Nothing Then
    267. Bild13 = bmp(i)
    268. Else
    269. If IsEqual(Bild13, bmp(i)) = True Then
    270. 'nicht senden
    271. Else
    272. sendimage(i, bmp(i))
    273. Bild13.Dispose()
    274. Bild13 = bmp(i)
    275. End If
    276. End If
    277. End If
    278. If i = 14 Then
    279. If Bild14 Is Nothing Then
    280. Bild14 = bmp(i)
    281. Else
    282. If IsEqual(Bild14, bmp(i)) = True Then
    283. 'nicht senden
    284. Else
    285. sendimage(i, bmp(i))
    286. Bild14.Dispose()
    287. Bild14 = bmp(i)
    288. End If
    289. End If
    290. End If
    291. If i = 15 Then
    292. If Bild15 Is Nothing Then
    293. Bild15 = bmp(i)
    294. Else
    295. If IsEqual(Bild15, bmp(i)) = True Then
    296. 'nicht senden
    297. Else
    298. sendimage(i, bmp(i))
    299. Bild15.Dispose()
    300. Bild15 = bmp(i)
    301. End If
    302. End If
    303. End If
    304. Next
    305. End Sub
    307. Public Sub sendimage(ByVal number As Integer, ByVal img As Bitmap)
    308. Try
    309. Dim imagetext As String = BitmapToString(img)
    310. 'AnServerSenden("Bildschirmfoto~+~" & imagetext)
    311. Catch ex As Exception
    312. End Try
    313. End Sub
    315. Public Function BitmapToString(ByVal bImage As Image) As String
    316. Try
    317. Dim data As String
    318. Dim ms As MemoryStream = New MemoryStream
    319. bImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
    320. data = Convert.ToBase64String(ms.ToArray())
    321. Return data
    322. Catch ex As Exception
    323. Return String.Empty
    324. End Try
    325. End Function
    327. End Class


    Ich weiß is relativ scheiße mit den vielen ifs und den 16 einzeln deklarierten Bildern aber mir ist nichts besseres eingefallen ;)
    Auf alle Fälle danke schonmal für die Antworten und ich habe das mit dem Image.FromStream nicht kapiert wie soll ich ein Bitmap in einen Stream laden und was würde die nutzen :?:
    LG

    Bohnenstange12 schrieb:

    Ich weiß is relativ scheiße
    Dann brauche ich das auch nicht kommentieren ;)

    Bohnenstange12 schrieb:

    ich habe das mit dem Image.FromStream nicht kapiert
    Ist auch nicht nötig;)
    Das bring nur was, wenn du aus der Datei liest.
    Insofern war der Tipp eher ungeeignet.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Bohnenstange12 schrieb:

    VB.NET-Quellcode

    1. Dim Bild0 As Image
    Wollen wir mal langsam versuchen, den Code aufzuräumen.
    Pack Deine Bilder in ein Array und greif über den Index zu.

    VB.NET-Quellcode

    1. Dim Bild(15) As Image
    Da sollte Dein Code auf 1 / 3 seiner Länge schmelzen. Mach das und melde Dich dann wieder mit dem neuen Code. :D
    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:

    Da sollte Dein Code auf 1 / 3 seiner Länge schmelzen. Mach das und melde Dich dann wieder mit dem neuen Code. :D

    Ja also neuer überarbeiteter Code sollte soweit auch funktionieren ich glaube ich habe das Ram Problem sogar teilweise gelöst durch

    VB.NET-Quellcode

    1. Bild(i).Dispose()

    Jetzt muss nurnoch das Bmp-Array Disposed werden dann sollte das glaube ich auch passen ... :thumbsup:

    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. Public Sub bilderstellen(ByVal screennumber As Integer)
    28. Dim Bitmap As Bitmap
    29. Dim oScreens() As Screen = Screen.AllScreens
    30. Dim nScreenCount As Integer = oScreens.Length
    31. For i As Integer = 0 To nScreenCount - 1
    32. If i = screennumber Then
    33. Dim Rect As Rectangle = oScreens(i).Bounds
    34. Using Bmp2 As Bitmap = New Bitmap(Rect.Width, Rect.Height)
    35. Using Gra As Graphics = Graphics.FromImage(Bmp2)
    36. Gra.CopyFromScreen(0, 0, 0, 0, Bmp2.Size)
    37. End Using
    38. Bitmap = New Bitmap(Bmp2, 1024, 768)
    39. Bmp2.Dispose()
    40. End Using
    41. End If
    42. Next i
    43. Dim img As Image = Bitmap
    44. Dim sSize As New Size(img.Width / 4, img.Height / 4)
    45. Dim bmp(15) As Bitmap
    46. Dim g As Graphics
    48. For i As Integer = 0 To 15
    49. bmp(i) = New Bitmap(sSize.Width, sSize.Height)
    50. g = Graphics.FromImage(bmp(i))
    51. If i <= 3 Then
    52. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    53. sSize.Height), _
    54. New RectangleF(i * sSize.Width, 0, _
    55. sSize.Width, sSize.Height), GraphicsUnit.Pixel)
    56. ElseIf i <= 7 Then
    57. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    58. sSize.Height), _
    59. New RectangleF((i - 4) * sSize.Width, 1 * _
    60. sSize.Height, sSize.Width, sSize.Height), _
    61. GraphicsUnit.Pixel)
    62. ElseIf i <= 11 Then
    63. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    64. sSize.Height), _
    65. New RectangleF((i - 8) * sSize.Width, 2 * _
    66. sSize.Height, sSize.Width, sSize.Height), _
    67. GraphicsUnit.Pixel)
    68. ElseIf i <= 15 Then
    69. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    70. sSize.Height), _
    71. New RectangleF((i - 12) * sSize.Width, 3 * _
    72. sSize.Height, sSize.Width, sSize.Height), _
    73. GraphicsUnit.Pixel)
    74. End If
    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. Next
    87. End Sub

    Bohnenstange12 schrieb:

    VB.NET-Quellcode

    1. For i As Integer = 0 To 15
    Dies machst Du nun wie ich es Dir oben gezeigt habe ...
    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:

    Dies machst Du nun wie ich es Dir oben gezeigt habe ...


    So jez habe ich zwar ne extra Sub drinne funktioniert aber und ist übersichtlicher .... 8o

    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. Public Sub bilderstellen(ByVal screennumber As Integer)
    29. Dim Bitmap As Bitmap
    30. Dim oScreens() As Screen = Screen.AllScreens
    31. Dim nScreenCount As Integer = oScreens.Length
    32. For i As Integer = 0 To nScreenCount - 1
    33. If i = screennumber Then
    34. Dim Rect As Rectangle = oScreens(i).Bounds
    35. Using Bmp2 As Bitmap = New Bitmap(Rect.Width, Rect.Height)
    36. Using Gra As Graphics = Graphics.FromImage(Bmp2)
    37. Gra.CopyFromScreen(0, 0, 0, 0, Bmp2.Size)
    38. End Using
    39. Bitmap = New Bitmap(Bmp2, 1024, 768)
    40. Bmp2.Dispose()
    41. End Using
    42. End If
    43. Next i
    44. Dim img As Image = Bitmap
    45. Dim sSize As New Size(img.Width / 4, img.Height / 4)
    46. Dim g As Graphics
    48. For i As Integer = 0 To 3
    49. bmp(i) = New Bitmap(sSize.Width, sSize.Height)
    50. g = Graphics.FromImage(bmp(i))
    51. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    52. sSize.Height), _
    53. New RectangleF(i * sSize.Width, 0, _
    54. sSize.Width, sSize.Height), GraphicsUnit.Pixel)
    55. vergleichen(i)
    56. Next
    58. For i As Integer = 4 To 7
    59. bmp(i) = New Bitmap(sSize.Width, sSize.Height)
    60. g = Graphics.FromImage(bmp(i))
    61. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    62. sSize.Height), _
    63. New RectangleF((i - 4) * sSize.Width, 1 * _
    64. sSize.Height, sSize.Width, sSize.Height), _
    65. GraphicsUnit.Pixel)
    66. vergleichen(i)
    67. Next
    69. For i As Integer = 8 To 11
    70. bmp(i) = New Bitmap(sSize.Width, sSize.Height)
    71. g = Graphics.FromImage(bmp(i))
    72. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    73. sSize.Height), _
    74. New RectangleF((i - 8) * sSize.Width, 2 * _
    75. sSize.Height, sSize.Width, sSize.Height), _
    76. GraphicsUnit.Pixel)
    77. vergleichen(i)
    78. Next
    80. For i As Integer = 12 To 15
    81. bmp(i) = New Bitmap(sSize.Width, sSize.Height)
    82. g = Graphics.FromImage(bmp(i))
    83. g.DrawImage(img, New RectangleF(0, 0, sSize.Width, _
    84. sSize.Height), _
    85. New RectangleF((i - 12) * sSize.Width, 3 * _
    86. sSize.Height, sSize.Width, sSize.Height), _
    87. GraphicsUnit.Pixel)
    88. vergleichen(i)
    89. Next
    90. End Sub
    92. Public Sub vergleichen(ByVal i As Integer)
    93. If Bild(i) Is Nothing Then
    94. Bild(i) = bmp(i)
    95. Else
    96. If IsEqual(Bild(i), bmp(i)) = True Then
    97. Else
    98. sendimage(i, bmp(i))
    99. Bild(i).Dispose()
    100. Bild(i) = bmp(i)
    101. End If
    102. End If
    103. End Sub


    Es ist ein langer Weg zum perfekten sourcecode :D :D :D

    Bohnenstange12 schrieb:

    Es ist ein langer Weg
    :D

    VB.NET-Quellcode

    1. For i As Integer = 0 To 3
    2. For i As Integer = 4 To 7
    Sieh Dir mal den Inhalt dieser Schleifen an, lagere ihn in eine separate Prozedur aus. :D
    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!

    irgendwann kriegen wir hier noch nen Einzeiler :D

    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: Und, was macht der Speicher?
    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!

    Bohnenstange12 schrieb:

    eigentlich einen guten Verbrauch
    Sicher lässt sich noch das eine oder andere optimieren, aber wenn der Speicherbedarf konstant bleibt, ist es doch erst mal i.O. :D
    Ich hoffe, Du hast nun ein Gefühl dafür bekommen, wie optimiert werden kann. Arbeite mal selbst daran.
    Hilfe bekommst Du hier immer.
    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