51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2660|回复: 6
打印 上一主题 下一主题

[原创] qtp8.2录制delphi系统

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-1-6 17:40:39 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请大家帮我看下咯:如下是使用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 这是怎么回事呢,急!希望大家能帮我看看。
在下感激不尽!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2009-1-6 17:42:44 | 只看该作者
我一点也感觉不到delphi啊,好像都是window.
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2009-1-6 17:47:35 | 只看该作者
我也不晓得啊。可是我的delphi的确又是加载进去了的
不然我怎么可以看见delphiname呢。并且加入进去咯!
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2009-1-6 17:49:06 | 只看该作者
你看这里面都有delphi

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2009-1-6 22:43:17 | 只看该作者
还挺复杂
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2009-1-7 09:08:06 | 只看该作者
Window("NS7管理系统---教师录入").WinObject("朝霞").Type "朝霞" 这一句能录制成Window("NS7管理系统---教师录入").WinObject("TcxCustomInnerTextEdit").Type "朝霞" 就没问题了,问题原因是窗口混乱,我也遇到过。
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2009-1-7 09:35:49 | 只看该作者
楼上的兄弟,我试过,手工把他改成Window("NS7管理系统---教师录入").WinObject("TcxCustomInnerTextEdit").Type "朝霞"   
但是貌似还是说不能识别TcxCustomInnerTextEdit  以及后面出现的TcxCustomInnerTextEdit都还是不能识别
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-16 02:40 , Processed in 0.079849 second(s), 29 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表