qtp delphi程序 delphi-addin的问题

sixleon

qtp在录制delphi程序的时候，要加载MicDelphiAgent.pas这个文件，并编译；之后才可以进行脚本的重放。

此时： 在录制脚本的时候，有个做窗口的判断，如此“
If DelphiWindow("FrmReceiver").Exist(3)        then
DelphiWindow("FrmReceiver").Activate
DelphiWindow("FrmReceiver").DelphiButton("退出(E)").Click
End if ”
如果把if 换成while时，同样在判断超时的时候，要等到默认的超时时间，而不是3秒。

==============================================
我怀疑是否市那个需要编译的文件没有放到 程序中呢？？

附件中包括delphi程序编译需要的文件。

li_sy

MicDelphiAgent.pas
如何使用能不能说具体一点？谢谢！

smartlee007

HP QUICKTESTPROFESSIONAL 支持Delphi 程序指南

默认情况下HP QUICKTESTPROFESSIONAL 不支持DELPHI开发的控件，如果你的系统是DELPHI开发的，而你又希望用HP QUICKTESTPROFESSIONAL对其进行测试，请按照如下步骤操作：

1.        至HP官方网站下载DELPHI插件，并安装。最新版为9.5版。
2.        将HP QUICKTESTPROFESSIONAL提供的 MicDelphiAgent.pas集成到你的程序中。
a)        将<QuickTest Professional Installation folder>\dat\Extensibility\Delphi 包含到你的工程。通过设置library path或者将该文件夹复制到你的工程所在目录等方式都可以。
b)        添加 MicDelphiAgent到工程文件的Uses部分。例如：
program flight;
uses
      MicDelphiAgent,
      Forms,      
Windows;
($R*.RES)
begin
       Application.Initialize
       Application.Title :='Flight Reservation';
       Application.Run;
end.
3.        重新编译
4.        如果delphi程序中用到了TwwDBGrid控件，对工程文件的USES部分做如下修改即可实现对TwwDBGrid控件的支持。
program flight;
uses
       MicDelphiAgent,
       MicWWSupport,
       Forms,
       Windows;
($R*.RES)
begin
       Application.Initialize
       Application.Title :='Flight Reservation';
       Application.Run;
end.

huiloo

能提供个ＱＴＰ　的ｄｅｐｈｉｌ插件吗？谢谢

huiloo

能给一个  MicDelphiAgent.pas  吗？？？？

测试精英

hotsmile99

顶了！！！！！！！！！！

TIB

QTP10之后不需要下载安装单独的Delphi插件，只需要在安装QTP时选择定制安装，把Delphi插件选上即可

安装后按照Delphi插件的使用指南测试一般的标准的Delphi控件，对于第三方控件或自定义控件，需要编写插件扩展包来支持，否则无法识别和控制对象

如果嫌插件扩展开发比较麻烦，可以考虑用其他工具，例如TestComplete、SilkTest等