qtp怎么检查一张动态显示的图片是否显示正常，而不是叉叉

qishenye

大家好！
    我有个检查一个页面显示是否正常的脚本，里面有一小区域是一些动态显示的用户头像图片，我想检查这个区域所有的图片都显示正常，没有出现红叉叉图片显示不出来的情况。但是，想了下，使用qtp的标准图片检查点是行不通的，应该每个头像随着用户进行的动作在更新着，头像取得是最近有动作行为的12个用户，所以，我不知道怎么检查这些头像图片都显示ok，没有叉叉的情况。
    如果哪位知道的话，麻烦帮个忙，先谢谢了!

lingxin5013

那就检查有没有XX 就是了 !

假装不在

有2个方法：
1，图片的complete属性。
2，图片的fileSize的大小，加载失败的是0。
你可以44看。
关于楼上说的，检查有没有XX，这个我还没办法做到，望楼上来个代码段瞧瞧。
学习学习

wangdongting

能不能把你的方法详细说一下，我不是很明白。谢谢啊

rcpp

假胸的意思是用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

谢谢各位的帮忙，太感谢了，我马上用这个方法去尝试下

amyfind

学习了，不错

qiuqiu0624

感谢(*^__^*) 嘻嘻……

blueeagle9999

图片的fileSize的大小，加载失败的是0。


加载失败的好像是-1

kickgod

thanks !!!!!!!!!!

xc520

学习了~
赞个~

luxiuxiu1987

学习了，马上试试去~

026300

回复 5# rcpp

有谁知道这两个属性是怎么设置才能得到吗？我看了看spy出来的image属性中，没有这两个

AntonioNikki

在Native 里面 不是Test Object

AntonioNikki

回复 14# 026300

在native里面

测试工坊

这时我上个项目写的一段代码用来检查网页中所有图片是否可达。

1. Function CheckImages()
   
2.         ErrorCount = 0
   
3.         Set Objects = myPage.Object.GetElementsByTagName("IMG")
   
4. 
   
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
   
10. 
    
11.         Set Objects = myPage.Object.GetElementsByTagName("A")
    
12. 
    
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
    
21. 
    
22.         If  int(ErrorCount) = 0 Then
    
23.                 CheckImages = "Passed"
    
24.         Else
    
25.                 CheckImages = "Failed("&ErrorCount&")"
    
26.         End If
    
27. 
    
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

不错 先留名