cddwzx 发表于 2009-1-6 17:40:39

qtp8.2录制delphi系统

请大家帮我看下咯：如下是使用qtp8.2录制的 delphi开发的一个应用系统：（我已经装了delphi8.2的插件的）
我现在是老话题，不能识别对象（前提，凡是录制下来在回放的过程中，拥有delphiname!=null的 就可以正确的识别到delphi的控件对象）
Services.StartTransaction "login"
Window("登录").WinEdit("TEdit").Set "admin"
Window("登录").WinEdit("TEdit").TypemicTab
Window("登录").WinEdit("TEdit_2").SetSecure "49631bd5eb975e894e828a8e2765276f2c67"
Window("登录").WinEdit("TEdit_2").TypemicReturn
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:44

我一点也感觉不到delphi啊，好像都是window.

cddwzx 发表于 2009-1-6 17:47:35

我也不晓得啊。可是我的delphi的确又是加载进去了的
不然我怎么可以看见delphiname呢。并且加入进去咯！

cddwzx 发表于 2009-1-6 17:49:06

你看这里面都有delphi

hansongj 发表于 2009-1-6 22:43:17

还挺复杂

zhangxinnow 发表于 2009-1-7 09:08:06

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

cddwzx 发表于 2009-1-7 09:35:49

楼上的兄弟，我试过，手工把他改成Window("NS7管理系统---教师录入").WinObject("TcxCustomInnerTextEdit").Type "朝霞"   
但是貌似还是说不能识别TcxCustomInnerTextEdit以及后面出现的TcxCustomInnerTextEdit都还是不能识别
页: [1]
查看完整版本: qtp8.2录制delphi系统