Forum Discussion

kimmatsumoto's avatar
kimmatsumoto
Contributor
9 years ago
Solved

Dialog windows in Delphi XE 10 (Rad Studio XE 10)

The application I'm testing is compiled with Rad Studio XE 10 and the dialog window is detected as: Sys.Process('download').Window('#32770', 'download').Window('DirectUIHWND').Window('CtrlNotifySink...
  • EnergizerBunny's avatar
    EnergizerBunny
    9 years ago

    Our company uses the same framework for our applications. It is our policy to NOT compile the applications with debug information. So for the past 16 years I have been testing these applications with QARun, TestPartner, and now exclusively TestComplete.

    The issue of the popup window having two different class names was solved 16 years ago and I have converted the code to TestComplete. We use TestComplete version 11.20.1491.7.

    We do not use name mapping at all and rely on the various Find methods to access the objects.

    The function is called PopupsUniversal. You pass the process object, caption text, and the text of the button to the function. It returns True if the button was clicked.

    The example below should work for the information that you provided.

    Sorry about the indentions, when I copy and paste all tabs are lost.

     

    Sub One
        Dim p
        Set p = Sys.WaitProcess("download", 3000)
        If p.Exists = True Then
            If PopupsUniversal(p, "download", "OK") = True Then
                Log.Message "Clicked the popup."
            Else
                Log.Message "Did not click the popup."
            End If
       Else
            Log.Error "Process not found."
        End If
    End Sub

     

    Function PopupsUniversal(objProcess, svCaption, svButtonText)
        Dim f, objButton
        PopupsUniversal = False
        If Win32API.FindWindow("TMessageForm", svCaption) <> 0 Or Win32API.FindWindow("#32770", svCaption) <> 0 Then
            Set f = objProcess.FindEx(Array("WndClass", "WndCaption"), Array("TMessageForm", svCaption), 1, True, 500)
                If f.Exists = False Then
                    Set f = objProcess.FindEx(Array("WndClass", "WndCaption"), Array("#32770", svCaption), 1, True, 500)
                End If
                If f.Exists = True Then
                    f.Activate
                    Set objButton = f.Find(Array("WndClass", "WndCaption", "Visible"), Array("Button", svButtonText, True), 10, True)
                    If objButton.Exists = False Then
                        Set objButton = f.Find(Array("WndClass", "ObjectIdentifier", "Visible"), Array("Button", svButtonText, True), 10, True)
                    End If
                    If objButton.Exists = False Then
                        Set objButton = f.Find(Array("WndClass", "Caption", "Visible"), Array("Button", svButtonText, True), 10, True)
                    End If
                    If objButton.Exists = False Then
                        Set objButton = f.Find(Array("WndClass", "WndCaption", "Visible"), Array("TButton", svButtonText, True), 10, True)
                    End If
                    If objButton.Exists = False Then
                        Set objButton = f.Find(Array("WndClass", "ObjectIdentifier", "Visible"), Array("TButton", svButtonText, True), 10, True)
                    End If
                    If objButton.Exists = False Then
                        Set objButton = f.Find(Array("WndClass", "Caption", "Visible"), Array("TButton", svButtonText, True), 10, True)
                    End If
                    If objButton.Exists = True Then
                        objButton.HoverMouse
                        objButton.Click
                        PopupsUniversal = True
                    End If
            End If
        End If
    End Function

TanyaYatskovska's avatar
TanyaYatskovska
SmartBear Alumni (Retired)
9 years ago

Hi Kimmatsumoto,

 

Make sure that your tested application was compiled according to the Compiling Delphi XE6, XE7, XE8 and 10 Applications With Debug Information ( http://smartbear.com/viewarticle/73596/ ) article. TestComplete doesn’t recognize the window correctly.

If this doesn’t help, let us know what TestComplete version you are using.

  • kimmatsumoto's avatar
    kimmatsumoto
    Contributor
    9 years ago

    Hi Tanya,

     

    Development gave me a new build that was compiled according to the Compiling Delphi XE6, XE7, XE8 and 10 Applications With Debug Information article, but there was change.

     

    I did notice one thing...when I used the object spy to capture the button in the dialog window and TestComplete didn't have a project opened, the object's name was:

    Sys.Process('tramswin').Window('#32770', 'Warning', 1).Pane('Warning').Window('CtrlNotifySink', '', 8).Window('Button', '&No', 1)

     

    But, when I opened a project and used the object spy to look at the button it looked like this:

    Sys.Process('tramswin').Window('#32770', 'Warning', 1).Pane('DirectUIHWND').Window('CtrlNotifySink', '', 8).Window('Button', '&No', 1).

     

    Do you know what could cause this difference?

     

    I'm using TestComplete version 11.20.1491.7.

     

    Kind Regards,

    Kim

    • TanyaYatskovska's avatar
      TanyaYatskovska
      SmartBear Alumni (Retired)
      9 years ago
      kimmatsumoto wrote:

       

       

      I did notice one thing...when I used the object spy to capture the button in the dialog window and TestComplete didn't have a project opened, the object's name was:

      Sys.Process('tramswin').Window('#32770', 'Warning', 1).Pane('Warning').Window('CtrlNotifySink', '', 8).Window('Button', '&No', 1)

       

      But, when I opened a project and used the object spy to look at the button it looked like this:

      Sys.Process('tramswin').Window('#32770', 'Warning', 1).Pane('DirectUIHWND').Window('CtrlNotifySink', '', 8).Window('Button', '&No', 1).

       

      Do you know what could cause this difference?

       

       

      Hi Kim,

       

      The difference can be related to the fact that you've activated the UI Automation technology in your project. Please check the Tools | Current Project Properties | Open Applications | UI Automation project settings. If you have DirectUIHWND activated in the List of accepted windows box, deactivate it.

      • kimmatsumoto's avatar
        kimmatsumoto
        Contributor
        9 years ago

        Thank you...that helped.