*!*图片格式转换，仅限于BMP、JPG、GIF、TIF、PNG之间的转换，如果要加入其他格式请自行添加lqEncoderClsID即可。
*!*    *******************************************
*!*    算法制作:行者孙(QQ:310727570)
*!*    *******************************************
*!*    VFP应用程式算法群
*!*    *******************************************
*****调用格式:SaveTOPic(被转换的原图型文件,转换后的图型文件)*****
*****************************************************************
FUNCTION SaveTOPic(openfile as String,savefile as string)
lqEncoderClsID_BMP=0h00F47C55041AD3119A730000F81EF32E &&BMP
lqEncoderClsID_JPG=0h01F47C55041AD3119A730000F81EF32E &&JPG
lqEncoderClsID_GIF=0h02F47C55041AD3119A730000F81EF32E &&GIF
lqEncoderClsID_TIF=0h05F47C55041AD3119A730000F81EF32E &&TIF
lqEncoderClsID_PNG=0h06F47C55041AD3119A730000F81EF32E &&PNG
DECLARE Long GdipLoadImageFromFile IN Gdiplus.dll String cFile, Long @ nativeImage
DECLARE Long GdipSaveImageToFile IN Gdiplus.dll Long nativeImage, String cFile, ;
         String EncoderClsID, String EncoderParameters
DECLARE Long GdipDisposeImage IN Gdiplus.dll Long nativeImage
lcInputFile=STRCONV(openfile+CHR(0),5)
lcOutputFile=STRCONV(savefile+CHR(0),5)
lnImage=0
GdipLoadImageFromFile(lcInputFile,@lnImage)
GdipSaveImageToFile(lnImage, lcOutputFile, EVALUATE('lqEncoderClsID_'+UPPER(JUSTEXT(savefile))), NULL)
GdipDisposeImage(lnImage)
ERASE (openfile)


我测试了几次把BMP转换成JPG,PNG都还可以,同时要还对图像文件进行了压缩处理的.自己认为可以,所以发上来供所有狐友共享.