Save a rendered bitmap? (Read back a rendered image)

[BergChristian]

Hi again!

Once again... Amazing lib 👍

I am trying to find out a way to render the screen to a bitmap (to save it). Cant really figure it out how to do it, can you point me in the right direction?

Thanks
Christian

[BergChristian]

Hi!

I found this article. Is there any help in getting the content on the screen into a bitmap (on disk or in memory to save or export)?

https://www.programmersought.com/article/84934931885/

best
Christian

[jingwood]

Do you mean to capture the entire screen? or just the view of your application window.

If the entire screen you can consider to use a simple way like this:
https://stackoverflow.com/questions/5049122/capture-the-screen-shot-using-net

Direct2D uses GPU memory so there is no easy way to get a Direct2D rendered result, you should render your entire scene into a memory bitmap, and use the bitmap for what you want, show the bitmap on screen, or saving the bitmap onto disk.

[BergChristian]

Hi!

The second option would be great. Is there a way to create a bitmap, render the scene to it instead of the scene and the save the bitmap?

in GDI what I did was that instead of sending the graphics object of the form/user control I created a bitmap and created a graphics object of it and send that one to the scene renderer.

I am imaging I could do the same here? And then how do I get the bitmap from the D2Dbitmap object. Sort of the reverse of convertGDIbitmaptoD2Dbitmap.

All the best!

Christian

[jingwood]

Similar to #27, #61

[dvoris]

Hello! I am looking for a way to save the drawn D2Dbitmap to disk. Please, help me

[Paliscope]

Hi @dvoris.
This is what I use to save. It really copies the screen to a bitmap so make sure you don't have anything in front of your area.

Public Shared Function CaptureWindow(ctrl As Control) As Bitmap

    Try

        Dim desktophWnd As IntPtr
        Dim desktopDc As IntPtr
        Dim memoryDc As IntPtr
        Dim bitmap As IntPtr
        Dim oldBitmap As IntPtr
        Dim success As Boolean
        Dim img As Bitmap

        desktophWnd = GetDesktopWindow()
        desktopDc = GetWindowDC(desktophWnd)
        memoryDc = CreateCompatibleDC(desktopDc)
        bitmap = CreateCompatibleBitmap(desktopDc, ctrl.Width, ctrl.Height)
        oldBitmap = SelectObject(memoryDc, bitmap)

        success = BitBlt(memoryDc, 0, 0, ctrl.Width, ctrl.Height, desktopDc, ctrl.PointToScreen(New Point(0, 0)).X, ctrl.PointToScreen(New Point(0, 0)).Y, RasterOperations.SRCCOPY Or RasterOperations.CAPTUREBLT)

        img = Image.FromHbitmap(bitmap)




        SelectObject(memoryDc, oldBitmap)
        DeleteObject(bitmap)
        DeleteDC(memoryDc)
        ReleaseDC(desktophWnd, desktopDc)

        Return img

    Catch ex As Exception

    End Try

End Function