BMP 转JPG 的代码

其它问题 | 2015-10-29 14:32:01 | 阅读 1333 次 | 评论(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条
游客请输入验证码
浏览192885次
最新评论