Thanks to visit codestin.com
Credit goes to www.scribd.com

Scribd
Upload
7K views3 pages

Load A Object Repository in QTP During Runtime

There are several ways to load an object repository in QTP at runtime: 1. Use the RepositoriesCollection.Add method within an action to add a repository without needing to add it beforehand. 2. Use the Automated Object Model to open a test, get the object repositories collection of an action, and add a repository. 3. Write a function to load/unload repositories by removing all repositories from an action first before adding the desired one(s). This can be used to load single or multiple repositories. 4. Clear the runtime repository list and add a repository using the RemoveAll and Add methods. A repository can then be removed or added again. 5. Get

Uploaded by

api-19840982
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
7K views3 pages

Load A Object Repository in QTP During Runtime

There are several ways to load an object repository in QTP at runtime: 1. Use the RepositoriesCollection.Add method within an action to add a repository without needing to add it beforehand. 2. Use the Automated Object Model to open a test, get the object repositories collection of an action, and add a repository. 3. Write a function to load/unload repositories by removing all repositories from an action first before adding the desired one(s). This can be used to load single or multiple repositories. 4. Clear the runtime repository list and add a repository using the RemoveAll and Add methods. A repository can then be removed or added again. 5. Get

Uploaded by

api-19840982
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 3

Load a object repository in QTP during runtime

we can add object repository at runtime in 2 different ways:

1. when u write below syntax in Action1

Syntax: RepositoriesCollection.Add(Path)

Ex: RepositoriesCollection.Add(E:\OR\ObjRes.tsr)

if write in Action1 it will automatically add the Object


Respository to the Action1
(i.e Edit Menu-->Action-->Action Properties-->Associate
Repository tab) at runtime.

no need to add the object repository before running.

2. Add the object repository at runtime by using AOM (Automated Object Model)

Ex:
Dim qtAppn
Dim qtObjRes

Set qtAppn = CreateObject("QuickTest.Application")


qtAppn.Launch
qtAppn.Visible = True

qtApp.Open "E:\Test\Test2", False, False


Set qtObjRes = qtApp.Test.Actions
("Login").ObjectRepositories

qtObjRes.Add "E:\OR\ObjRes.tsr", 1

The above example Add the Object Repository(ObjRes.tsr) to the "Login" action in Test2.

Here also no need to add the object repository in Test2.

3.This code with work definitely...

Public Function LoadUnloadTsr(sTsrMap)

  Dim qtApp, qtRepositories


  Set qtApp = CreateObject("QuickTest.Application")

  ActionName = Environment("ActionName") ' am just getting the action name

  Set qtRepositories = qtApp.Test.Actions(ActionName).ObjectRepositories 


‘just creating an object in order to access repositories of the above said action.

   qtRepositories.RemoveAll ' removing all previously associated repositories.

   qtRepositories.Add sTsrMap,1 ' Action the repositort.


  Set qtApp = Nothing

End Function

For single Repository:

sTsrMap = "C:Bottom.tsr"

Call LoadUnloadTsr (sTsrMap)

For Multiple Repository

Dim sTsrMap

sTsrMap=Array(“C:1.tsr”,”C:2.tsr”)

For i=0 to Ubound(sTsrMap)

Call LoadUnloadTsr (i)

Next

4. The following example clears the run-time list of associated shared object repositories and then
use the Add method to add the specified object repository to that list.

RepPath = "\MercurySORSMySharedObjectRepository.tsr"

RepositoriesCollection.RemoveAll()

RepositoriesCollection.Add(RepPath)

Pos = RepositoriesCollection.Find(RepPath)

RepositoriesCollection.Remove(Pos)

RepositoriesCollection.Add(RepPath)

Window("Microsoft Word").WinObject("Microsoft Word Document").Click

Pos = RepositoriesCollection.Find(RepPath)

5.Another way:

' Declare the Application object variable


Dim qtApp 'As QuickTest.Application

Dim qtRepositories 'As QuickTest.ObjectRepositories

' Declare an action's object repositories collection variable


Dim lngPosition ' Open
' Create the Application object
QuickTest Set qtApp = CreateObject("QuickTest.Application")

' Launch
qtApp.Launch

' Set QuickTest to be visible


QuickTest qtApp.Visible = True

' Get the action's object repositories collection


Set qtRepositories = qtApp.Test.Actions("action_name").ObjectRepositories

' Get the object repositories collection object of the action ' Add MainApp.tsr if it's not already in
the collection

If qtRepositories.Find("your tsrfile.tsr") = -1 Then


' If the repository cannot be found in the collection
' Add the repository to the collection
qtRepositories.Add "your tsr file.tsr", 1
End If

You might also like