How to write a genecric function for sync operation

[martinangello]

Hi, Is there a way we can write a common function for a sync operation... say we have Browser(x).Page(x).Obj1(x).sync and Browser(x).Page(x).Obj2(x).sync and so on.... Can we write one common statement and call the sync function by passing the object type. Appreciate all your help.. Thanks

[supputuri]

Hi Martinangello,

Please find the below function which will work well only by passing the browser and page names.
Eg: f_waitForPage "x","x"

Code:

Public Function f_waitForPage(ByVal BrowserName, ByVal PageName) Dim strSyncObject 'to hold page object description Dim intCounter 'to store loop counter value Dim strSyncDone 'to store page existence value Dim strSyncObjectDesc 'to store object description 'Any error is handled by the calling function On Error Resume Next 'verify whether the page name is specified or not. If PageName <> vbNullString Then Set strSyncObject=Browser(BrowserName).Page(PageName) strSyncObjectDesc = "Browser " & BrowserName & ", Page " & PageName Else f_ReportFailure "Verify that the page", PageName& "Page is not displayed." End If 'wait for the object in a loop, until the counter reaches the max intCounter = 1 strSyncDone = strSyncObject.Exist Do While Not strSyncDone Wait gWebPageSyncTime strSyncDone = strSyncObject.Exist If intCounter = 10 Then Exit Do End If intCounter = intCounter+1 Loop 'Error handling If strSyncDone Then Browser(BrowserName).Sync f_waitForPage = micPass Else f_waitForPage = micFail End If End Function 'End of 'waitForPage' function.

Let me know if you need any more information.

[martinangello]

QTP King,
Thanks for such a quick response... But sync is not my main objective... to write a generic function is what i'm breakin my head on.. well, lemme rephrase... say we have an imagebutton,link, webbutton... If i need to click on these, can i write a single click function which would work for all three( when i pass these values via a variable)... Aprreciate your help... thanks

[supputuri]

Hi Martinangello,

yes we can write only one function which can work on different objects(Imagebuttons,webbuttons,links) based on the variables.

you can use "case" to handle this situation in while developing function.

Let me know if you wan me to devlop the function.

[martinangello]

QTP King,
Yes please... Or gimme some hints if u r too busy... thanks so much

[supputuri]

Hi Martin,

Pleae find the below LOC and let me know it's OK with you.

Code:

'LOC to click on the button msgbox Click (Browser("Google").Page("Google"),"WebButton","Google Search") 'LOC to click on the Link msgbox Click (Browser("Google").Page("Google"),"Link","Preferences") 'LOC to click on the Image msgbox Click (Browser("Google").Page("Google"),"WebButton","ImageName") Function Click (objPath,strObjType,strobj) Click =True Select Case strObjType Case "WebButton" objPath.WebButton(strobj).click Case "Link" objPath.Link(strobj).click Case "ImageButton" objPath.Image(strobj).click Case Else Click = False End Select End Function

Let me know if you need any more info.

[martinangello]

What I have right now is a bit similar to this... but i'm tryin to write somethin more simpler/compact... well , lemme add more details... Browser(x).Page(y).Link(z).click... x,y,z are global variables and are read from an excel... every row in the excel has diff values for x,y,z... I use 'Execute' statement instead of the Call Function as the no of parameters to be passed varies from function to function... In the same way if i wanna hv a sync function (page sync alone wont work, as some objects load wel after the page has loaded) i'l hv several lines like
Browser(x).Page(y).Link(z).sync.......Browser(x).Page(y).Image(z).sync.....Browser(x).Page(y).weblist(z).click.... etc... Now can i handle these dynamically? like creating an object or something and just use obj.sync? Please advice... and sorry for dragging this thing....THANKS

[Tarik Sheth]

One can also have different wait time defined in the environmental variable file and call it as appropriate.

[martinangello]

Tarik,

Thanks... but instead of a wait function if i learn how to write a generic function, i'll be able to club so many things... like, i can use one click statement for link, button, image etc... one set statement for text and checkbox.. and so on... please help if u can... Thanks

[balakrish]

Hi Martina,

try this script for click button
Eg:-

using the descriptive programming

Code:

Sub click_button() Dim browser_session If Browser("name:=google).page("index:=0" ,"name:=inbox").Exist Then Set browser_session = Browser("name:=google).page("index:=0" ,"name:=inbox") Else Set browser_session = Browser("name:=google).page("index:=0" ,"name:=outbox") End If browser_session.SendKey ENTER end sub

store it in function library

call the sub procedure in your test
click_button()

i am using some browser script for the example only , implement ur script like this

kindly let me know if u have any query

Regards
Bala