copying a bit of the screen

Hiya Coders

I use BlitzPlus as, among other things, a scripting utility.
I make routines to create webpages ind index files - all sorts of stuff.

One indispensible script is for resizing images for web content.
My method for this is to show the image on screen at the size I want and then capture that screen area. I process directories of images at a time.

My problem is that the resized images can only be saved by BlitzPlus as .bmp files. I need them to be .jpg files.

Can anyone tell me how to save the shots as .jpg file?

Thank you for your kind attention (-_-)

And example script:

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; ResizeByWidth.bp
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Global csd
Global file$, bmp$
Global pic, ok, x#, d#
Global sorc$, dest$
Global xres=GadgetWidth(Desktop())
Global yres=GadgetHeight(Desktop())

Graphics xres, yres,16,0
SetBuffer BackBuffer()

sorc$="big/"
dest$="small/"

csd=ReadDir(sorc$)
Repeat
file$=NextFile$(csd)
If Len(file$)>5
bmp$=Left$(file$,Len(file$)-3)+"bmp"
pic=LoadImage(sorc$+file$)
x# = ImageWidth(pic)
d# = 150.0/x#
ScaleImage pic, d#, d#
Cls
DrawImage pic, 0,0
Flip
Delay 200
ok=SaveImage (pic,dest$+bmp$)
FreeImage(pic)
EndIf
Until file$=""

End

This thread should help:

http://blitzmax.com/Community/posts.php?topic=71437#798850

If you get Freeimage and look for the declares in the code archive, you should be set.