Capture screen to pixmap (Windows)

[HezkoreParticipant]

This was originally written by Mark.
It lets you capture the entire screen to a pixmap.

This example saves the pixmap to your desktop:

Monkey

#Import "<std>" Using std.. #Import "<windows.h>" #Import "<libuser32.a>" Extern Alias DWORD:UInt Alias HGDIOBJ:Void Ptr Struct HDC__ End Alias HDC:HDC__ Ptr Struct HWND__ End Alias HWND:HWND__ Ptr Struct HBITMAP__ End Alias HBITMAP:HBITMAP__ Ptr Struct BITMAPINFOHEADER Field biSize:DWORD Field biWidth:Int Field biHeight:Int Field biPlanes:Short Field biBitCount:Short Field biCompression:DWORD End Struct BITMAPINFO Field bmiHeader:BITMAPINFOHEADER End Const SM_CYVIRTUALSCREEN:Int Const SM_CXVIRTUALSCREEN:Int Const SRCCOPY:DWORD Const NOTSRCCOPY:DWORD Const CAPTUREBLT:DWORD Const DIB_PAL_COLORS:UInt Const DIB_RGB_COLORS:UInt Const BI_RGB:DWORD Function GetDesktopWindow:HWND() Function GetDC:HDC(hwnd:HWND) Function CreateCompatibleDC:HDC(hdc:HDC) Function GetSystemMetrics:int(index:Int) Function CreateCompatibleBitmap:HBITMAP(hdc:HDC,width:Int,height:Int) Function SelectObject:HGDIOBJ(hdc:HDC,hgdiobj:HGDIOBJ) Function DeleteObject:Int( hgdiobj:HGDIOBJ ) Function BitBlt:Int(hdcDest:HDC,nXDest:Int,nYDest:Int,nWidth:Int,nHeight:Int,hdcSrc:HDC,nXSrc:Int,nYSrc:Int,dwRop:DWORD) Function ReleaseDC:Int(hwnd:HWND,hdc:HDC) Function DeleteDC:Int(hdc:HDC) Function GetDIBits:Int( hdc:HDC,hbmp:HBITMAP,firstLine:UInt,numlines:UInt,bitmapData:Void Ptr,bitmapInfo:BITMAPINFO Ptr,usage:UInt ) Public Function CaptureWindow:Pixmap() Local hwnd:=GetDesktopWindow() Local w:=GetSystemMetrics( SM_CXVIRTUALSCREEN ) Local h:=GetSystemMetrics( SM_CYVIRTUALSCREEN ) Local hwnddc:=GetDC( hwnd ) Local hcapturedc:=CreateCompatibleDC( hwnddc ) Local hcapturebmp:=CreateCompatibleBitmap( hwnddc,w,h ) SelectObject( hcapturedc,hcapturebmp ) BitBlt( hcapturedc,0,0,w,h,hwnddc,0,0,SRCCOPY|CAPTUREBLT ) Local bmpInfo:BITMAPINFO libc.memset( Varptr bmpInfo,0,libc.sizeof( bmpInfo ) ) bmpInfo.bmiHeader.biSize = libc.sizeof( bmpInfo.bmiHeader ) bmpInfo.bmiHeader.biWidth = w bmpInfo.bmiHeader.biHeight = -h bmpInfo.bmiHeader.biPlanes = 1 bmpInfo.bmiHeader.biBitCount = 24 bmpInfo.bmiHeader.biCompression = BI_RGB Local pixmap:=New Pixmap( w,h,PixelFormat.RGB8 ) GetDIBits( hcapturedc,hcapturebmp,0,h,pixmap.Data,Varptr bmpInfo,DIB_RGB_COLORS ) For Local y:=0 Until h Local p:=pixmap.PixelPtr( 0,y ) For Local x:=0 Until w Local t:=p[0] p[0]=p[2] p[2]=t p+=3 Next Next DeleteDC( hcapturedc ) DeleteObject( hcapturebmp ) Return pixmap End Function Main() Local pm:=CaptureWindow() Print "Captured! w="+pm.Width+", h="+pm.Height pm.Save( DesktopDir()+"test.png" ) End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109

#Import "<std>" Using std..   #Import "<windows.h>" #Import "<libuser32.a>"   Extern Alias DWORD:UInt Alias HGDIOBJ:Void Ptr Struct HDC__ End Alias HDC:HDC__ Ptr   Struct HWND__ End Alias HWND:HWND__ Ptr   Struct HBITMAP__ End Alias HBITMAP:HBITMAP__ Ptr   Struct BITMAPINFOHEADER Field biSize:DWORD Field biWidth:Int Field biHeight:Int Field biPlanes:Short Field biBitCount:Short Field biCompression:DWORD End   Struct BITMAPINFO Field bmiHeader:BITMAPINFOHEADER End   Const SM_CYVIRTUALSCREEN:Int Const SM_CXVIRTUALSCREEN:Int   Const SRCCOPY:DWORD Const NOTSRCCOPY:DWORD Const CAPTUREBLT:DWORD   Const DIB_PAL_COLORS:UInt Const DIB_RGB_COLORS:UInt   Const BI_RGB:DWORD Function GetDesktopWindow:HWND() Function GetDC:HDC(hwnd:HWND) Function CreateCompatibleDC:HDC(hdc:HDC) Function GetSystemMetrics:int(index:Int) Function CreateCompatibleBitmap:HBITMAP(hdc:HDC,width:Int,height:Int) Function SelectObject:HGDIOBJ(hdc:HDC,hgdiobj:HGDIOBJ) Function DeleteObject:Int( hgdiobj:HGDIOBJ ) Function BitBlt:Int(hdcDest:HDC,nXDest:Int,nYDest:Int,nWidth:Int,nHeight:Int,hdcSrc:HDC,nXSrc:Int,nYSrc:Int,dwRop:DWORD) Function ReleaseDC:Int(hwnd:HWND,hdc:HDC) Function DeleteDC:Int(hdc:HDC) Function GetDIBits:Int( hdc:HDC,hbmp:HBITMAP,firstLine:UInt,numlines:UInt,bitmapData:Void Ptr,bitmapInfo:BITMAPINFO Ptr,usage:UInt ) Public   Function CaptureWindow:Pixmap() Local hwnd:=GetDesktopWindow() Local w:=GetSystemMetrics( SM_CXVIRTUALSCREEN ) Local h:=GetSystemMetrics( SM_CYVIRTUALSCREEN ) Local hwnddc:=GetDC( hwnd ) Local hcapturedc:=CreateCompatibleDC( hwnddc ) Local hcapturebmp:=CreateCompatibleBitmap( hwnddc,w,h ) SelectObject( hcapturedc,hcapturebmp ) BitBlt( hcapturedc,0,0,w,h,hwnddc,0,0,SRCCOPY|CAPTUREBLT ) Local bmpInfo:BITMAPINFO libc.memset( Varptr bmpInfo,0,libc.sizeof( bmpInfo ) )     bmpInfo.bmiHeader.biSize = libc.sizeof( bmpInfo.bmiHeader )     bmpInfo.bmiHeader.biWidth = w     bmpInfo.bmiHeader.biHeight = -h     bmpInfo.bmiHeader.biPlanes = 1     bmpInfo.bmiHeader.biBitCount = 24     bmpInfo.bmiHeader.biCompression = BI_RGB          Local pixmap:=New Pixmap( w,h,PixelFormat.RGB8 )          GetDIBits( hcapturedc,hcapturebmp,0,h,pixmap.Data,Varptr bmpInfo,DIB_RGB_COLORS )          For Local y:=0 Until h     Local p:=pixmap.PixelPtr( 0,y )     For Local x:=0 Until w     Local t:=p[0]     p[0]=p[2]     p[2]=t     p+=3 Next Next      DeleteDC( hcapturedc ) DeleteObject( hcapturebmp )     Return pixmap End   Function Main() Local pm:=CaptureWindow() Print "Captured! w="+pm.Width+", h="+pm.Height pm.Save( DesktopDir()+"test.png" ) End

[Author]

Posts