Compare Two bitmaps using QTP

Dim pTitle

'***************************************************
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"
'***************************************************

____________________________________________________________


Please send your Suggestions and Doubts to my yahoo group http://in.groups.yahoo.com/group/qtpsudhakar