51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

测试开发精英班,通向高级软件测试工程师论坛测试积点免费获取渠道攻略【长期招募】博为峰网校招聘兼职讲师!横扫BAT,Python全栈测试开发技能大全
【110期】:备战求职招聘,一起聊聊面试那些事儿!2020不玩虚的,先来一波技术PK! 【征稿】疫情当下手头紧?这波投稿补贴很及时! 自学软件测试那点事
查看: 2684|回复: 6

[原创] QTP--VBS批量处理图片文件

[复制链接]
  • TA的每日心情
    难过
    2015-9-21 13:50
  • 签到天数: 4 天

    连续签到: 1 天

    [LV.2]测试排长

    发表于 2009-12-8 17:59:52 | 显示全部楼层 |阅读模式
    用数码相机拍了一些照片,放到手机上发现由于太大手机无法识别。
    以前看过大虾用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
    ==============================================================================================
    回复

    使用道具 举报

    该用户从未签到

    发表于 2009-12-9 09:01:57 | 显示全部楼层
    顶下~
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2009-12-9 09:33:59 | 显示全部楼层
    关于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/]
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2010-10-9 11:15:45 | 显示全部楼层
    不错,学习了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2010-10-9 17:06:01 | 显示全部楼层
    Set Jpeg=CreateObject("Persits.Jpeg")

    折行代码运行不了呢,报不能创建对象
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2010-10-9 21:54:28 | 显示全部楼层
    Set Jpeg=CreateObject("Persits.Jpeg")
    Set TDConn = CreateObject("TDApiOle80.TDConnection.1")
    这样的对象定义有没有帮助文档可以指引呢?全靠baidu和摸索好球烦哦
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2010-10-10 12:36:47 | 显示全部楼层
    Set Jpeg=CreateObject("ersits.Jpeg")
    Set TDConn = CreateObject("TDApiOle80.TDConnection.1")
    这样的 ...
    lyscser 发表于 2010-10-9 21:54



       同问,哪里有手册
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /2 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2020-2-25 20:50 , Processed in 0.066963 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2020 Comsenz Inc.

    快速回复 返回顶部 返回列表