BMP 转JPG 的代码

其它问题 | 2015-10-29 14:32:01 | 975次阅读 | 0评
DECLARE INTEGER GdipLoadImageFromFile IN Gdiplus.dll STRING, INTEGER @
DECLARE INTEGER GdipSaveImageToFile IN Gdiplus.dll INTEGER, STRING, STRING, INTEGER
DECLARE INTEGER GdipDisposeImage IN Gdiplus.dll INTEGER

lcBMPFile = GETPICT("BMP")
lcJPGFile = FORCEEXT(lcBMPFile,"JPG")
lnImage =0
=GdipLoadImageFromFile(STRCONV(lcBMPFile + CHR(0),5),@lnImage)
=GdipSaveImageToFile(lnImage, STRCONV(lcJPGFile + CHR(0),5), 0h01F47C55041AD3119A730000F81EF32E,0)
=GdipDisposeImage(lnImage)
博友评论,共0条
浏览156264次