Is there any Sync function to AJAX frames?

[QTP_Gaspar]

Hi !

I have a problem on my scripts about wait time to load pages.
Ok, I use the function Brownser(xxx).Page(xxx).Sync to make the QTP wait the page load completely. But I am testing a webpage in C#, with some frames in AJAX.

There are some process in the webpage, that doesn`t load the page, but the frame loads. What I mean is that the page will not refreshed, but the system will take some seconds to load some information in the AJAX frame.

I was using the WAIT() function to these cases, but it`s terrible because the wait time for the frame is always changing. I am using like Wait(15), it's too much time.

So pleeease.... is there anyone able to help me with this issue? I was thinking maybe there is a function on the QTP like:
Brownser(xxx).Frame(xxx).Sync.... but I guess not, heheheh...

I am not sure if I was clear, sorry... I hope yes!


Thank you very much !!!

[cdesserich]

There are several ways to do dynamic waits for AJAX calls. It all depends on what is changing on the page. For example, sometimes an object exists on the page, but is just hidden, either by having coordinates off the visible area, or by having a height and width of 0, or by having the visible property set to false. Otherwise, objects can be inserted into the DOM via an AJAX call. All of these scenarios require different code. The following examples are registered functions so that they can be called on a WebElement directly. To illustrate waiting for a specific object to have a height and width greater than 0 (thereby making the object visible):

Code:

'@Description Waits until the test object has width and height greater than zero, pass Null for timeout to accept default of 10 seconds.
Public Sub WaitForVisibility(test_object, ByVal timeout)
    If IsEmpty(timeout) Or IsNull(timeout) Then timeout = 10 End If
    Dim start: start = Timer    
    Do While (test_object.GetROProperty("width") <= 0 And test_object.GetROProperty("height") <= 0) And (Timer - start < timeout)
        Wait 0, 500
        test_object.Init
    Loop
    Wait 0, 500
End Sub
RegisterUserFunc "WebElement", "WaitForVisibility", "WaitForVisibility"

To wait for the existence of an object:

Code:

'@Description Waits until the test object exists, pass Null for timeout to accept default of 10 seconds.
Public Sub WaitForExistence(test_object, ByVal timeout)
    If IsEmpty(timeout) Or IsNull(timeout) Then timeout = 10 End If
    Dim start: start = Timer    
    Do While (Not test_object.Exist(0)) And (Timer - start < timeout)
        Wait 0, 500
        test_object.Init
    Loop
    Wait 0, 500
End Sub
RegisterUserFunc "WebElement", "WaitForExistence", "WaitForExistence"

[QTP_Gaspar]

Thank you very much man !!

You cleared my mind, and I could solve the problem.

Thank you very much.