Error while adding Object to Object repository at run time

[SaranKumarV]

Hi All,

I am trying to add new object to object repository in run time with the following code resulting "error : R6025 -pure virtual function call" please help me on this.

Code:

Set RepositoryFrom  = CreateObject("Mercury.ObjectRepositoryUtil")
RepositoryFrom.Load  "c:\testrep.tsr"
Set PageObj = RepositoryFrom.GetObjectByParent("Browser(""Google"")","Page(""Google"")")
Set CustomObj = Browser("Google").Page("Google").WebButton("micclass:=WebButton")
RepositoryFrom.AddObject CustomObj, PageObj
RepositoryFrom.Save
Set RepositoryFrom = Nothing

Regards,
SaranKumarV

[Saket]

I guess you are running this code in QTP, remove the below statement from your script and put it in a vbs file. attach the vbs with your test. an try.

Code:

Set RepositoryFrom = CreateObject("Mercury.ObjectRepositoryUtil")

[cdesserich]

Make sure you release the "PageObj" object as well!

Code:

Set PageObj = Nothing

This should fix the error.

[dubeyvin]

Can we also Rename Object's Logical name at the Runtime?
I tried with the following code :

Code:

Set mR = CreateOBject("Mercury.ObjectRepositoryUtil")
    mR.Load "C:\Users\Documents\ObjectRepository.bdb"
    mR.RenameObject Browser("TEstFolder").Page("abc"),"def"

I have tried to save it in the VBS file and then attached to the Test
But I am getting Error as : Object Can not be Renamed

I have also attached the Screenshot of the error