51Testing软件测试论坛

标题: QTP--VBS批量处理图片文件 [打印本页]

作者: fei.ge 时间: 2009-12-8 17:59
标题: QTP--VBS批量处理图片文件
用数码相机拍了一些照片，放到手机上发现由于太大手机无法识别。
以前看过大虾用aspJpeg组件操作过图片，就想到通过同样的方法VBS批量缩小下图片！

==============================================================================================
'图片的高度和宽度修改成原来的1/10
Function update_picture(filename,newfilename)

Dim Jpeg

Set Jpeg=CreateObject("Persits.Jpeg")
Jpeg.Open filename
Jpeg.Width =Jpeg.OriginalWidth/10
Jpeg.Height =Jpeg.OriginalHeight /10

Jpeg.Save newfilename
Jpeg.Close
Set Jpeg=Nothing

End Function
'

Dim fs,fo,x
Dim str1,str2,filename,newfilename

str1 = "G:\1\"
str2 = "G:\2\"
set fs=CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(str1)

'遍历文件夹str1中的所有文件
For each x in fo.files
filename =str1 & x.Name
newfilename = str2 & x.Name
call update_picture(filename,newfilename)
next
set fo=nothing
set fs=nothing
==============================================================================================

作者: zero0223 时间: 2009-12-9 09:01
顶下~

作者: lijinshui 时间: 2009-12-9 09:33
关于aspjpeg
简单安装方式的话，直接将aspjpeg.dll复制到windows/system32目录下面，在“开始”，“运行”处输入“regsvr32 aspjpeg.dll” 注册即可！
aspjpeg.dll下载地址：http://www.const.net.cn/userfiles/AspJpeg.rar
重启IIS即可使用，注册使用

Set jpg = Server.CreateObject("Persits.Jpeg")
jpg.RegKey = "48958-77556-02411"

查看是否注册成功使用:
Set jpg = Server.CreateObject("Persits.Jpeg")
response.write jpg.expires

如果注册成功了，会显示过期时间为:9999-9-9。

COPY FROM: [http://www.const.net.cn/]

作者: vikesgao 时间: 2010-10-9 11:15
不错，学习了

作者: sspku 时间: 2010-10-9 17:06
Set Jpeg=CreateObject("Persits.Jpeg")

折行代码运行不了呢，报不能创建对象

作者: lyscser 时间: 2010-10-9 21:54
Set Jpeg=CreateObject("Persits.Jpeg")
Set TDConn = CreateObject("TDApiOle80.TDConnection.1")
这样的对象定义有没有帮助文档可以指引呢？全靠baidu和摸索好球烦哦

作者: sspku 时间: 2010-10-10 12:36

Set Jpeg=CreateObject("ersits.Jpeg")
Set TDConn = CreateObject("TDApiOle80.TDConnection.1")
这样的 ...
lyscser 发表于 2010-10-9 21:54

同问，哪里有手册

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)