|
转点别人的东东给你看看。
①:QTP对Delphi的支持
目前用的是XP sp3+QTP9.5+Delphi add-in,Delphi是种比较老的开发语言,所以不可避免的大量的应用了第三方插件,所以QTP对其系统的支持其实很弱。Delphi add-in可以在HP主页上下载到,需要xp sp3才可以安装。装上插件后,基本上全部控件可以用delphi_name这个属性来唯一标示出来,而且可以提取标准delphi控件的属性,但是对第三方控件的属性依然基本上无解。
这里有个小提示
仅仅装上插件是无法获取delphi_name属性的,需要改一些delphi系统代码并且重新编译下。这个最好是自己找开发人员确认下。毕竟作为一个测试人员随便改代码是很不厚道的。这点从帮助文档里面可以得到详细的帮助,内容如下
1:Add MicDelphiAgent to the Uses section of your application's project file (project.dpr) as shown in the example below
program flight;
uses
MicDelphiAgent,
Forms,
Windows;
($R*.RES)
begin
Application.Initialize
Application.Title :='Flight Reservation';
Application.Run;
end.
2:Add the <QuickTest Professional Installation folder>\dat\Extensibility\Delphi folder to your Delphi project search path or copy the contents of the <QuickTest Professional Installation folder>\dat\Extensibility\Delphi folder to your project folder.
②:Delphi系统往往需要做出键盘事件,这个有很多实现方法,这个项目里的系统全键盘基本都是功能的快捷键,而且大键盘和小键盘的数字代表不同的功能,所以最后调用Windos API中的keybd_event来实现。
QTP调用windows api用extern.Declare
具体调用keybd_event方法的代码如下
extern.Declare micvoid,"keybd_event","user32.dll","keybd_event",micByte,micByte,micLong,micLong
extern.keybd_event 96,0,0,0
extern.keybd_event 96,0,2,0
96是小键盘上0的键盘码 第三个参数0是键盘按下动作,2是键盘弹起动作
友情提供:送一个小键盘数字串连续输入的方法。
Sub NumInput(num)
extern.Declare micvoid,"keybd_event","user32.dll","keybd_event",micByte,micByte,micLong,micLong
If num <> "" Then
sum = Len(num)
For i=1 To sum
num = Mid (num,i,1)
Select Case num
Case "0"
key1=96
Case "1"
key1=97
Case "2"
key1=98
Case "3"
key1=99
Case "4"
key1=100
Case "5"
key1=101
Case "6"
key1=102
Case "7"
key1=103
Case "8"
key1=104
Case "9"
key1=105
End Select
extern.keybd_event key1,0,0,0
extern.keybd_event key1,0,2,0
Next
End If
End Sub
③:第三方插件的问题,这是用QTP测Delphi系统最恶心的地方。试着和开发人员多沟通下,看看能不能有什么变相的解决办法吧。我们是意外的发现了开发人员在做单体测试时候有一个用标准delphi控件开发的工具,可以取得当前系统的大部分属性值。于是最后采用在delphi系统里执行动作,在这个标准控件开发的工具里取得值进行测试的方法。测试人员和开发人员是一条绳上的蚂蚱,试着和他们去多多的沟通,看看他们有没有或者会不会去帮你做这么一个第三方的工具。
④:速度问题,CS系统不像Web,可以靠sync来知道页面有没有响应完全。所以响应时间是个问题,也就是有时候QTP太快了。。。。。。
目前的解决办法一个是在脚本里加wait 最好是加在一些常用的共通方法里,比较容易控制。另一个就是先做出判断,再进行下一步动作,比如判断某控件的某属性变化到了预期目标,再进行下一步动作。 |
|