Object repository
Loading object repository at runtime
« on: February 22, 2008, 11:08:36 AM »
Hi Guys,
I have little confusion about loading OR at runtime. I did some research and came to
know
1. We can load OR in QTP9.2 at run time by
The following example adds the shared object repository to the current action.
Code
GeSHi (qtp):
SORpath = "C:\Temp\MySharedObjectRepository.tsr"
RepositoriesCollection.Add(SORpath)
Created by GeSHI 1.0.7.20
2. We can load OR in QTP 9.1 at run time by
Code
GeSHi (qtp):
Dim qtApp
Dim strTestPath
' full filepath to the test
strTestPath = "C:\Program Files\Mercury Interactive\QuickTest
Professional\Tests\Test1"
' Launch QuickTest
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible
qtApp.Open strTestPath, False ' Open and run the test
Set qtRepositories = qtApp.Test.Actions("Action1").ObjectRepositories ' Get the object
repositories collection object of the "Action1" action
qtRepositories.Add "C:\Program Files\Mercury Interactive\QuickTest
Professional\Tests\Repository2.tsr"
' Release the QuickTest Professional application objectSet
qtApp = Nothing
Created by GeSHI 1.0.7.20
3. We cannot load OR in QTP 9.0 at run time
4. We can load OR in QTP 6.5-8.2 using automation object model but only one
repository
5. We cannot load OR in 6.0-8.2 within script
Am I right or missing something ?
Thanks
SK
How to load the Object Repository
To load the object repository at runtime -
Write following script...
Set app=CreateObject("QuickTest.application")
app.test.settings.resources.ObjectRepositoryPath="Path of the Object Repository"
To load manually -
Goto Test-Settings-resources-select shared for Object Repository Type-Browse the
required Object Repository.
1. How to add object repository in qtp manually.
2. How to add or load object repository in qtp during runtime.
Procedure to add object repository in qtp manually
1. Go to Edit->Action->Action Properties window.
2. Than switch to “Associated Repositories” Tab.
3. Click on “+” sign.
4. Now click on right most side button and add object repository file (in .tsr
format)
Note: If you don’t know how to export object repository in .tsr file. Please refer
6th question of this post: QTP FAQS with answers part- 2
Procedure to add object repository in qtp during run time:
Just write following lines of code in your script.
--------------------------------------------------------------------------------
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Test.Actions(1).ObjectRepositories.Add "C:\Repository1.tsr"
---------------------------------------------------------------------------------
Note: Above script will add “Repository1.tsr” file to your test during run time.
Please note that this object repository file will be loaded during run time so you
can see it attached only during run time. During stop mode you will not be able to
see attached object repository.
If you want to verify that object repository is added or not during runtime you can
verify. When your script is in running mode just Go to Debug->Pause and then
you can verify by going to Edit->Action->Action Properties and then associated
repository tab.
So Enjoy Learning and let me know if you face any kind of difficulty. You are
always welcome to share your
2. 5.
Here is the function to load shared Object repository in runtime:
Dim qtp, qtpRep
Set qtp = CreateObject(”QuickTest.Application”)
qtp.Launch ‘Launches QTP
qtp.Visible = True ‘Makes QTP visible
qtp.New ‘opens a new test
Set qtpRep=qtp.Test.Actions("Action1").ObjectRepositories 'Get the current action's
Object repostories collection that is Action1's Object repositories collection
If qtpRep.Find("C:\Sample test.tsr") = -1 Then 'Verifying whether the shared repository
is already present in collection list. For a New test this is not required. This would be
more helpful for an existing test
qtpRep.Add("C:\Sample test.tsr"),1
End If
Get Objects from Object Repository
Get Objects from Object Repository Using Object Repository Automation
view plainprint?
1. '*****************************************************************
**********
2. Dim RepositoryFrom
3. Dim ParentObject
4.
5. ObjectRepositoryPath="C:\sudhakar kakunuri\Desktop\OR Automation\SampleO
R.tsr"
6.
7. 'Creating Object Repository utility Object
8. Set RepositoryFrom = CreateObject("Mercury.ObjectRepositoryUtil")
9.
10. 'Load Object Repository
11. RepositoryFrom.Load ObjectRepositoryPath
12.
13. 'Calling a Recursive Function
14. fnPrintObjectNames ParentObject
15.
16. Function fnPrintObjectNames(ParentObject)
17.
18. 'Get Objects by parent From loaded Repository
19. 'If parent not specified all objects will be returned
20.
21. Set fTOCollection = RepositoryFrom.GetChildren(ParentObject)
22. For RepObjIndex = 0 To fTOCollection.Count - 1
23.
24. 'Get object by index
25. Set fTestObject = fTOCollection.Item(RepObjIndex)
26.
27. 'Check whether the object is having child objects
28. If RepositoryFrom.GetChildren (fTestObject).count<>0 then
29.
30. print "Object Logical Name:= "&RepositoryFrom.GetLogicalName(fTe
stObject)
31.
32. print "****************************************************
******"
33.
34. 'Get TO Properties List
35. Set PropertiesColl=fTestObject.GetTOProperties
36.
37. For pIndex=0 to PropertiesColl.count-1
38.
39. 'Print Property and Value
40. Set ObjectProperty=PropertiesColl.Item(pIndex)
41. print ObjectProperty.name&":="&ObjectProperty.value
42.
43. Next
44.
45. print "****************************************************
******"
46.
47. 'Calling Recursive Function
48. fnPrintObjectNames fTestObject
49.
50. else
51.
52. print "****************************************************
******"
53. print "Object Logical Name:= "&RepositoryFrom.GetLogicalName(f
TestObject)
54. print "****************************************************
******"
55. Set PropertiesColl=fTestObject.GetTOProperties
56. For pIndex=0 to PropertiesColl.count-1
57. Set ObjectProperty=PropertiesColl.item(pIndex)
58. print ObjectProperty.name&":="&ObjectProperty.value
59. Next
60.
61. End if
62. Next
63.
64. End Function
65.
66.
Subject: How to Load the Object
Repository in QTP when it is stored
in QC
shivakumar Feb 4, 2009 13:53:52 GMT
Hi All,
I have a requirement where i need to load the
repository.tsr from QC into QTP using
script.The .tsr file is kept as an attachment in
the test plan module.I am using this code.
Set RepositoryFrom =
CreateObject("Mercury.ObjectRepositoryUtil")
RepositoryFrom.Load "[QualityCenter]
Subject\Sample\objectrep\flight_appli.tsr"
Set TOCollection =
RepositoryFrom.GetChildren(Root)
For i = 0 To TOCollection.Count - 1
Set TestObject = TOCollection.Item(i)
Msg =
RepositoryFrom.GetLogicalName(TestObject)
& vbNewLine
Next
In the load line itself it is throwing "Load
General Error".I need to use the
RepositoryFrom object to get the logical names
of all the objects in the repository.
Can anyone help me in this regard,it's very
Urgent.
Regards,
Shiva.
Note: If you are the author of this question and wish to assign points to any of the
answers, please login first.For more information on assigning points ,click here
Sort Answers By: Date or Points
sandeep mandal Feb 5, 2009 06:21:48 GMT Unassigned
I got the same error few days back.
ObjectRepositoryUtil is only available when
QTPlus is installed. This was a separate
installation in QTP 8.2 but from 9.0 it usually
gets installed with QTP. However in some
cases if it does not get installed the we need to
reinstall QTP.
shivakumar Feb 5, 2009 08:28:47 GMT N/A: Question
Author
Hi Sandeep,
Thanks for the response.I am using QTP 9.5.do
you think ObjectrepositoryUtil will not get
installed while installing QTP Or QTP load
function will not support QC path or do we
need to connect to QC using TDConnection
before using this load function(But i already
connect to QC using the connection wizard
available in QTP ,Do i need to connect it
through script also)
Regards,
Shiva
sandeep mandal Feb 5, 2009 09:49:20 GMT Unassigned
Try using Repositories.Add "[QualityCenter]
Subject\Sample\objectrep\flight_appli.tsr"
and check whether QTP is able to add the OR
from QC.
However as I already mentioned, to use ORUtil,
we need to have QTPlus installed. Sometimes it
does not get installed automatically, so we need
to reinstall QTP.
You will see the difference when the same code
will run fine on other machines where QTPlus
is installed correctly.
shivakumar Feb 5, 2009 12:30:24 GMT N/A: Question
Author
Sandeep,
Can you give some detailed information.I am
using RepositoryFrom Object to get the object
properties..But without loading repository using
repositoryFrom .Load i am not able to pick the
object details.For more info please refer the
earlierpost.
Regards,
Shiva.
Printable version
Privacy statement Using t
Hi Friends,
Below Script to dynamically load the object repository
Folder_Path = Environment.Value("TestDir")
objPath = Folder_Path&"\ObjectRepository\ObjectRepository.tsr"
Dim App
Set App=CreateObject("QuickTest.Application")
Set qtRepositories = App.Test.Actions(App.Test.Actions(1).Name).ObjectRepositories
If qtRepositories.Find(objPath) = -1 Then
qtRepositories.RemoveAll
qtRepositories.Add objPath, 1
End If
Set qtRepositories=nothing
Set App=nothing
How to add the Repository during Runtime in QTP9.2
Options
4 messages - Collapse all -
Report discussion as spam
QTPExper
View profile More options Apr 28, 11:20 am
t
Hi,
Currently i am using below code.but its throwing error message stating
"Object doesn't support this property or method: 'QtApp.Test.Actions'.
Please correct me
SORpath="C:\ObjectRepository\Repository.tsr"
'RepositoriesCollection.Add(SORpath)
Set QtApp = CreateObject("QuickTest.Application")
Set qtRepositories =
QtApp.Test.Actions("DriverScript").ObjectRepositories ' Getthe object
repositories collection object of the "Login" action
' Add MainApp.tsr if it's not already in the collection
If qtRepositories.Find(SORpath) = -1 Then ' If the repository cannot
be found in the collection
qtRepositories.Add SORpath, 1 ' Add the repository to the
collection
End If
Thanks,
Bhuvan
Report spam
K.Byzoor
Rahuman. View profile More options Apr 28, 5:00 pm
, I.A.S
Hi,
It is working fine for me.
SORpath="C:\ObjectRepository\Repository.tsr"
'RepositoriesCollection.Add(SORpath)
Set QtApp = CreateObject("QuickTest.Application")
qtApp.Visible = True
strTestDir=Environment.value("TestDir")
strActionname=Environment.value("ActionName")
' qtApp.Open strTestDir, False, False '
Set qtRepositories =
qtApp.Test.Actions(strActionname).ObjectRepositories
' Add MainApp.tsr if it's not already in the collection
If qtRepositories.Find(SORpath) = -1 Then ' If the repository cannotbe
found in the collection
qtRepositories.Add SORpath, 1 ' Add the repository to thecollection
End If
Happy Tester,
Byzoor,
- Show quoted text -
Report spam
dines
h View profile More options Apr 28, 6:01 pm
singh
Hi Experts,
what are the usage of that particular segment of code with qtp not in brief
just a single line answer will help me.
On Thu, Apr 28, 2011 at 5:30 PM, K.Byzoor Rahuman., I.A.S
<byz...@gmail.com>wrote:
- Show quoted text -
--
Thanks & Regards
Dinesh Singh
+91-9310813656
Report spam
gop
i View profile More options Apr 28, 7:14 pm
nath
HI Guys,
Will this help you..
' Below single line of code helps to load Repository at runtime
If RepositoriesCollection.Find("<repo path>")=-1 then
RepositoriesCollection.Add "path"
End If
- Show quoted text -
Report spam
End of messages
« Back to Discussions « Newer topic Older topic »
Here in this Page the Web element is BOLD in Font and Font Size is 10
but i dont find this when i debug this below code...
Dim ctrlWebEl, objWebEl
Set ctrlWebEl = Browser("Send Email").Page("Welcome: Mercury
Tours").WebElement("$398")
Set objWebEl = ctrlWebEl.Object
sColor = objWebEl.currentStyle.fontStyle
msgbox sColor -- Gives Normal
sBackgrColor = objWebEl.currentStyle.backgroundColor
msgbox sBackgrColor
sFontSize = objWebEl.currentStyle.fontSize
msgbox sFontSize
sFontStyle = objWebEl.currentStyle.fontStyle
msgbox sFontStyle
sFontFamily = objWebEl.currentStyle.fontFamily
msgbox sFontFamily
sFontWeight = objWebEl.currentStyle.fontWeight
msgbox sFontWeig
I searched in the Discussion group and also googled but dint find any
solution..
Kindly Help me...
