Windows Image Acquisition (WIA) 的用法

一、旋转翻转过滤器：旋转图片

Dim Img 'As ImageFile
Dim IP 'As ImageProcessSet Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"IP.Filters.Add IP.FilterInfos("RotateFlip").FilterID
IP.Filters(1).Properties("RotationAngle") = 90Set Img = IP.Apply(Img)Img.SaveFile "C:\WINDOWS\Web\Wallpaper\Bliss90.bmp"

二、裁剪滤镜：裁剪图片

Dim Img 'As ImageFile
Dim IP 'As ImageProcessSet Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"IP.Filters.Add IP.FilterInfos("Crop").FilterID
IP.Filters(1).Properties("Left") = Img.Width \ 4
IP.Filters(1).Properties("Top") = Img.Height \ 4
IP.Filters(1).Properties("Right") = Img.Width \ 4
IP.Filters(1).Properties("Bottom") = Img.Height \ 4Set Img = IP.Apply(Img)Img.SaveFile "C:\WINDOWS\Web\Wallpaper\BlissCrop.bmp"

三、缩放滤镜：调整图像的大小

Dim Img 'As ImageFile
Dim IP 'As ImageProcessSet Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = 100
IP.Filters(1).Properties("MaximumHeight") = 100Set Img = IP.Apply(Img)Img.SaveFile "C:\WINDOWS\Web\Wallpaper\BlissThumb.bmp"

四、邮票过滤器：邮票在另一个图片一个图片

Dim Thumb 'As ImageFile
Dim Img 'As ImageFile
Dim IP 'As ImageProcessSet Img = CreateObject("WIA.ImageFile")
Set Thumb = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"
Thumb.LoadFile "C:\WINDOWS\Web\Wallpaper\BlissThumb.bmp"IP.Filters.Add IP.FilterInfos("Stamp").FilterID
Set IP.Filters(1).Properties("ImageFile") = Thumb
IP.Filters(1).Properties("Left") = Img.Width - Thumb.Width
IP.Filters(1).Properties("Top") = Img.Height - Thumb.HeightSet Img = IP.Apply(Img)Img.SaveFile "C:\WINDOWS\Web\Wallpaper\BlissStamp.bmp"

五、EXIF过滤器：写一个新的标题标签图像

Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Dim v 'As VectorSet Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Set v = CreateObject("WIA.Vector")Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Autumn.jpg"IP.Filters.Add IP.FilterInfos("Exif").FilterID
IP.Filters(1).Properties("ID") = 40091
IP.Filters(1).Properties("Type") = VectorOfBytesImagePropertyType '此处的VectorOfBytesImagePropertyType值应改为：1101v.SetFromString "This Title tag written by Windows Image Acquisition Library v2.0"IP.Filters(1).Properties("Value") = vSet Img = IP.Apply(Img)Img.SaveFile "C:\WINDOWS\Web\Wallpaper\AutumnExif.jpg"

六、帧过滤器：创建一个多页TIFF三种图片

Dim Img 'As ImageFile
Dim Page2 'As ImageFile
Dim Page3 'As ImageFile
Dim IP 'As ImageProcess
Dim v 'As VectorSet Img = CreateObject("WIA.ImageFile")
Set Page2 = CreateObject("WIA.ImageFile")
Set Page3 = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"
Page2.LoadFile "C:\WINDOWS\Web\Wallpaper\Azul.jpg"
Page3.LoadFile "C:\WINDOWS\Web\Wallpaper\Autumn.jpg"IP.Filters.Add IP.FilterInfos("Frame").FilterID
Set IP.Filters(IP.Filters.Count).Properties("ImageFile") = Page2IP.Filters.Add IP.FilterInfos("Frame").FilterID
Set IP.Filters(IP.Filters.Count).Properties("ImageFile") = Page3IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(IP.Filters.Count).Properties("FormatID") = wiaFormatTIFFSet Img = IP.Apply(Img)Img.SaveFile "C:\WINDOWS\Web\Wallpaper\Bliss.tif"Img.ActiveFrame = Img.FrameCountSet v = Img.ARGBDataSet Img = v.ImageFile(Img.Width, Img.Height)Img.SaveFile "C:\WINDOWS\Web\Wallpaper\Autumn.bmp"

