BMP 转JPG 的代码

其它问题 | 2015-10-29 14:32:01 | 阅读 1391 次 | 评论(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条
游客请输入验证码
浏览208745次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...