Re: Delphi Addin (310 Views)
Reply
Occasional Visitor
VAuto
Posts: 1
Registered: ‎11-03-2013
Message 1 of 4 (333 Views)

Delphi Addin

Hi,

 

I can able to run the below script

 

"DelphiWindow("wndMain").DelphiObject("objMain").MouseMove 670,200"

 

While i try to run the above script i got the error message as "Unspecified error"

 

So, most of the delphi methods are not supporting to me in QTP 11

 

Can any one suggest the valid solution ASAP.

HP Expert
vzamoraz
Posts: 502
Registered: ‎04-12-2012
Message 2 of 4 (310 Views)

Re: Delphi Addin

[ Edited ]

Hello,

 

      -What version of Delphi are you using?

      -How many add-ins do you have cheked? If many of them uncheck them all and select only Delphi.

      -If the control a custom/thirdparty control?

      -Any other method works?

      -Is runnign as 32 or 64bits?

       

      -Try  DeviceReplay.

      Example:  

      set DeviceReplay = CreateObject("Mercury.DeviceReplay")
      DeviceReplay.MouseMove 670,200

      set DeviceReplay = nothing

 

Best Regards

 

Note: The Opinions expressed in my post are mine alone, and do not reflect the opinions of my employer. No warranties express or implied for any answered posted.

 

Also remember if you have a valid contract with HP feel free to visit our FT/QTP Support Customer Forums: http://h30499.www3.hp.com/t5/Functional-Testing-QTP/ct-p/sws-Fun_Test
You can create an account with your HP credentials.

 

 

Member
D. Manoj Prabhakar
Posts: 2
Registered: ‎03-09-2011
Message 3 of 4 (297 Views)

Re: Delphi Addin

Hi,

 

Thanks for reply i had already implemented using the device replay. But i need to get the run time x,y values

 

It's third party application i didn't have the delphi version

 

I have used these addins .Net,Delphi,ActiveX,Web

 

Few methods works like Exist,GetVisibleText

But even GetRoProperty didn't works here

 

It's running in the 32bit OS

 

HP Expert
vzamoraz
Posts: 502
Registered: ‎04-12-2012
Message 4 of 4 (287 Views)

Re: Delphi Addin

[ Edited ]

Yes, as third party controls have custom code on them is not possible for the hooks inject the support over the expected structure.

 

If you try this to get the x and y position works?

 

myx = DelphiWindow("wndMain").DelphiObject("objMain").GetROProperty(abs_x)

myy = DelphiWindow("wndMain").DelphiObject("objMain").GetROProperty(abs_y)

 

This will give you the position of the top left corner of the control DelphiObject("objMain").

 

 

 

Note: The Opinions expressed in my post are mine alone, and do not reflect the opinions of my employer. No warranties express or implied for any answered posted.

 

Also remember if you have a valid contract with HP feel free to visit our FT/QTP Support Customer Forums: http://h30499.www3.hp.com/t5/Functional-Testing-QTP/ct-p/sws-Fun_Test
You can create an account with your HP credentials.

 

The opinions expressed above are the personal opinions of the authors, not of HP. By using this site, you accept the Terms of Use and Rules of Participation.