七、ARGB过滤器：创建一个修改版本的图片

Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Dim v 'As Vector
Dim i 'As LongSet Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"Set v = Img.ARGBDataFor i = 1 To v.Count Step 21v(i) = &HFFFF00FF 'opaque pink (A=255,R=255,G=0,B=255)
NextIP.Filters.Add IP.FilterInfos("ARGB").FilterID
Set IP.Filters(1).Properties("ARGBData") = vSet Img = IP.Apply(Img)Img.SaveFile "C:\WINDOWS\Web\Wallpaper\BlissARGB.bmp"

八、从另一个文件转换过滤器：创建一个压缩的JPEG文件

Dim Img 'As ImageFile
Dim IP 'As ImageProcessSet Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
IP.Filters(1).Properties("Quality").Value = 5Set Img = IP.Apply(Img)Img.SaveFile "C:\WINDOWS\Web\Wallpaper\BlissCompressed.jpg"

转自：http://technet.microsoft.com/zh-cn/ms630819(zh-cn,VS.85).aspx

Windows Image Acquisition (WIA) 的用法相关推荐

【C#】Windows Image Acquisition (WIA) 的用法
windows图像处理方法,参考链接: https://www.cnblogs.com/bjguanmu/articles/7559800.html 转载于:https://blog.51cto.co ...
打印机 WIA 无法停止服务，Windows无法停止Windows Image Acquisition（WIA)服务（位于本地计算机上）。
描仪相关的服务是Windows Image Acquisition (WIA),右击重启,出现1061错误,无法停止, 1.打开任务管理器 2.找到 stisvc,右键转到详细信息 3.结束该任务 ...
Windows Server 2008 WIA服务需要安装“桌面体验”
一般安装服务器,谁会想到要安装"桌面体验"呢?但是,恰恰是这个功能没有安装,导致Windows Image Acquisition(WIA)服务根本看不到,其实也就是系统没有安装W ...
Windows下的DNS命令用法
"Windows下DNS相关命令的用法." 在协议分析过程中,经常会遇到一种情况,一次对某域名抓包的过程中,抓到了某个域名的DNS请求,之后再抓包,却抓不到的情况. 这时候就需要D ...
Windows下批处理if exist用法的注意事项
作者:朱金灿来源:https://blog.csdn.net/clever101 今天发现Windows下批处理if exist和del用法比较坑爹. 主要表现在if exist的格式要求比较严格, ...
windows的一些装B用法
● 教你建一个别人打不开的文件夹 ● 只改一个值!马上加快宽带上网速度 ● 在电脑右下角显示你的名字 ● XP系统如何加快开机速度 ● 连接宽带时出错表示的意思 ● 恢复丢失数据的方法 ● ...
Windows Xp修复控制台详细用法
编者按: Windows XP(包括 Windows 2000)的控制台命令是在系统出现一些意外情况下的一种非常有效的诊断和测试以及恢复系统功能的工具.(当然大家可以在系统启动后按F8,插入XP系统光 ...
c语言调用Windows自定义消息,VC自定义消息postmessage用法（消息响应函数）
VC 自定义消息 postmessage用法 1. 在 resource.h文件添加如下代码定一个自己的消息 #define WM_MY_MESSAGE WM_USER + 100 //------ ...
Windows下Chcp命令的用法
引用: [u]http://www.eygle.com/digest/2006/11/windows_chcp_usage.html[/u] 顯示作用中主控台字碼頁的頁碼,或變更主控台的使用中字碼頁. ...

Windows Image Acquisition (WIA) 的用法

Windows Image Acquisition (WIA) 的用法相关推荐

最新文章

热门文章