51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3225|回复: 9
打印 上一主题 下一主题

[原创] Test Complete自动测试工具参数化吗?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-11-24 15:18:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Test Complete自动测试工具参数化吗?
最近在使用这个工具测试delphi开发的程序,录制脚本,文本框的内容在回放前必须修改的和录制不一样,才可以用。(注:数据都保存到数据库中,不能输入重复的名称)
这个工具是否可以象QTP那样,可以进行参数化,在此谢谢大家了。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2009-11-25 09:53:56 | 只看该作者
怎么没人回答呢?
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2009-11-25 10:08:01 | 只看该作者
怎么可能不可以参数化呢?
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2009-11-25 10:16:47 | 只看该作者

回复 3# 的帖子

这个工具不可以做参数化?
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2009-11-25 10:19:25 | 只看该作者

回复 4# 的帖子

肯定可以的 这是自动化测试工具的基本要求
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2009-11-25 12:07:03 | 只看该作者

回复 5# 的帖子

谢谢。怎么使用呢?我想对一个文本框进行参数化。
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2009-11-25 19:53:11 | 只看该作者
我没用过该工具 但一般参数都差不多的 你看看EXAMPLE文件 里面肯定有
回复 支持 反对

使用道具 举报

该用户从未签到

8#
 楼主| 发表于 2009-11-27 12:19:39 | 只看该作者
问题已经解决了。
TestComplete从Excel中导入数据,进行参数化方法:
定义全局变量:
Var
        MSExcel:OleVariant;
        ExcelFile;
声明函数:
function ReadExcel(i,j):string;forward;
在项目中定义变量:
i,j:integer; //声明取值的变量
FileName:string;//声明文件路径
begin
初始化变量赋值:
        i:=0;
        j:=0;
        FileName:='磁盘名\文件名.xls'//给文件路径赋值
        ExcelFile := Sys.WaitProcess('EXCEL');\\获取excel系统进程
if ExcelFile.Exists then\\判断EXCEL进程是否存在,如果存在结束进程,不存在就创建
      ExcelFile.Terminate();
  try
      MsExcel := Sys.OleObject('Excel.Application');
  except
      Log.Warning('Unable to initialize MS Excel.', '', pmHigher);
      Exit;
  end;
  MsExcel.Workbooks.Open(FileName);\\打开EXCEL文件
       
找到需要参数化的地方,将Excel的是赋给它
w4.Keys(ReadExcel(i,j));//获取EXCEL值


function ReadExcel(i,j):string;//自定义从EXCEL取值函数
begin   
    Result := MsExcel.Cells(i,j).Value;
end;
将代码贴出来 大家可以看看
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2010-4-8 10:17:04 | 只看该作者
  1. //EXCELPATH为表格路径,SHEET为需要参数的sheet
  2. //ColumnIndex 是需要参数化的数值所在的列,从第2行开始计数(不包括首行标题)
  3. Sub Main
  4.   dim EXCELPATH,SHEET
  5.   EXCELPATH = "D:\test.xlsx"   
  6.   SHEET = "Sheet1"
  7.   set Driver = DDT.ExcelDriver(EXCELPATH,SHEET,true)
  8.   Call test(Driver)
  9.   DDT.CloseDriver(Driver.Name)
  10. End Sub

  11. sub test(Driver)  
  12.   while not Driver.EOF          
  13.     log.message(Driver.Value(ColumnIndex))                              
  14.     Call driver.next   
  15.   Wend
  16. End Sub
复制代码

[ 本帖最后由 carol2000 于 2010-4-8 11:48 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

10#
发表于 2010-4-9 13:30:52 | 只看该作者
用TestComplete的DDT对象可以实现数据驱动测试
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-26 18:43 , Processed in 0.067735 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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