本站首页    管理页面    写新日志    退出


«October 2019»
12345
6789101112
13141516171819
20212223242526
2728293031


公告
暂无公告...

我的分类(专题)

日志更新

最新评论

留言板

链接


Blog信息
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:384106
建立时间:2005年5月12日




[编程及数据库]VFP9利用_GdiPlus类处理图片分辨率及缩放
原创空间,  随笔,  心得体会,  事件记录,  软件技术,  电脑与网络

老瓷 发表于 2015-2-7 14:39:14

Local lcFile_S, lcFile_T, lnW_T, lnH_T, lnXDpi_T, lnYDpi_T m.lcFile_S = 'D:\Temp\Source.jpg'm.lcFile_T = 'D:\Temp\Target.jpg' m.lnW_T = 160       && 目标图宽、高度m.lnH_T = 240m.lnXDpi_T = 72     && 目标图分辨率m.lnYDpi_T = 72 Set Classlib To "_GDIPlus.Vcx" Additive oGraphics=CreateObject("gpGraphics")      && 创建工作图像 oImage=CreateObject("gpImage")            && 源图oImage.CreateFromFile(m.lcFile_S)         && 从源图创建m.lnW = oImage.ImageWidth                 && 宽m.lnH = oImage.ImageHeight                && 高m.lnXDpi = oImage.HorizontalResolution    && 水平分辨率m.lnYDpi = oImage.VerticalResolution      && 垂直分辨率 oBitMap=CreateObject("gpBitMap")          && 目标图oBitMap.Create(m.lnW_T, m.lnH_T)          && 按目标图大小创建 oGraphics.CreateFromImage(oBitMap)               && 工作图像按目标图建立oBitMap.SetResolution(m.lnXDpi_T, m.lnYDpi_T)    && 设置目标图分辨率 oGraphics.DrawImageScaled(oImage, 0, 0, m.lnW_T, m.lnH_T)    && 源图按指定矩形区域缩放 m.lnQuality = 90  && 100                  && 图片保存质量oBitMap.SaveToFile(m.lcFile_T, oImage.GetEncoderCLSID("image/jpeg"), "quality="+Transform(m.lnQuality))    && 按源文件类型保存至目标文件 Release oBitMap    && 释放Release oImageRelease oGraphics Release Classlib _GdiPlus


阅读全文(2157) | 回复(0) | 编辑 | 精华
 



发表评论:
昵称:
密码:
主页:
标题:
验证码:  (不区分大小写,请仔细填写,输错需重写评论内容!)



站点首页 | 联系我们 | 博客注册 | 博客登陆

Sponsored By W3CHINA
W3CHINA Blog 0.8 Processed in 0.031 second(s), page refreshed 144322927 times.
《全国人大常委会关于维护互联网安全的决定》  《计算机信息网络国际联网安全保护管理办法》
苏ICP备05006046号