Screen Capture/JPG/BMP/Wallpaper

I've recieved permission from James Khan to post this information and redistribute his dll. The major features, described in more detail below, are:

Capture window or screen image into a bitmap file

Capture window or screen image into a bitmap file and specify an area of screen/window to save

Convert a bmp file to a jpg file

Convert a jpg file to a bmp file

Get a dimensions of a bitmap

Get a dimensions of a jpeg file

For additional sample code, please refer to Thread184-769626.

Thanks to TeknoSDS, you can currently download from:
ftp://tek-tips:tek-tips@69.14.191.20/tek-tips/pct_dll/pct_dll.zip

or

http://www.vfug.org/files/pct_dll.zip

My addition is code that works with James' dll to set the Windows Desktop Wallpaper using JPGs converted to BMPs on the fly:

lcWallpaper="C:\Documents and Settings\brian\My Documents\My Pictures\Img_0011.jpg"

Declare Integer tobmp IN "PCT_DLL.dll" ;
String jpgfilename, String bmpfilename

retval = tobmp(lcWallpaper,JUSTPATH(lcWallpaper)+"\"+JUSTSTEM(lcWallpaper)+".bmp")

lcWallpaper=JUSTPATH(lcWallpaper)+"\"+JUSTSTEM(lcWallpaper)+".bmp"

DO JpgWallPaper WITH lcWallpaper

PROCEDURE JpgWallPaper
PARAMETERS lcWallpaper
DECLARE INTEGER SystemParametersInfo IN WIN32API ;
INTEGER uiAction, INTEGER uiParam,;
STRING @pvParam, INTEGER fWinIni

SystemParametersInfo (20 , 0, @lcWallpaper, 3)

Brian

====================================================================================================
From James Khan:

Last year, I've spend a lot of time to develop a picture treatment dll, there are 6 functions in this dll,
they are:

1 formtobmp
2 formtobmpA
3 tojpeg
4 tobmp
5 getbmpdimension
6 getjpgdimension

Anybody who needs the (C++) source code of this dll, please email to njjane@21cn.com

James Khan
njjane@21cn.com
http://www.myf1.net/foxcryptor/
====================================================================================================

Important : To use PCT_DLL.dll, you must put it to your system directory or current directory!!!

--------------------------------------------------------------------------------
1 formtobmp
--------------------------------------------------------------------------------
Description:
Capture window or screen image into a bitmap file

Declaration:
Declare Integer formtobmp IN "PCT_DLL.dll" ;
integer hwnd,String bmpFileName

Parameters:
hwnd
Handle to the window to be saves to a bitmap file. If this parameter is zero, then saves desktop to a bitmap file.

bmpFileName
The bitmap filename to be save. Must include full path name.

Note:
The function returns a zero result on success,else 1 is returned.

Example in Visual FoxPro:

retVal = formtobmp(0,"c:\screen.bmp") && Save screen to file c:\screen.bmp
if retval = 0 && if success
messagebox("Capture screen ok! bmp file has been saved to file c:\screen.bmp")
endif

--------------------------------------------------------------------------------
2 formtobmpA
--------------------------------------------------------------------------------
Description:
Capture window or screen image into a bitmap file and specify an area of screen/window to save.

Declareation:
Declare Integer formtobmpA IN "PCT_DLL.dll" ;
string bmpfilename,integer nX,integer nY,integer nX2,integer nY2

Parameters:
bmpFileName
The bitmap filename to be save. must include full path name.
nX
x-coord of upper-left corner of bitmap file
nX2
x-coord of lower-right corner of bitmap file
nY
y-coord of upper-left corner of bitmap file
nY2
y-coord of lower-right corner of bitmap file

Note:
The function returns a zero result on success,else 1 is returned.

Example in Visual FoxPro:

retVal = formtobmpA("c:\screen0.bmp",20,20,400,400) && Save screen to file c:\screen.bmp
if retval = 0
messagebox("Capture screen ok!")
else
messagebox("Failure!")
endif

--------------------------------------------------------------------------------
3 tojpeg
--------------------------------------------------------------------------------
Description:
Convert a bmp file to a jpg file

Declaration:
Declare Integer tojpeg IN "PCT_DLL.dll" ;
String bmpfilename, String jpgfilename

Parameters:
bmpfilename
BMP filename to be convert.
jpgfilename
JPEG filename

Note:
The function returns a zero result on success, else 1 is returned.

Example in Visual FoxPro:

retval = tojpeg("c:\screen.bmp","c:\screen.jpg") && Convert c:\screen.bmp to c:\screen.jpg

if retval = 0
messagebox("Convert bitmap to jpeg ok!")
else
messagebox("Failure!")
endif

--------------------------------------------------------------------------------
4 tobmp
--------------------------------------------------------------------------------
Description:
Convert a jpg file to a bmp file

Declaration:
Declare Integer tobmp IN "PCT_DLL.dll" ;
String jpgfilename, String bmpfilename

Parameters:
jpgfilename
JPEG filename to be convert.
bmpfilename
BMP filename

Note:
The function returns a zero result on success, else 1 is returned.

Example in Visual FoxPro:

retval = tobmp("c:\screen.jpg","c:\screen2.bmp") && Convert c:\screen.jpg to c:\screen2.bmp
if retval = 0
messagebox("Convert jpeg to bitmap success!")
else
messagebox("Failure!")
endif

--------------------------------------------------------------------------------
5 getbmpdimension
--------------------------------------------------------------------------------
Description:
Get a dimensions of a bitmap

Declaration:
Declare Integer getbmpdimension IN "PCT_DLL.dll" ;
string bmpfilename, integer @ nwidth,integer @ nheight

Parameters:
bmpfilename
origin bitmap filename.

nwidth
bitmap's width measured in pixels.

nheight
bitmap's height measured in pixels.

Note:
if success, return value 0, else return 1.
if success, variable nwidth hold the bitmap's width ,variable nheight hold the bitmap's height.

Example in Visual FoxPro:

nwidth=0
nheight=0
retval = getbmpdimension("c:\screen.bmp",@ nwidth, @ nheight)
if retval = 0
messagebox("Width:"+str(nwidth)+chr(13)+"Height:"+str(nheight))
else
messagebox("Failure!")
endif

--------------------------------------------------------------------------------
6 getjpgdimension
--------------------------------------------------------------------------------
Description:
Get a dimensions of a jpeg file

Declaration:
Declare Integer getjpgdimension IN "PCT_DLL.dll" ;
string jpgfilename, integer @ nwidth,integer @ nheight

Parameters:
jpgfilename
origin jpeg filename.

nwidth
jpeg's width measured in pixels.

nheight
jpeg's height measured in pixels.

Note:
if success, return value 0, else return 1.
if success, variable nwidth hold the jpeg's width ,variable nheight hold the jpeg's height.

Example in Visual FoxPro:

nwidth=0
nheight=0
retval = getjpgdimension("c:\screen.jpg",@ nwidth, @ nheight)
if retval = 0
messagebox("Width:"+str(nwidth)+chr(13)+"Height:"+str(nheight))
endif

clear dlls