getclip (images)

[_pi]

scenario:

copy an image to the clipboard and save it to a destination.

Clipboard format is numeric value. If you know it's name as string, use function RegisterClipboardFormat to get numeric value.

i don't understand this part.

[Gintaras]

RegisterClipboardFormat isn't related to bitmap copying.

Code:

Copy      Help

;copy bitmap and save to test.bmp
str s.expandpath("$desktop$\test.bmp")
s.getsel(0 CF_BITMAP)
5
;paste test.bmp
s.setsel(CF_BITMAP)

When format is CF_BITMAP, s itself contains only filename, but not bitmap data

[_pi]

RegisterClipboardFormat isn't related to bitmap copying.

i guess i need that. sorry that i was unclear :oops:

i want to save image data from the clipboard to a file.
like copy a layer in photoshop and save it to a file.

Code:

Copy      Help

s.getclip(CF_BITMAP)

[Gintaras]

Usually, applications store data into the clipboard in several formats. Some of them (values < 512) are standard formats. An application also can use registered formats (>32K) and private formats (512 - 1K).

Copy something, and run following code. It shows what formats currently are in the clipboard. Those with strings are registered. You can then use RegisterClipboardFormat to get numeric value.

Code:

Copy      Help

dll user32
,#OpenClipboard hWnd
,#CloseClipboard
,#CountClipboardFormats
,#EnumClipboardFormats wFormat
,#GetClipboardFormatName wFormat $lpString nMaxCount

ClearOutput
int i f
str s
OpenClipboard 0
for i 0 CountClipboardFormats
,f=EnumClipboardFormats(f)
,s.fix(GetClipboardFormatName(f s s.all(100)))
,out "%i %s" f s
CloseClipboard

I tried it with selected wordart object in MS Word doc. I discovered that one of formats is "GIF". Then I executed following code, and result was normal gif file.

Code:

Copy      Help

str s.getsel(0 RegisterClipboardFormat("GIF"))
s.setfile("$desktop$\test.gif")

[ken gray]

im trying to save a screen print to a file but cant seem to get the format right. when i run the code above to see what the format is all i get is

Code:

Copy      Help

2
8
17

any idea what i should put in the

Code:

Copy      Help

str e.getsel(0 RegisterClipboardFormat("GIF"))

line?

TY

[Gintaras]

These are predefined formats, and one of them is CF_BITMAP (2).
You can save only to a bmp file.

Also, there is a bug in current QM version: key (44), and similar, produces one or more additional keys that depend on following text. The ) should be followed by space, as in example.

Code:

Copy      Help

key (44) ;
1
str s.expandpath("$desktop$\screen.bmp")
s.getclip(CF_BITMAP)

[ken gray]

Wow!!!!
That works great. THANKS!!!!