作者在 2015-10-29 14:32:01 发布以下内容
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)
