作者:孙栋
(此文档介绍了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
这个应该是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

代码:
obj.isCompress
= True
obj.Jpg_Scale = 70
X =
obj.Change_Pic_Size(imgSourcePath, imgOutPath, 320, 240)
70%压缩比缩小图片后:宽:320 高:240 大小:15K

代码:
X = obj.Change_Pic_bright(imgSourcePath, 50, imgOutPath)
X = obj.Change_Pic_bright(imgSourcePath, -50, imgOutPath)
处理后
|
原始图 |
|
|
增加亮度 |
|
|
降低亮度 |
|
|
原始图 |
|
|
增加饱和度效果 |
|
|
降低饱和度效果 |
|
|
原始图 |
|
|
增加对比度效果 |
|
|
降低对比度效果 |
|
代码:
X = obj.Change_Pic_colortoblackwhite(imgSourcePath,
imgOutPath)
处理后:

代码:
X = obj.Change_Pic_ice(imgSourcePath, imgOutPath)
处理后:

代码:
X = obj.Change_Pic_difuse(imgSourcePath, imgOutPath)
处理后:

代码:
X = obj. Change_Pic_invert (imgSourcePath, imgOutPath)
处理后:

代码:
X = obj.Change_Pic_blur(imgSourcePath, imgOutPath)
处理后:

代码:
X = obj.Change_Pic_sharp(imgSourcePath, imgOutPath)
处理后:

代码:
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)
处理后:
|
|
|
|
|
|
代码:
X = obj.Change_Pic_emboss(imgSourcePath, imgOutPath)
处理后:

代码:
X = obj.Change_Pic_Dreamily(imgSourcePath, imgOutPath)
处理后:宽:320 高:240 大小:11K

处理后:



效果:

降噪效果和柔化镜不同,降噪是根据动态计算对杂色的点进行修复,下边看下我的降噪算法和
neatimage专业降噪软件的区别

|
90度旋转 |
水平180度翻转 |
垂直180度翻转 |
|
|
|
|
|
原始图 |
|
|
左边镜像 |
|
|
右边镜像 |
|
|
上边镜像 |
|
|
下边镜像 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
…省略 |
||||
代码:
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)
处理后:

代码:
addLeft = 90
addTop = 3
X = obj.Change_Pic_Cut(imgSourcePath, addLeft, addTop, 140,
180, imgOutPath)
看看裁减出来后添加边框的效果

商标图片:

代码:
X = obj.Add_Picture_Logo(imgSourcePath, imgAddPath, addLeft,
addTop, imgOutPath)
处理后:

代码:
obj.getexif()
代码:
Str1
= "按D键射门的时候,屏幕下方会出现一个" & vbCrLf & "力量条,力量条会随着你按D键的时间增长而逐渐充满,适当的时候你就可以放开D键射门了。但是要注意,不要让力量条完全充满变成红色,力量全满只会导致球员大脚把球踢飞。另外,在对方禁区附近射门时要注意一定的提前量,因为积蓄力量条的过程有一定延迟时间,这时候很容易被对方防守队员将球断下;进入禁区后也要注意射门键的蓄力问题,避免被对方守门员扑你的脚下球。"
X =
obj.Change_Txt_toPic(Str1, "c:\aaa.jpg", 9, 200, 44, 110, 44)
处理后:
