Login

ldarrambide · 11-12-2013, 11:34 PM

Hi Gintaras, I all,

Gintaras, from previous posts, you showed me to convert an image on disk via the GflAx library.

Now for my project, i'd like to:

1. find an image in google image, copy it to clipboard (easy part i've done).
Note that clipboard can be filled by image from any size and any extension (png, gif, jpg etc)

Now, the tough part:

2. change size directly from THE CLIPBOARD IMAGE i.e in memory to a chosen size (say : 300x300)

3. be able to paste it as jpg or png only.

Example:

copy in firefox a png image of 950x950, then resize it to 300x300 in memory, and paste it in another program
as a 300x300 jpg, quality 80.

Possible in QM?

Thanks

***Gintaras*** · 11-13-2013, 05:51 AM

Possible to convert/resize, but I don't know how to paste as png or jpg, there are no standard clipboard formats for it. But maybe possible, look in stackoverflow etc.
For the convert/resize part, also search QM forum, all I know about it is already here.
Even the copy part has problems. Web browser probably copies only as bitmap, without alpha channel.

ldarrambide · 11-13-2013, 07:22 AM

Found my old post only, but thanks, as usual...

ldarrambide · 11-13-2013, 08:56 AM

OK, found a way.

Now menu interaction.

Easy to simulate key presses, but is possible to send directly a menu item to a control, without using
simulated menu buttons?

Record menu in tools->options only "replays".

so is some code like

1. child("control name" "TDropPanel" w)
and send directly paste command or drop command (it is a tdroppanel) so i suppose
it can be simulated an image drag'n'drop from clipboard on it?

2. Same thing in firefox, can I send

rig and then copy to clipboard directly?

Thanks

***Gintaras*** · 11-13-2013, 09:32 AM

Copy image in Firefox directly (without Ctrl+C or menu) - don't know is it possible. More chances if using IE.
Paste directly (without Ctrl+V or menu) - try WM_PASTE message. Or men(), if the program has standard menu bar.

ldarrambide · 11-13-2013, 09:47 AM

int w=win("program" "TMainform")
int c=child("control" "TDropPanel" w)
SendMessage c WM_PASTE 0 0

like that?

***Gintaras*** · 11-13-2013, 09:51 AM

Yes. Some controls support it.

ldarrambide · 11-13-2013, 09:53 AM

nope, no cookie, does not work
not possible via acc?
I think i'll stick to "normal" way

ldarrambide · 11-13-2013, 10:36 AM

Gintaras, according to MSDN

http://msdn.microsoft.com/en-us/library/...85%29.aspx
http://msdn.microsoft.com/en-us/library/...85%29.aspx

GdipImage.Save implemented in QM lacks the possibility to provide quality parameter to save to jpeg.

Can you show me how to call GdipImage.Save with this feature?

***Gintaras*** · 11-13-2013, 11:16 AM

Macro Macro2185

Code: Copy      Help
#compile "__Gdip"

GdipImage g

;...

GDIP.EncoderParameters p

p.Count=1

memcpy &p.Parameter[0].Guid GDIP.EncoderQuality sizeof(GUID)

p.Parameter[0].Type=GDIP.EncoderParameterValueTypeLong

p.Parameter[0].NumberOfValues=1

int quality=0

p.Parameter[0].Value=&quality

g.Save2("file" &p)

Let Save2 is a copy of Save, with added parameter GDIP.EncoderParameters*p, and let it pass p to GdipSaveImageToFile.

ldarrambide · 11-13-2013, 12:12 PM

ok, i must recode Save2 to:

Member function GdipImage.Save2

Code: Copy      Help
function! $imageFile GDIP.EncoderParameters&p

;Saves this image to file.

;Supported formats: BMP, GIF, JPEG, PNG, TIFF.

;Returns 1 on success, 0 if failed.

;Cannot save to the same file from which FromFile'ed.

str s1.GetFilenameExt(imageFile)

sel(s1) case "jpg" s1="jpeg"; case "tif" s1="tiff"

s1-"image/"

GUID clsEncoder

if(!__GdipGetEncoderClsid(s1 clsEncoder)) ret

_hresult=GDIP.GdipSaveImageToFile(m_i @s1.expandpath(imageFile) &clsEncoder &p)

ret !_hresult

and last one : how to copy a jpeg GdipBitmap to clipboard?

***Gintaras*** · 11-13-2013, 01:13 PM

Get bitmap handle, and SetClipboardData(CF_BITMAP

ldarrambide · 11-13-2013, 01:20 PM

Macro Macro29

Code: Copy      Help
#compile "__Gdip"

GdipBitmap t_im t_out

GDIP.EncoderParameters p

p.Count=1

memcpy &p.Parameter[0].Guid GDIP.EncoderQuality sizeof(GUID)

p.Parameter[0].Type=GDIP.EncoderParameterValueTypeLong

p.Parameter[0].NumberOfValues=1

int quality=100

p.Parameter[0].Value=&quality

OpenClipboard(0)

t_im.FromHBITMAP(GetClipboardData(CF_BITMAP))

CloseClipboard

if(!t_im) out "failed to get bitmap from clipboard"

__MemBmp mb.Create(300 300)

t_im.DrawResize(mb.dc 0 0 300 300 0)

;**************************************

;**************************************

t_out.FromHBITMAP(mb.bm)

_i=t_out.GetHBITMAP

EmptyClipboard

SetClipboardData(CF_BITMAP _i)

t_out.Save2("q:\g.jpg" &p)

i'm struggling with that for a moment now, but this code pastes original image to clipboard (t_im),
not the resized one (t_out).

Grrrr.....

***Gintaras*** · 11-13-2013, 01:25 PM

open/close clipboard

ldarrambide · 11-13-2013, 01:33 PM

Macro Macro29

Code: Copy      Help
#compile "__Gdip"

GdipBitmap t_im t_out

GDIP.EncoderParameters p

p.Count=1

memcpy &p.Parameter[0].Guid GDIP.EncoderQuality sizeof(GUID)

p.Parameter[0].Type=GDIP.EncoderParameterValueTypeLong

p.Parameter[0].NumberOfValues=1

int quality=100

p.Parameter[0].Value=&quality

OpenClipboard(0)

t_im.FromHBITMAP(GetClipboardData(CF_BITMAP))

CloseClipboard

if(!t_im) out "failed to get bitmap from clipboard"

__MemBmp mb.Create(300 300)

t_im.DrawResize(mb.dc 0 0 300 300 0)

OpenClipboard(0)

t_out.FromHBITMAP(mb.bm)

_i=t_out.GetHBITMAP

SetClipboardData(CF_BITMAP _i)

CloseClipboard

sorry for being so stupid, but still copies the big original image, not the resized (300x300) one....

***Gintaras*** · 11-13-2013, 01:39 PM

EmptyClipboard

ldarrambide · 11-13-2013, 01:48 PM

Macro Macro29

Code: Copy      Help
OpenClipboard(_hwndqm)

t_im.FromHBITMAP(GetClipboardData(CF_BITMAP))

CloseClipboard

EmptyClipboard

if(!t_im) out "failed to get bitmap from clipboard"

__MemBmp mb.Create(300 300)

t_im.DrawResize(mb.dc 0 0 300 300 0)

EmptyClipboard

OpenClipboard(_hwndqm)

t_out.FromHBITMAP(mb.bm)

_i=t_out.GetHBITMAP

SetClipboardData(CF_BITMAP _i)

CloseClipboard

same thing, no change

but

Macro Macro29

Code: Copy      Help
GDIP.EncoderParameters p

p.Count=1

memcpy &p.Parameter[0].Guid GDIP.EncoderQuality sizeof(GUID)

p.Parameter[0].Type=GDIP.EncoderParameterValueTypeLong

p.Parameter[0].NumberOfValues=1

int quality=100

p.Parameter[0].Value=&quality

OpenClipboard(_hwndqm)

t_im.FromHBITMAP(GetClipboardData(CF_BITMAP))

CloseClipboard

EmptyClipboard

if(!t_im) out "failed to get bitmap from clipboard"

__MemBmp mb.Create(300 300)

t_im.DrawResize(mb.dc 0 0 300 300 0)

EmptyClipboard

OpenClipboard(_hwndqm)

t_out.FromHBITMAP(mb.bm)

EmptyClipboard; SetClipboardData(CF_BITMAP mb.Detach); CloseClipboard

t_out.Save2("q:\g.jpg" &p)

is a success, i can't see why.......I was supposed to paste t_out not mb..

ldarrambide · 11-13-2013, 02:06 PM

ok, it works great now, i just need a little explanation (if you can)

Code: Copy      Help
int quality=100

p.Parameter[0].Value=&quality

Code: Copy      Help
t_im.DrawResize(mb.dc 0 0 300 300 7)

both parameters to best values for quality.

jpg saved to file=114ko
image pasted from clipboard=27ko

Do you know why?

***Gintaras*** · 11-13-2013, 08:36 PM

No. Try some other graphics library, eg GflAx.

ldarrambide · 11-14-2013, 12:43 AM

Nope, the purpose of all that fuss was about doing all from QM without external libraries.

Anyway, i tweaked your code so i could achieve that goal, except that it involves a temporary
file saved to disk, deleted when job's done. I would have loved to do all in memory but
my low skills/QM limitations prevent me to do so.

Anyway, with my high end laptop, it's perfectly bearable and smooth.
Tha day lost in coding and asking for help will save me hours of manual procedures and
is valuable and worthy.

Thanks again for your patience and time Gintaras.

I'll be back soon with new stuff to deal with.....