Save all the Screen to BMP

[Romeo]

Hi,
I am using a TIMER to intercept a F8 key to try to create a BMP of all the video screen, but i'am not able !!

This is my example:

define timer otime interval 50 action myfunc() of mainwnd

activate timer otime
.
.
.
function myfunc
if getasynckey(119)
* F8 pressed
HERE i need to write a BMP file with all the present screen
endif
return nil
*
ANY HELP ?

tks all
ROMEO/zingoni

[Jeff Barnes]

Try:

oWnd:SaveToBmp( cFile )

[Romeo]

It works !!!

Now i need to know on with windows o dialog i'am pressing F8

More help f me ?

thanks any

[Antonio Linares]

Try this:

oWndFromHwnd( GetFocus() ):SaveToBmp( cFile )

[Romeo]

it works bad on windows and does not work for dialog

i have FWH 8.10

[Romeo]

I tried the GETACTIVEWINDOW() and it works, but it saves only the windows/dialog focused instead of all the screen.

I try to find other solution !

Hi

[Antonio Linares]

GetDesktopWindow() returns the handle for the entire screen

[Romeo]

Too simple to solve the problem !!!

Many thanks Antonio

R

[joseluispalma]

Can you please share final code?.

[Romeo]

function save_scr()
LOCAL hBmp, hDib,h,cFile := "screen.bmp"
h:=getdesktopwindow()
hBmp := WndBitmap(h)
hDib := DibFromBitmap( hBmp )
DibWrite( cFile, hDib )
GloBalFree( hDib )
DeleteObject( hBmp )
RETURN nil
*

* Now i'm tring to convert the BMP file to JPG file....any help ?

[Antonio Linares]

Romeo,

You could try:

FIConvertImageFile( cDestinationFileName, cSourceFileName, nFormat, nQuality )

[Antonio Linares]

nFormat:

http://freeimage.sourceforge.net/fnet/html/99F7C60B.htm

[Romeo]

thanks but the
FIConvertImageFile()
in missing in my FWH 8.10

[Antonio Linares]

Romeo,

I can't help you with that as such function depends on some others that you may not have too.

I suggest you to upgrade your FWH from www.fivetechsoft.com, thanks