Hi all !
How to save device context of a window in bmp-file ?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Device context to file
hDeskTop:=GetWindowDc(FindWindow(...))
siz:=GetWndRect(hDeskTop)
hDC := CreateCompatibleDC( hDeskTop )
hBmp := CreateCompatibleBitMap( hDC, siz[4]-siz[2], siz[3]-siz[1])
hOldBmp:=SelectObject(hDc, hBmp)
BitBlt(hDc, 0, 0, siz[4]-siz[2], siz[3]-siz[1], hDeskTop, 0, 0, 13369376) //SCRCOPY
oImg:=GdiBmp():New()
oImg:hBmp:=Gdip_FromHBitmap(hBmp,, HasAlpha(hBmp))
oImg:Save("test.bmp")
SelectObject(hDc, hOldBmp)
DeleteDC(hDc)
DeleteObject(hOldBmp)
ReleaseDC(0, hDeskTop)
It works and I get a screenshot of a window to a bitmap file, but only in black and white. How can I get color bitmap ?
Try with
SaveWindow( hWnd, cBmp, nWidth , nHeight ) // cBmp - .bmp, .png, ..Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Thank you, works perfectly ! Only I didn't find description of this function
Look classes\tgdiplus.prg
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces