How to pass an object as parameter and use that object in function

[tarun jain]

Hi All,

I have created an object.

Dim Gmail_Home
Set Gmail_Home = Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google")

Also, i have a function named clicklink as below:

Function clicklink(fText,myP)
    Dim myO
    Set myO = description.Create()
    myO("micClass").value = "Link"
    myO("html tag").value = "A"
    myO("text").value = ftext
    myO("index").value = 0
       wait(2)
       if myP.link(myO).Exist(1) then
            'myP.link(myO).highlight
            myP.link(myO).Click
            wait(10)
            clicklink = True
        else
            clicklink = False
        end if
    Set myO = Nothing
End Function

Now if i called function like
clicklink("gmail",byval Gmail_Home)

But i guess this will not work. Can anybody please help me to get a way, that how can i pass an object as parameter and use that object in function.

--
Thanks & Regards

TARUN JAIN
Mobile:- 9717229000

[Emad - QTP Engineer]

Did you declare
myP

[tarun jain]

i tried with that also..  updated function

Function clicklink(fText,myP)
 Dim myO, myP
 Set myP = Browser("title:=.*").Page("title:=.*")

 Set myO = description.Create()
 myO("micClass").value = "Link"
 myO("html tag").value = "A"
  myO("text").value = ftext
 myO("index").value = 0
 wait(2)
 if myP.link(myO).Exist(1) then
 'myP.link(myO).highlight
 myP.link(myO).Click
  wait(10)
 clicklink = True
 else
 clicklink = False
 end if
 Set myO = Nothing
 End Function

[Emad - QTP Engineer]

Copy this

Function clicklink(fText, myP)
Option Explicit

 Dim myO, myP
 Set myP = Browser("title:=.*").Page("title:=.*")

 Set myO = description.Create()  <<<<<<< notice you SET myO = something

myP = what?

[tarun jain]

I'm so sorry.. myP is the object description that we created and passed to the function. plz see in the first mail i sent,

Many thanks... kindly provide some solution. its very urgent..

[Emad - QTP Engineer]

I am trying but not successful so far.

[Chandan]

Hi Tarun

My advice would be to make it simple first, rather than passing the
object, just create the object in the same function and use it or the
other way, put all of the code out of the function in the script and
use it. There could be an issue with the Descriptive programming that
those properties you are assigning are not sufficient and passing
object is not an issue.
Sorry, can't try and fix this as Gmail is banned at work..

Regards,
Chandan

On Aug 29, 5:29 am, Emad - QTP Engineer <qa123...@gmail.com> wrote:
> I am trying but not successful so far.
>
>
>
>
>
>
>
> On Sun, Aug 28, 2011 at 12:47 PM, tarun jain <mca.ta...@gmail.com> wrote:
> > I'm so sorry.. myP is the object description that we created and passed to
> > the function. plz see in the first mail i sent,
>
> > Many thanks... kindly provide some solution. its very urgent..
>

> > On Sun, Aug 28, 2011 at 10:44 PM, Emad - QTP Engineer <qa123...@gmail.com>wrote:
>
> >> Copy this
>
> >> Function clicklink(fText, myP)
> >> Option Explicit
>
> >>  Dim myO, myP
> >>  Set myP = Browser("title:=.*").Page("title:=.*")
>
> >>  Set myO = description.Create()  <<<<<<< notice you SET myO = something
>
> >> myP = what?
>

> >> On Sun, Aug 28, 2011 at 11:40 AM, tarun jain <mca.ta...@gmail.com> wrote:
>
> >>> i tried with that also..  updated function
>
> >>> Function clicklink(fText,myP)
> >>>  Dim myO, myP
> >>>  Set myP = Browser("title:=.*").Page("title:=.*")
>
> >>>  Set myO = description.Create()
> >>>  myO("micClass").value = "Link"
> >>>  myO("html tag").value = "A"
> >>>   myO("text").value = ftext
> >>>  myO("index").value = 0
> >>>  wait(2)
> >>>  if myP.link(myO).Exist(1) then
> >>>  'myP.link(myO).highlight
> >>>  myP.link(myO).Click
> >>>   wait(10)
> >>>  clicklink = True
> >>>  else
> >>>  clicklink = False
> >>>  end if
> >>>  Set myO = Nothing
> >>>  End Function
>

> >>> On Sun, Aug 28, 2011 at 8:33 PM, Emad - QTP Engineer <qa123...@gmail.com

> >>> > wrote:
>
> >>>> Did you declare
> >>>> myP

[tarun jain]

Hi All,

 

To be more specific.

 

I'm using Karthik's framework. Now instead of passing the value for the object to create in function library(like we pass ftext in clicklink), i want to pass the complete object description through excel. and the same object was defined in the OR.vbs file.

 

My worry is when the object value is verified at run-time using debugger, the object is passed as string instead of object. I need that as an object.

 

Karthik,

Can you please look into the issue and help me asap.

 

I need some solution urgently.

 

Thanks,

Tarun Jain

9717229000

[Raju]

Tarun,

Did you find a solution to pass an object as parameter, let us know..
Thanks !!
Raju.

On Aug 29, 6:31 am, tarun jain <mca.ta...@gmail.com> wrote:
> Hi All,
>

[tarun jain]

Use the concept of External Environment Variables. These are treated as global variables.

Thanks,
Tarun Jain

[Brinda R]

Hi Tarun and All,

I tried the same code which you posted in your first mail and i guess it is working. 

Tarun are you getting any error while running this code or something else?

And also you have mentioned using External Envt Variables....Can you please let us know how you resolved.

Thanks,

Brinda