51Testing软件测试论坛

标题: qtp怎么检查一张动态显示的图片是否显示正常，而不是叉叉 [打印本页]
作者: qishenye    时间: 2008-9-9 10:41
标题: qtp怎么检查一张动态显示的图片是否显示正常，而不是叉叉
大家好！
    我有个检查一个页面显示是否正常的脚本，里面有一小区域是一些动态显示的用户头像图片，我想检查这个区域所有的图片都显示正常，没有出现红叉叉图片显示不出来的情况。但是，想了下，使用qtp的标准图片检查点是行不通的，应该每个头像随着用户进行的动作在更新着，头像取得是最近有动作行为的12个用户，所以，我不知道怎么检查这些头像图片都显示ok，没有叉叉的情况。
    如果哪位知道的话，麻烦帮个忙，先谢谢了!
作者: lingxin5013    时间: 2008-9-9 14:24
那就检查有没有XX 就是了 !
作者: 假装不在    时间: 2008-9-9 15:18
有2个方法：
1，图片的complete属性。
2，图片的fileSize的大小，加载失败的是0。
你可以44看。
关于楼上说的，检查有没有XX，这个我还没办法做到，望楼上来个代码段瞧瞧。
学习学习
作者: wangdongting    时间: 2008-9-9 16:08
标题: 回复 3# 的帖子
能不能把你的方法详细说一下，我不是很明白。谢谢啊
作者: rcpp    时间: 2008-9-9 17:26
假胸的意思是用run-time property
所用的complete、fileSize两个属性都是
获得img对象的属性自己来比较
sComplete=Browser().Page().Img().Object.complete
sFileSize=Browser().Page().Img().Object.fileSize
当图片叉叉的时候complete属性应该是false的，fileSize属性大概是-1吧；正常显示complete属性是true，fileSize属性是大于0的
作者: qishenye    时间: 2008-9-10 15:00
谢谢各位的帮忙，太感谢了，我马上用这个方法去尝试下
作者: amyfind    时间: 2008-9-15 20:59
学习了，不错
作者: qiuqiu0624    时间: 2009-8-17 23:24
感谢(*^__^*) 嘻嘻……
作者: blueeagle9999    时间: 2009-8-18 09:43
图片的fileSize的大小，加载失败的是0。


加载失败的好像是-1
作者: kickgod    时间: 2010-3-15 16:17
thanks !!!!!!!!!!
作者: xc520    时间: 2010-3-15 19:16
学习了~
赞个~
作者: luxiuxiu1987    时间: 2010-9-20 09:58
学习了，马上试试去~
作者: 026300    时间: 2012-7-26 16:13
回复 5# rcpp

有谁知道这两个属性是怎么设置才能得到吗？我看了看spy出来的image属性中，没有这两个
作者: AntonioNikki    时间: 2012-7-27 15:02
在Native 里面 不是Test Object
作者: AntonioNikki    时间: 2012-7-27 15:03
回复 14# 026300

在native里面
作者: 测试工坊    时间: 2012-7-29 14:27
这时我上个项目写的一段代码用来检查网页中所有图片是否可达。
  1. Function CheckImages()
  2.         ErrorCount = 0
  3.         Set Objects = myPage.Object.GetElementsByTagName("IMG")

  5.         For Each obj in Objects
  6.                 If instr("gif | png | jpg", right(obj.src,3)) >= 1 Then
  7.                         ErrorCount = ErrorCount + geturlstatus(obj.src)
  8.                 End If
  9.         Next

  11.         Set Objects = myPage.Object.GetElementsByTagName("A")

  13.         For Each obj in Objects
  14.                 str = obj.currentstyle.backgroundimage
  15.                 If str <> "none" Then
  16.                         str = replace(str,left(str,5),"")
  17.                         str = replace(str,right(str,2),"")
  18.                         ErrorCount = ErrorCount + geturlstatus(str)
  19.                 End If
  20.         Next

  22.         If  int(ErrorCount) = 0 Then
  23.                 CheckImages = "Passed"
  24.         Else
  25.                 CheckImages = "Failed("&ErrorCount&")"
  26.         End If

  28. End Function
复制代码
  1. Public Function GetUrlStatus(url)
  2.         On Error Resume Next
  3.         Set webService = nothing
  4.         Set webService= CreateObject("Microsoft.XMLHTTP")
  5.         webService.open "GET", url, False
  6.         webService.Send
  7.         pagestatus = webService.status
  8.         If pagestatus < 200 or pagestatus >399 Then
  9.         print "The link ["&url&"] is not accessible with error: "& pagestatus
  10.         geturlstatus = 1
  11.         else
  12.         Print "Checking: " & url
  13.         geturlstatus = 0
  14.         'print "valid request "& pagestatus &" " & url
  15.         End If
  16.         Set webService = nothing
  17.         err.clear
  18. End Function
复制代码
作者: louqqson008    时间: 2012-7-30 09:23
不错 先留名



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2