IEPhotoshop图形处理组件
效果展示使用说明
作者:孙栋
(此文档介绍了IEPhotoshop系统使用的图形处理组件的功能和部分代码)
8.2获取数码相机的EXIF信息中的相机型号,光圈,快门数据
概述:
IEPhotoshop图形处理组件是运行在ms系统上的进行图像处理的图形处理COM组件
软件 环境: winnt4.0 win2000 win2003 xp
最小硬件环境: P2-300 128m内存
本组件可以被任意微软系统下桌面开发软件使用,和被ASP,ASP.NET程序调用再web系统下进行图形图像处理的应用.
具体效果介绍可以参考网站
英文网站
http://www.iephotoshop.com/default_english.asp
1 图像基本处理
1.1图像压缩效果
这个应该是web上用得最多的了，用于对用户上传的bmp,jpg,gif图像进行压缩
调用方法：compress_pic_true(ByVal imgSourcePath As String,
ByVal imgOutPath As String)
原图像：宽：640 高：480 大小：900K
代码：
obj.isCompress =
True ‘设置为处理过程中进行压缩
obj.Jpg_Scale = 70 ‘设置压缩比例为30
(1-100)
imgSourcePath =
"d:\1.JPG" ‘设置输入图片路径
imgOutPath =
"d:\2.jpg" ‘设置输出图片路径
x=obj.compress_pic_true
(imgSourcePath, imgOutPath)
（以上的属性在此组件任何处理都适用）
70%压缩比压缩后：宽：640 高：480 大小：38.9K
30%压缩比压缩后：宽：640 高：480 大小：21.2K
1.2缩放图片效果
代码：
obj.isCompress
= True
obj.Jpg_Scale = 70
X =
obj.Change_Pic_Size(imgSourcePath, imgOutPath, 320, 240)
70%压缩比缩小图片后：宽：320 高：240 大小：15K
1.3改变亮度
代码：
X = obj.Change_Pic_bright(imgSourcePath, 50, imgOutPath)
X = obj.Change_Pic_bright(imgSourcePath, -50, imgOutPath)
处理后
|
原始图 |
|
|
增加亮度 |
|
|
降低亮度 |
|
1.4改变饱和度
|
原始图 |
|
|
增加饱和度效果 |
|
|
降低饱和度效果 |
|
1.5改变对比度
|
原始图 |
|
|
增加对比度效果 |
|
|
降低对比度效果 |
|
2 图像滤静
2.2黑白照片滤镜
代码：
X = obj.Change_Pic_colortoblackwhite(imgSourcePath,
imgOutPath)
处理后：
2.3冰雪化（恐怖）效果
代码：
X = obj.Change_Pic_ice(imgSourcePath, imgOutPath)
处理后：
2.4毛玻璃化效果
代码：
X = obj.Change_Pic_difuse(imgSourcePath, imgOutPath)
处理后：
2.5颜色反转（底片）滤静
代码：
X = obj. Change_Pic_invert (imgSourcePath, imgOutPath)
处理后：
2.6柔化镜
代码：
X = obj.Change_Pic_blur(imgSourcePath, imgOutPath)
处理后：
2.7锐化镜
代码：
X = obj.Change_Pic_sharp(imgSourcePath, imgOutPath)
处理后：
2.8各色滤镜
代码：
X = obj.Change_pic_ColortoRed(imgSourcePath, imgOutPath)
X = obj.Change_pic_ColortoGreen (imgSourcePath, imgOutPath)
X = obj. Change_pic_ColortoOrange (imgSourcePath,
imgOutPath)
X = obj. Change_pic_ColortoYellow (imgSourcePath,
imgOutPath)
X = obj. Change_pic_ColortoPurple (imgSourcePath,
imgOutPath)
处理后：
|
|
|
|
|
|
2.9产生浮雕效果
代码：
X = obj.Change_Pic_emboss(imgSourcePath, imgOutPath)
处理后：
3 图像高级处理
3.1图象朦胧效果
代码：
X = obj.Change_Pic_Dreamily(imgSourcePath, imgOutPath)
处理后：宽：320 高：240 大小：11K
3.2报纸效果
处理后:
3.3 版画效果
3.3漫画效果
3.4怀旧滤静
效果:
3.5降噪(磨皮)效果
降噪效果和柔化镜不同,降噪是根据动态计算对杂色的点进行修复,下边看下我的降噪算法和
neatimage专业降噪软件的区别
4 旋转镜像
4.1旋转效果
|
90度旋转 |
水平180度翻转 |
垂直180度翻转 |
|
|
|
|
4.2镜像效果
|
原始图 |
|
|
左边镜像 |
|
|
右边镜像 |
|
|
上边镜像 |
|
|
下边镜像 |
|
|
|
|
5添加像框
5.1花样边框类型
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
…省略 |
||||
5.2花样边框效果
|
|
|
|
6 图象加文字效果
代码：
x =
obj.Change_Pic_AddTXT(imgSourcePath, "Dreamer", 95, "Monotype
Corsiva", 255, 255, 255, 40, 140, 0.8, imgOutPath)
x =
obj.Change_Pic_AddTXT(imgOutPath, "梦", 695, "宋体", 255, 0,
255, 10, 80, 0.2, imgOutPath)
处理后：
7 图片裁减
代码：
addLeft = 90
addTop = 3
X = obj.Change_Pic_Cut(imgSourcePath, addLeft, addTop, 140,
180, imgOutPath)
看看裁减出来后添加边框的效果
8 其他处理
8.1添加水印商标
商标图片：
代码：
X = obj.Add_Picture_Logo(imgSourcePath, imgAddPath, addLeft,
addTop, imgOutPath)
处理后：
8.2获取数码相机的EXIF信息中的相机型号,光圈,快门数据
代码：
obj.getexif()
8.3将大篇文字转为图片附加方法
代码：
Str1
= "按D键射门的时候，屏幕下方会出现一个" & vbCrLf & "力量条，力量条会随着你按D键的时间增长而逐渐充满，适当的时候你就可以放开D键射门了。但是要注意，不要让力量条完全充满变成红色，力量全满只会导致球员大脚把球踢飞。另外，在对方禁区附近射门时要注意一定的提前量，因为积蓄力量条的过程有一定延迟时间，这时候很容易被对方防守队员将球断下；进入禁区后也要注意射门键的蓄力问题，避免被对方守门员扑你的脚下球。"
X =
obj.Change_Txt_toPic(Str1, "c:\aaa.jpg", 9, 200, 44, 110, 44)
处理后：
