2024年1月15日发(作者：)

VFP实现图片格式转换

图片格式转换，仅限于BMP、JPG、GIF、TIF、PNG之间的转换，如果要加入

其他格式请自行添加lqEncoderClsID即可。

Function saveimage2(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 String cFile, Long

@ nativeImage

DECLARE Long GdipSaveImageToFile IN Long nativeImage,

String cFile, ;

String EncoderClsID, String EncoderParameters DECLARE Long

GdipDisposeImage IN 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

Endfunc