Search code examples
vbscripthp-uft

Is it possible to do bitmap check point in descriptive programming? HP-UFT 14


Hi i would like to know if doing a bitmap check point is possible in descriptive programming since i am handling the same image in multiple pages


Solution

  • 'Test Code
    SystemUtil.CloseProcessByWndTitle("HPE MyFlight Sample Application")
    SystemUtil.Run "C:\Program Files (x86)\HP\Unified Functional Testing\samples\Flights Application\FlightsGUI.exe"
    Window("regexpwndtitle:=HPE MyFlight Sample Application").WaitProperty "visible",True
    Window("regexpwndtitle:=HPE MyFlight Sample Application").CaptureBitmap "C:\Expected.bmp",True
    Window("regexpwndtitle:=HPE MyFlight Sample Application").CaptureBitmap "C:\Actual.bmp",True
    Msgbox CompareBitMapFiles("C:\Actual.bmp","C:\Expected.bmp")
    
    Public Function CompareBitMapFiles(ByVal ExpectedImage,ByVal ActualImage)
        Dim objFileCompare
        Dim blnIsEqual
        Dim strFileComparisonValue : strFileComparisonValue = "Not Equal"
        Set objFileCompare = CreateObject("Mercury.FileCompare")
        blnIsEqual = objFileCompare.IsEqualBin(ExpectedImage,ActualImage,0,1)
        If blnIsEqual Then
            strFileComparisonValue = "Equal"
        End If
        CompareBitMapFiles = strFileComparisonValue
    End Function
    

    Another command line tool is here