未来已来

QTP 图片验证点之二进制流对比法

上一篇 / 下一篇  2008-08-10 22:34:59 / 个人分类:自动化测试

 

图片验证主要是文件对比,其中我们可以利用二进制的方法读取图片信息,然后进行对比,达到对比的效果,本例子利用fso对象的文件流的方法实现,代码如下

Public Function CompareFiles (FilePath1, FilePath2)
   Dim FS, File1, File2
   Set FS = CreateObject("scrīpting.FileSystemObject")

   If FS.GetFile(FilePath1).Size <> FS.GetFile(FilePath2).Size Then
         CompareFiles = True
         Exit Function
   End If

   Set File1 = FS.GetFile(FilePath1).OpenAsTextStream(1, 0)
   Set File2 = FS.GetFile(FilePath2).OpenAsTextStream(1, 0)

   CompareFiles = False
   Do While File1.AtEndOfStream = False
         Str1 = File1.Read(1000)
         Str2 = File2.Read(1000)

         CompareFiles = StrComp(Str1, Str2, 0)

         If CompareFiles <> 0 Then

                  CompareFiles = True

                  Exit Do
         End If
   Loop

   File1.Close()
   File2.Close()
End Function

返回值:
如果两个文件相同,该功能将返回 0 或 False,否则将返回 True。

示例:
File1 = "C:\1.jpg"
File2 = "C:\2.jpg"


If CompareFiles(File1, File2) = False Then
   MsgBox "Files are identical."
Else
   MsgBox "Files are different."
End If


TAG: 自动化测试

飞云天的个人空间 引用 删除 飞云天   /   2010-11-02 20:48:34
这个对比方法可以对比png的吗?
 

评分:0

我来说两句

Open Toolbar