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

qishenye 发表于 2008-9-9 10:41:47

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

lingxin5013 发表于 2008-9-9 14:24:19

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

假装不在 发表于 2008-9-9 15:18:51

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

wangdongting 发表于 2008-9-9 16:08:58

回复 3# 的帖子

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

rcpp 发表于 2008-9-9 17:26:01

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

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

amyfind 发表于 2008-9-15 20:59:40

学习了，不错

qiuqiu0624 发表于 2009-8-17 23:24:46

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

blueeagle9999 发表于 2009-8-18 09:43:10

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

加载失败的好像是-1

kickgod 发表于 2010-3-15 16:17:10

thanks !!!!!!!!!!

xc520 发表于 2010-3-15 19:16:10

学习了~
赞个~

luxiuxiu1987 发表于 2010-9-20 09:58:48

学习了，马上试试去~

026300 发表于 2012-7-26 16:13:48

回复 5# rcpp

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

AntonioNikki 发表于 2012-7-27 15:02:55

在Native 里面不是Test Object

AntonioNikki 发表于 2012-7-27 15:03:52

回复 14# 026300

在native里面

测试工坊 发表于 2012-7-29 14:27:49

这时我上个项目写的一段代码用来检查网页中所有图片是否可达。Function CheckImages()
ErrorCount = 0
Set Objects = myPage.Object.GetElementsByTagName("IMG")

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

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

For Each obj in Objects
str = obj.currentstyle.backgroundimage
If str <> "none" Then
str = replace(str,left(str,5),"")
str = replace(str,right(str,2),"")
ErrorCount = ErrorCount + geturlstatus(str)
End If
Next

Ifint(ErrorCount) = 0 Then
CheckImages = "Passed"
Else
CheckImages = "Failed("&ErrorCount&")"
End If

End FunctionPublic Function GetUrlStatus(url)
On Error Resume Next
Set webService = nothing
Set webService= CreateObject("Microsoft.XMLHTTP")
webService.open "GET", url, False
webService.Send
pagestatus = webService.status
If pagestatus < 200 or pagestatus >399 Then
print "The link ["&url&"] is not accessible with error: "& pagestatus
geturlstatus = 1
else
Print "Checking: " & url
geturlstatus = 0
'print "valid request "& pagestatus &" " & url
End If
Set webService = nothing
err.clear
End Function

louqqson008 发表于 2012-7-30 09:23:20

不错先留名

页: [1]

51Testing软件测试论坛 's Archiver

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

回复 3# 的帖子