Hilfe Beim Optimieren Von Capture image aus IntPtr Function

  • VB.NET

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

    Hilfe Beim Optimieren Von Capture image aus IntPtr Function

    Hallo
    Ich habe Eine Function um eine Image vom Hwnd zu Capturen.

    Diese Functioniert soweit super. Jedoch Geht der speicher innerhalb 30sec.. Auf 2Gb und dann ist klar Error.

    Nun habe ich versucht BmpRect.Dispose() Aber klappt nicht auch nicht wen ich etwas warte bevor die Bitmap Löschen will.

    Vielleicht Gibt es jemand der Den Code auch etwas Optimieren kann oder dabei helfen kann.

    Api:

    VB.NET-Quellcode

    1. ​
    2. Friend Const SRCCOPY As Integer = 13369376
    4. Friend Structure RECT
    5. Friend left As Int32
    6. Friend top As Int32
    7. Friend right As Int32
    8. Friend bottom As Int32
    9. End Structure
    11. Friend Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Int32
    13. Friend Declare Function GetDC Lib "user32.dll" (ByVal hWnd As IntPtr) As IntPtr
    15. Friend Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As IntPtr
    17. Friend Declare Function CreateCompatibleBitmap Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal nWidth As Integer, ByVal nHeight As Integer) As IntPtr
    19. Friend Declare Function DeleteDC Lib "gdi32.dll" (ByVal hDc As IntPtr) As IntPtr
    21. Friend Declare Function ReleaseDC Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal hDc As IntPtr) As IntPtr
    23. Friend Declare Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As IntPtr, ByVal xDest As Integer, ByVal yDest As Integer, ByVal wDest As Integer, ByVal hDest As Integer, ByVal hdcSource As IntPtr, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal RasterOp As Integer) As Boolean
    25. Friend Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal bmp As IntPtr) As IntPtr
    27. Friend Declare Function DeleteObject Lib "gdi32.dll" (ByVal hDc As IntPtr) As IntPtr


    Function:

    VB.NET-Quellcode

    1. Public Function createBitmap(ByVal hWnd As IntPtr) As Bitmap
    2. Dim WinRect As RECT
    3. GetWindowRect(hWnd, WinRect)
    4. Dim BmpRect As Bitmap = New Bitmap(WinRect.right - WinRect.left, WinRect.bottom - WinRect.top)
    5. Dim hdcFrom As IntPtr = GetDC(hWnd)
    6. Dim hdcTo As IntPtr = CreateCompatibleDC(hdcFrom)
    7. Dim hBitmap As IntPtr = CreateCompatibleBitmap(hdcFrom, BmpRect.Width, BmpRect.Height)
    9. If hBitmap <> IntPtr.Zero Then
    10. Dim hLocalBitmap As IntPtr = SelectObject(hdcTo, hBitmap)
    11. BitBlt(hdcTo, 0, 0, BmpRect.Width, BmpRect.Height, hdcFrom, 0, 0, SRCCOPY)
    12. SelectObject(hdcTo, hLocalBitmap)
    13. DeleteDC(hdcTo)
    14. ReleaseDC(hWnd, hdcFrom)
    15. BmpRect = Image.FromHbitmap(hBitmap)
    16. DeleteObject(hBitmap)
    18. 'BmpRect.Dispose()
    19. End If
    21. Return BmpRect
    22. End Function
    23. ​


    Lg :)

    @seby1302 Zunächst mal sollte auch der Aufrufer / Empfänger der Bitmap die alte Bitmap disposen, bevor die neue gehandelt wird:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. If Me.PictureBox1.Image IsNot Nothing Then
    3. Me.PictureBox1.Image.Dispose()
    4. End If
    5. Me.PictureBox1.Image = createBitmap(Me.Handle)
    6. 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!

    Jap das wahr soweit schon, Problem ist das läuft in einem schnellem Timer.

    VB.NET-Quellcode

    1. Public Sub SchreenTimer_tick(sender As Object, e As EventArgs) Handles SchreenTimer.Tick
    3. If Not hWndChild7 = IntPtr.Zero Then
    5. Dim screenshot As Bitmap = createBitmap(hWndChild7)
    6. If screenshot IsNot Nothing Then
    7. PictureBox1.Image = screenshot
    8. Application.DoEvents()
    9. screenshot.Dispose()
    10. End If
    11. End If
    12. End Sub


    Das selbe Problem hatte ich bereits mit eine andre Function.

    VB.NET-Quellcode

    1. Dim WinRect As RECT
    2. ' GetWindowRect(WindowHandle, WinRect)
    3. ' Dim bmp As Bitmap = New Bitmap(WinRect.right - WinRect.left, WinRect.bottom - WinRect.top)
    4. ' Dim g As Graphics = Graphics.FromImage(bmp)
    5. ' Dim hDC As IntPtr = g.GetHdc()
    6. ' Dim pwRet As Integer = PrintWindow(WindowHandle, hDC, 0)
    7. ' g.ReleaseHdc(hDC)
    8. ' g.Flush()
    9. ' g.Dispose()


    Mit ' g.Flush()' g.Dispose() hatte ich es behoben, leider Gibt mir diesen Funktion ein schwarzes Bild bei meinem vorhaben, Funzioniert nicht bei allen Anwendungen.

    Ich habe es geschafft liegt einfach da dran das der Timer zu schnell ist und somit nicht schafft die Bmp zu löschen nun schaut das so aus..

    VB.NET-Quellcode

    1. ​ Public Sub SchreenTimer_tick(sender As Object, e As EventArgs) Handles SchreenTimer.Tick
    3. If Not hWndChild7 = IntPtr.Zero Then
    5. If PictureBox1.Image IsNot Nothing Then
    6. PictureBox1.Image.Dispose()
    7. wait(50)
    8. End If
    9. PictureBox1.Image = createBitmap(hWndChild7)
    10. End If
    11. End Sub


    Wait Funktion.. Im gegensatz zu sleep kann die application währenddessen weitere aufgaben ausführen.

    VB.NET-Quellcode

    1. ​ Friend Sub wait(ByVal interval As Integer)
    2. Dim sw As New Stopwatch
    3. sw.Start()
    4. Do While sw.ElapsedMilliseconds < interval
    5. Application.DoEvents()
    6. Loop
    7. sw.Stop()
    8. End Sub


    Für weitere vorschläge und verbeserungen bitte melden :)

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

    seby1302 schrieb:

    das der Timer zu schnell ist
    Dann sorge dafür, dass der Timercode erst verlassen werden muss, bevor er erneut aufgerufen werden kann: SyncLock oder einfach ein niedrigerer Takt.
    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!

    funzioniert leider nicht oder ich mache es falsch?

    'So gehts rauf und runter Jedoch immer mehr bis 2 Gb erreicht und Error

    VB.NET-Quellcode

    1. Dim field As Object = New Object
    3. If Not hWndChild7 = IntPtr.Zero Then
    4. SyncLock field
    6. If PictureBox1.Image IsNot Nothing Then
    8. PictureBox1.Image.Dispose()
    10. End If
    11. End SyncLock
    13. PictureBox1.Image = CreateBitmap(HWndChild7)



    'Und so Bleibt etwa die ersten 30sec.. constant auf 280MB dann langsam rauf auf 2Gb Error

    VB.NET-Quellcode

    1. Dim field As Object = New Object
    3. If Not hWndChild7 = IntPtr.Zero Then
    5. SyncLock field
    6. If PictureBox1.Image IsNot Nothing Then
    8. PictureBox1.Image.Dispose()
    9. End If
    10. PictureBox1.Image = CreateBitmap(HWndChild7)
    11. End SyncLock


    Habe ich auch so versucht, leider funzioniert das nur solange der control den focus hat und man da zwischen dursch was macht, minimiere ich dem oder mache ich länger nix geht der speicher sofort rauf..

    VB.NET-Quellcode

    1. ​ If PictureBox1.Image IsNot Nothing Then
    2. SyncLock field
    3. PictureBox1.Image.Dispose()
    4. 'Wait(50)
    5. End SyncLock
    6. End If


    Nidrigere tackt ist nicht machbar, steht schon auf 200ms und das ist schon recht an der grenze.
    Mit dem Wait lief es jedoch konstant auf 280Mb auch wenn mir Bewust das es nicht correct programmiert ist.

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

    seby1302 schrieb:

    VB.NET-Quellcode

    1. Dim field As Object = New Object
    Diesed Zeile muss in der Klasse, nicht aber in der Prozedur stehen.
    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!

    @seby1302 Machma das SyncLock so:

    VB.NET-Quellcode

    1. SyncLock field
    2. If PictureBox1.Image IsNot Nothing Then
    3. PictureBox1.Image.Dispose()
    4. PictureBox1.Image = Nothing
    5. 'Wait(50)
    6. End If
    7. End SyncLock
    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!

    nix zu machen..

    habe auch so versucht, das einzige das bild blinkt warscheinlich wegen PictureBox1.Image = Nothing, die speicher ist dennoch nach ca.. 30 sec voll

    VB.NET-Quellcode

    1. SyncLock field
    2. If PictureBox1.Image IsNot Nothing Then
    3. PictureBox1.Image.Dispose()
    4. PictureBox1.Image = Nothing
    6. End If
    7. End SyncLock
    8. Application.DoEvents()
    9. PictureBox1.Image = CreateBitmap(HWndChild)


    Ohne Application.DoEvents() blinkt nix aber selbe effekt speicher 30 sec voll..

    @seby1302 Ich ahne.
    Deine Routine wird so schnell hintereinander aufgerufen, dass .NET nicht hinterher kommt, den Speicher glattzuziehen.
    Da könnte ein GC.Collect() Abhilfe schaffen, aber das ist die Brecheisen-Methode.
    Beschreib mal ganz genau, was Du ühaupt erreichen willst.
    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!

    Diesen Fehler habe ich nun behoben, läuft ganz ohne Wait etc..

    Ich trottel hatte das noch da rein gehauen klar das nicht Funzioniert.

    VB.NET-Quellcode

    1. ​ If Not HWndChild7 = IntPtr.Zero Then
    2. If PictureBox1Acc1.Image IsNot Nothing Then
    3. Dim MausePositionX As Double = Cursor.Position.X - Me.Location.X
    4. Dim TolleranceW As Double = HWndChield7width / PictureBox1Acc1.Width


    Jetzt auf

    VB.NET-Quellcode

    1. If Not HWndChild7 = IntPtr.Zero Then
    2. Dim MausePositionX As Double = Cursor.Position.X - Me.Location.X
    3. Dim TolleranceW As Double = HWndChield7width / PictureBox1Acc1.Width
    5. If PictureBox1Acc1.Image IsNot Nothing Then


    Mir ist bekannt das die Deklarationen in dem Timer Garnicht gut sind und in der klasse gehören aber wegen HWndChield7width muss ich erstmal abfragen ob vorhanden :/

    seby1302 schrieb:

    VB.NET-Quellcode

    1. Dim MausePositionX As Double = Cursor.Position.X - Me.Location.X
    MausePositionX kannst Du als Integer deklarieren.
    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!