Unified Functional Testing (formerly QTP) News and Support Forum
Showing results for 
Search instead for 
Do you mean 

Delphi Addin

Occasional Visitor

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.

3 REPLIES
HPE Expert

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.

 

 

Established Member

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

 

Highlighted
HPE Expert

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.