Re: Screencapture.prg -- converting the clipboard image to a file ondisk?

Author: cchvfp

Posted: 2007-06-01 at 09:20:50

For this specific need, the files

> Source\Drawing.vct

> Source\Drawing.vcx

> Source\System.vcx

> Source\System.vct

Probably will make it work.

But the header files (*.h) are still needed !

Hope this helps

Cesar Chalom

> Hi Michael,

>

> few lines of code to do the full job using the GdiPlusX library!

>

> http://www.codeplex.com/VFPX/Release/ProjectReleases.aspx?ReleaseId=1711

>

> Download the zip at the link, extract only

> Source\Drawing.vct

> Source\Drawing.vcx

> Source\Drawing2D.vct

> Source\Drawing2d.vcx

> Source\Imaging.vct

> Source\Imaging.vcx

> Source\System.vcx

> Source\System.vct

> Source\Text.vct

> Source\Text.vcx

>

> Then run the following code to capture the screen in a file:

>

>

>

> local loGdiPlusX

> loGdiPlusX = newobject("xfcSystem", "system.vcx")

>

> local loBmp as xfcBitmap

> loBmp = loGdiPlusX.Drawing.Bitmap.FromScreen()

>

> loBmp.Save("ScreenCapture.jpg", loGdiPlusX.Drawing.Imaging.ImageFormat.Jpeg)

>

>

>

> you can also use this syntax to capture the current form

> loBmp = loGdiPlusX.Drawing.Bitmap.FromScreen(Thisform)

>

> or this syntax to capture the vfp screen area

> loBmp = loGdiPlusX.Drawing.Bitmap.FromScreen(_screen)

>

> Then when less "under pressure" take a look at the full contenent of the GdiPlusX zip,

> it contains a project full of runnable samples.

>

> Gianni

>

> ----- Original Message -----

> From: MB Software Solutions

> To: profoxtech@leafe.com

> Sent: Thu, 31 May 2007 14:19:35 -0400

> Subject: Re: Screencapture.prg -- converting the clipboard image to a file on disk?

>

> >Matthew Jarvis wrote:

> >> Sorry, but what I have doesn't do what you are looking for...

> >>

> >

> >Well, I suppose I could run Stuart's code, have it launch MSPaint with a

> >RUN command (that should be on every system, right?), save that to a

> >file with some purposeful or perhaps random name in a temp folder, then

> >pop up a form for the user to enter comments into an editbox, then usign

> >blat to email both the comments and file back to me.

> >

> >Whew! Now...to put that plan into action.

>

>

[excessive quoting removed by server]

©2007 cchvfp