51Testing软件测试论坛

标题: qtp8.2录制delphi系统 [打印本页]

作者: cddwzx 时间: 2009-1-6 17:40
标题: qtp8.2录制delphi系统
请大家帮我看下咯：如下是使用qtp8.2录制的 delphi开发的一个应用系统：（我已经装了delphi8.2的插件的）
我现在是老话题，不能识别对象（前提，凡是录制下来在回放的过程中，拥有delphiname!=null的就可以正确的识别到delphi的控件对象）
Services.StartTransaction "login"
Window("登录").WinEdit("TEdit").Set "admin"
Window("登录").WinEdit("TEdit").Type  micTab
Window("登录").WinEdit("TEdit_2").SetSecure "49631bd5eb975e894e828a8e2765276f2c67"
Window("登录").WinEdit("TEdit_2").Type  micReturn
Services.EndTransaction "login"

Services.StartTransaction "教师录入"
Window("NS7管理系统---首页").WinObject("TdxNavBar").Click 43,104
Window("NS7管理系统---首页").WinObject("TdxNavBar").Click 50,133
Window("NS7管理系统---教师录入").WinObject("添加").Click 20,10
Window("NS7管理系统---教师录入").VirtualButton("button").Click
Window("NS7管理系统---教师录入").WinObject("朝霞").Type "朝霞"    //这一句里，其实第一个“朝霞”，我spy出来是TcxCustomInnerTextEdit 这个名称的。当然后面的凡是TcxCustomInnerTextEdit 这个在回放中都不能识别到
Window("NS7管理系统---教师录入").WinObject("TcxComboBox").Click 140,6
Window("NS7管理系统---教师录入").WinObject("TcxCustomInnerTextEdit").Click 38,1
Window("NS7管理系统---教师录入").WinObject("TcxCustomInnerTextEdit").Type"198604161231234"
Window("NS7管理系统---教师录入").WinObject("TcxCustomInnerTextEdit_2").Click 19,11
Window("NS7管理系统---教师录入").WinObject("TcxCustomInnerTextEdit_2").Type "成都市"
Window("NS7管理系统---教师录入").WinObject("TcxComboBox_2").Click 34,13   //这个，TcxComboBox也不能从他的下拉框中取值出来
Window("NS7管理系统---教师录入").WinObject("保存").Click 55,14
Window("NS7管理系统---教师录入").Dialog("提示").WinButton("确定").Click
Window("NS7管理系统---教师录入").WinObject("退出").Click 14,10
Services.EndTransaction "教师录入"

Window("NS7管理系统---教师录入").WinObject("TcxGridSite").Click 105,24   //TcxGridSite在回放过程中也不能被识别对对象

后面我在我的objectrepository 中观察到，我不能识别到的控件对象，上面出来了 windows id并且有相对应的值，可是delphiname的值却为空  （回放中，能识别的对象，都没有windows id 并且delphiname均有对应的值。我也提前把哪里买的windows id 给清除了的，加上了delphiname ）这是怎么回事呢，急！希望大家能帮我看看。
在下感激不尽！

作者: david208 时间: 2009-1-6 17:42
我一点也感觉不到delphi啊，好像都是window.

作者: cddwzx 时间: 2009-1-6 17:47
我也不晓得啊。可是我的delphi的确又是加载进去了的
不然我怎么可以看见delphiname呢。并且加入进去咯！

作者: cddwzx 时间: 2009-1-6 17:49
你看这里面都有delphi

作者: hansongj 时间: 2009-1-6 22:43
还挺复杂

作者: zhangxinnow 时间: 2009-1-7 09:08
Window("NS7管理系统---教师录入").WinObject("朝霞").Type "朝霞" 这一句能录制成Window("NS7管理系统---教师录入").WinObject("TcxCustomInnerTextEdit").Type "朝霞" 就没问题了，问题原因是窗口混乱，我也遇到过。

作者: cddwzx 时间: 2009-1-7 09:35
楼上的兄弟，我试过，手工把他改成Window("NS7管理系统---教师录入").WinObject("TcxCustomInnerTextEdit").Type "朝霞"
但是貌似还是说不能识别TcxCustomInnerTextEdit 以及后面出现的TcxCustomInnerTextEdit都还是不能识别

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)