|
下面这段脚本是关于比较两个位图是否一致,网上搜来的,用了一下,不好用
尤其是IsEqualBin这个方法在QTP的帮助里面居然都没有,QTP的帮助文档是在太烂了,不是我抱怨
不知道大家有何建议
Function CompareBitmap(ActualBmp, ExpectedBmp)
Set fCompare = CreateObject("Mercury.FileCompare")
If fCompare.IsEqualBin(ExpectedBmp, ActualBmp, 0, 1) Then
Reporter.ReportEvent micPass,"Bitmap Verification",ActualBmp&"and"&ExpectedBmp&" are same"
CompareBitmap=True
Else
Reporter.ReportEvent micFail,"Bitmap Verification",ActualBmp&"and"&ExpectedBmp&" are not same"
CompareBitmap=False
End If
End Function
'***************************************************
'Calling the Function
CompareBitmap "C:\act.bmp", "C:\exp.bmp"
'*************************************************** |
|