TestComplete测试计算器实例

qiguojie原创文章，转载请注明出处，非常感谢！

最近换了工作，做管理不做技术了，因此钻研东西的时间很少；最近是因为写自动化测试规划，要选择一种测试工具，特意学习了TestComplete，不过正在学习中，希望可以和大家分享一些学习的经验，希望和大家多多交流，共同进步。

我是在网上找的TestComplete 5，并且破解后使用的（因为Demo版存在若干限制），学习可以，真正要给公司用时我还是希望公司可以出钱买个正版（根据了解，不是很贵好像），也希望大家支持正版软件。

TestComplete的简单使用步骤：
1、打开TestComplete
2、选择菜单 File - New - New Project创建一个新项目
3、选择General - Purpose Test Project，然后选择Language为Delphiscrīpt后OK
4、Select Project Items中默认，然后Finish即可
5、在Project Workspace的Project Explorer中点击脚本对应的Unit1单元文件
6、复制下面的代码到单元文件
7、保存，然后F9执行

//========================
//Author:qiguojie
//Date:2008-04-30
//scrīpt Type: Delphiscrīpt
//========================
procedure Test1;         //执行测试
    var w1 : OleVariant;
    var num : OleVariant;
    var w2 : OleVariant;
    var w3 : OleVariant;
    i : Integer;
begin
//对象定义区
    w1 := Sys.Process('calc').Window('SciCalc', '计算器');   
    w2 := w1.Window('Button', '**');   
    w3 := w1.Window('Button', '=');   
//循环执行10次
    for i := 0 to 9 do
    begin
        num := w1.Window('Button',i);
        num.ClickButton;
        w2.ClickButton;
        num.ClickButton;
        w3.ClickButton;    
    end;
end;

procedure Test2;
    var p1 : OleVariant;
begin
    if not Sys.Process('calc').Exists then
    begin
        p1 := Sys.Process('Explorer');
        p1.Window('CabinetWClass', 'DDT&NameMapping').Window('SHELLDLL_DefView').Window('DUIViewWndClassName').Window('DirectUIHWND').Window('CtrlNotifySink').Window

('SysListView32', 'FolderView').Keys('[Win]r');
        Sys.Keys('[Hold][Win]r[Release]');
        p1.Window('#32770', '运行').Window('ComboBox').Window('Edit').Keys('calc');
        p1.Window('#32770', '运行').Window('Button', '确定', 2).ClickButton;    
    end
    else begin
        log.warning('The calc is running!!');
    end;
end;

procedure Main;
begin
    try
        Test2;
        Test1;
    except
        Log.Error('Exception', ExceptionMessage);
    end;
end;

//=====================

脚本说明：

这个是一个使用计算器自动计算 0-9每个数自乘的脚本。
脚本语言我选择的是Delphi，因为TC的C++脚本和LR的C差太多，我感觉读起来非常难懂。

在使用TC中我发现了2个问题：
1、TC的脚本中对中文的处理不是很好，容易出现问题（例如添加中文的注释或者打印Log时输出中文的信息，有时会报错）
2、Main过程如果放在Test1，Test2上面，就无法找到Test1和Test2，我记得是可以声明一下，但是好久没用Delphi不会弄了

通过这个实例，我简单的掌握了TC脚本的一些基本概念，目前还没有找到添加检查点以及其他的一些功能，等以后学习的多了，再总结一下吧。

可以+MSN交流:qiguojie at hotmail dot com

添加需要比较的文件有以下3种方法：软件测试专业网站:51Testing软件测试网IH[ [s~
  软件测试专业网站:51Testing软件测试网 @^#L x"q3\
//1.Add files from the Files editor软件测试专业网站:51Testing软件测试网*Zw
j6sP[#Y0n
//2.Add files from the Project Explorer软件测试专业网站:51Testing软件测试网,qy Kxj
//3.Add files from scrīpts

在TC里，封装了好几个文件比较的方法，主要有以下几种：
pMzQqx~:]0//4.Comparing files by bytes软件测试专业网站:51Testing软件测试网.| vnbb$Zj%gA
//使用正则表达式比较文件（RegExpr）
Nk?M _'e2T0//5.Comparing files with variable parts

具体使用如下：

procedure AddfileFromscrīpt;软件测试专业网站:51Testing软件测试网%yi;z"BVG,u R
b"Q
begin
(Q!c
qyFl`v0  if not Files.Add('..\..\TestFile_old.txt', 'TestFile_old') then软件测试专业网站:51Testing软件测试网 F["y-[gR
    Log.Message(Files.LastError);软件测试专业网站:51Testing软件测试网XL3l7JW5l
  if not Files.Add('..\..\TestFile_new.txt', 'TestFile_new') then
W7F/l;l3y
C%w0    Log.Message(Files.LastError);
&C6rGD+ha0  if not Files.Add('..\..\TestFile_new_space.txt', 'TestFile_new_space') then软件测试专业网站:51Testing软件测试网i j~/@-h"{P
    Log.Message(Files.LastError);
o)^@
jS-Y
k*C0end;

//获取文件方式软件测试专业网站:51Testing软件测试网j_+{b TK$Ut
//FileNameByIndex、FileNameByName、NameByIndex 、NameByFileName 、FileNamesList、NamesList
rH$Is9S8M/zq0procedure GetFile;
3g i1e/[7sj j*Orc0begin
6b1w8i-]6F3t,F9M
}%xT0  showmessage(Files.FileNameByIndex(0));
h2D,~+rM2?&X0end;

//常用比较文件方式软件测试专业网站:51Testing软件测试网 @z%e/L N)? q+Y K {%S
procedure ComparefileBytes;软件测试专业网站:51Testing软件测试网%gX Z\7? k;W
begin软件测试专业网站:51Testing软件测试网;ST,?w1\2T\
  if not Files.Compare(files.FileNameByName('TestFile_old'), files.FileNameByName('TestFile_new')) then软件测试专业网站:51Testing软件测试网Du)f3J3YB;|?%|La
    showmessage(files.LastError);软件测试专业网站:51Testing软件测试网(FMh6R4\8B8wK
end;

//通过Hash值比较文件
z|!`t4] H%b0procedure ComparefileHash;
V`i!Sx }l6G!{{\0var Hash : OleVariant;//Hash记录两个文件的差异值软件测试专业网站:51Testing软件测试网-j,rWc0DRmw_
begin
Xu#a&cDcq0  Hash := Files.CalculateHashValue(files.FileNameByName('TestFile_old'), files.FileNameByName('TestFile_new_space'));
z&A#y/}F}O0  if not Files.Compare(files.FileNameByName('TestFile_old'), files.FileNameByName('TestFile_new_space'),Hash) then软件测试专业网站:51Testing软件测试网4@JA'qnx"_'|qz
    showmessage(files.LastError)
IBI0Jg0  else showmessage('The two files is equal!');
|2OrE4tE0end;

procedure Test_Sample;软件测试专业网站:51Testing软件测试网3x t$ZJI
begin
a6yt;YXu-wit0  Aliases.TCSampleForm.Drag(224, 17, 162, 0);
T4t.v3l'@9g:}$@0  Aliases.TCSampleSys.Process('Explorer').Window('Shell_TrayWnd').Window('ReBarWindow32').Window('MSTaskSwWClass', '运行应用程序').Window('ToolbarWindow32', '运行应用程序').CheckItem('TestComplete - C:\Documents and Settings\temp\桌面\hzr-TechED\TCSamples\TCSamples', -1, false);软件测试专业网站:51Testing软件测试网,P8W-t$~!}i0QCs
end;

在自动化的过程中，经常需要对两个对象（或属性）进行比较，看否前后一致，来判断某个对象是否被修改过，而在TC中就提供了这样的方法：Objects.Compare(Object1,Object2)

首先，我们要添加两个对象，可以在脚本录制或回放过程添加，也可以在这之前添加，通过以下方法可以添加对象：

//添加对象属性方式软件测试专业网站:51Testing软件测试网"`yh J w`wq Z z+G
//1.Adding property collections from the Object Browser软件测试专业网站:51Testing软件测试网 xH;M-_\9QA9|
//2.Adding property collections from the Object Properties window软件测试专业网站:51Testing软件测试网
^w)I+CR|J:E h1?
//3.Adding property collections from the Tools toolbar 软件测试专业网站:51Testing软件测试网|w#Uif+f9~
//4.Adding property collections during recording软件测试专业网站:51Testing软件测试网$RL^6jbRO;i-A
//5.Adding property collections from scrīpts软件测试专业网站:51Testing软件测试网 PYC9Ta^ypS
//6.Adding property collections from the Objects editor软件测试专业网站:51Testing软件测试网&Z/O?bz5Fxm5R
//7.Adding property collections from the Project Explorer

接下来就是如何比较了，这些方法具体使用如下：

//在脚本中添加对象属性
e\vF
{F(ERd?0procedure AddObjectfromscrīpt;软件测试专业网站:51Testing软件测试网#e^.H)h2]*Y ?X4U
var软件测试专业网站:51Testing软件测试网 U/Vc7i;W$jZEN
  w, PropertyNames, CollectionName : OleVariant;
gf _U F%U5c!HG]/t0begin
.SG KV{ Uj&k"W0  //激活窗体软件测试专业网站:51Testing软件测试网Sm \{"Hlr$E
  Aliases.TCSampleForm.Activate;软件测试专业网站:51Testing软件测试网+TXc9D.B:nB.M
  //保存当前激活的窗体对象 软件测试专业网站:51Testing软件测试网 g"j+XhM
  w := Sys.Desktop.ActiveWindow();软件测试专业网站:51Testing软件测试网|v5mwj
XHG.d
  //设置将要保存的属性名称   软件测试专业网站:51Testing软件测试网:|+B3Cl|T|3z
  PropertyNames := 'WndCaption';
7o3J&N#O r@#Y+t:S0  //设置在Object集合中保存的名称软件测试专业网站:51Testing软件测试网})_jP8{4M\
  CollectionName := 'TCSampleFormName';
L;x
I N"] GU.f!l0  //保存激活窗体对象属性
v[z)p-?0  Objects.Save(w, CollectionName,PropertyNames);
Gqv:U1hU T+Q0end;

//比较操作数1的对象属性名称是否改变软件测试专业网站:51Testing软件测试网1\;q8W oR#oI$e@
procedure CompareOperend1;
H2k6QE8N3w0begin
fx,Gr2Yc0  if not Objects.Compare(Aliases.TCSampleOperand1, 'TCSampleOperand1') then
%gK#ErS)W0    showmessage('Objects are not identical.'+Objects.LastError)软件测试专业网站:51Testing软件测试网,K%GY)~2Y:E-l
else showmessage('Objects are identical.');
:Z9G{
thQ W0end;

注，以上脚本都很简短，是因为对象做了别名映射。

在TC中，提供了一个Regions对象集合，专门管理图像对象，可以通过以下方法添加图像对象到Regions集合中：

//添加图像方式：软件测试专业网站:51Testing软件测试网:@T-K-T/@q `
//1.Add images from the Regions editor
X LIa6C0SE0//2.Add images from the Project Explorer软件测试专业网站:51Testing软件测试网1XMv_r,n-i9j&r!B
//3.Add images from the Image Viewer软件测试专业网站:51Testing软件测试网albFi(W;I
//4.Add images during recording
p+XH@"~ qE,X0//5.Add images from scrīpts

Regions对象封装了几个常用的方法，如Regions.AddPicture（添加图像）、Regions.GetPicture（获取图像）、Regions.FindRegion（查找图像）、Picture.Find（查找图像）等，具体使用如下：

//在脚本中添加图像
c7G3u#xdhK,Q:R0procedure AddImageFromscrīpt;
3}3`~ qA0begin软件测试专业网站:51Testing软件测试网&P%@z~`%|~
  //添加主窗体图像软件测试专业网站:51Testing软件测试网 R:O]F,kofM k[
  Regions.AddPicture(Aliases.TCSampleForm,'TCSampleForm');软件测试专业网站:51Testing软件测试网w`oF C/U2} T*Y"m
  //添加主窗体中操作数1的图像
F P5j0}2Pw4R0  Regions.AddPicture(Aliases.TCSampleOperand1,'TCSampleOperand1'); 
5gP g9j ?7[0end;

//回放脚本过程中截取图像与在Regions集合中的图像进行比较
/^D[4_W0procedure CompareImage_Playback;    软件测试专业网站:51Testing软件测试网+{I5Ed0zT.X}
begin
V7@N%h _7T{0NC0  if not Regions.Compare('TCSampleFormChangeName', Aliases.TCSampleForm) then软件测试专业网站:51Testing软件测试网J f(wr&R(O9B
    Log.Error('The compared regions are not identical.', Aliases.TCSampleForm.Name);   软件测试专业网站:51Testing软件测试网b:B
TC%USGaw#W2}
end;

//Regions集合中两个图像进行比较 软件测试专业网站:51Testing软件测试网8c#X8j1I_h
]1t
procedure CompareImage_Regions; 
2J7bl8P[R#o0begin 软件测试专业网站:51Testing软件测试网.C/Jw/Z%M[ v0A
  if not Regions.Compare('TCSampleFormChangeName', 'TCSampleForm') then
ny_L'g y.x-G{ ln0    Log.Error('The compared regions are not identical.', 'TCSampleForm');
yU*O w[(@0end;

//使用Picture对象比较两个图像   软件测试专业网站:51Testing软件测试网Mn6y*~]1B9R8Jl?
procedure CompareImage_Picture;
? P"V/Vo oD3}0var pict1,pict2 : olevariant;
+U;r([ CU ~2\ sY5ZY0begin   软件测试专业网站:51Testing软件测试网A`x"z @\QM H
  pict1 := Regions.GetPicture('TCSampleForm');软件测试专业网站:51Testing软件测试网 F)lY1pY\-cQ
  pict2 := Regions.GetPicture('TCSampleFormChangeName');
%EB d
r"kTC$F0  if not pict1.Compare(pict2) then软件测试专业网站:51Testing软件测试网 J0w0N Ay3G3j
    Log.Error('The compared regions are not identical.');    
8k:c%`~M G~(xa0end;

//使用Regions对象的FindRegion方法查找图像  软件测试专业网站:51Testing软件测试网a.W k$Dv#unJ
procedure FindImage_Regions; 软件测试专业网站:51Testing软件测试网([ u&x V#aFm5Z%J
var pict1,pict2 : olevariant;软件测试专业网站:51Testing软件测试网b2j!r*J3{'m
begin  
1T2CLM N j0  if (Regions.FindRegion('TCSampleOperand1','TCSampleForm') = nil) then软件测试专业网站:51Testing软件测试网[5FW.G,ZA
    Log.Warning('Picture not found.');     软件测试专业网站:51Testing软件测试网\u yz-~ {Rh
end;

//使用Picture对象的Find方法查找图像 软件测试专业网站:51Testing软件测试网[BfK4a.^ ?o
procedure FindImage_Picture;
me}B,CJu J'i0var pict1,pict2 : olevariant;软件测试专业网站:51Testing软件测试网2X)}X0U_O E wDw:a8X
begin   软件测试专业网站:51Testing软件测试网yf-Yx_H
  pict1 := Regions.GetPicture('TCSampleForm');
2sam6J3b0  pict2 := Regions.GetPicture('TCSampleOperand1');软件测试专业网站:51Testing软件测试网8ih iO(~
  if (pict1.Find(pict2) = nil) then软件测试专业网站:51Testing软件测试网X i$m0Ox
    Log.Warning('Picture not found.');       
7F't4c!J1WlQ!D6t0end;
M"k\4e~d0

在TC6.0以上版本中，增加了支持checkpoint（检查点）的功能，在一定程度上减轻了开发脚本的工作量，可以在录制脚本过程中添加，也可以以一般方式添加检查点，非常方便灵活。录制过程添加如下：

例如，要建立第三个Object检查点，见以下界面：

可以通过点击右边的 图标，添加对象，设置好对象名称，点击OK，就会弹出对象属性选择的对话框，选择需要检查的属性（checkpoint），TC就会自动生成检查点的脚本，并插入到脚本文件中，有需要，可以再适当对脚本做些处理，非常方便。

其他CheckPoint的使用类似。

TestComplete从Excel取值实例

qiguojie的51testing原创文章，转载请注明出处，非常感谢！

因为曾经使用过Winrunner 7.6，对其自动的数据驱动测试功能印象非常深刻（独立的一个功能模块，可以方便的从Excel中读取数据进行参数化的输入），非常的方便。刚开始接触TestComplete时就记得2点：一个是WR支持鼠标操作录制但很不好用，TestComplete对其支持就非常好；另外一个就是WR的数据驱动功能比TC的强太多。

但是数据驱动测试是自动化测试的一个应用非常多的测试类型，因此我查询了TC的帮助文件，写了一个实例出来，描述怎么才能从Excel文件中获取对应的数据。

TestComplete的简单使用步骤：
1、打开TestComplete
2、选择菜单 File - New - New Project创建一个新项目
3、选择General - Purpose Test Project，然后选择Language为Delphiscrīpt后OK
4、Select Project Items中默认，然后Finish即可
5、在Project Workspace的Project Explorer中点击脚本对应的Unit1单元文件
6、复制下面的代码到单元文件
7、保存，然后F9执行

//========================
//Author:qiguojie
//Date:2008-05-05
//scrīpt Type: Delphiscrīpt
//========================

//定义全局变量
var
     MSExcel : OleVariant;
     ExcelFile;

//声明读取值的函数
function ReadExcel(i,j):string;forward;

Procedure MyTest;
var
    i,j : Integer;
    FileName : String;
begin
    FileName := 'E:\1.xls';
    j := 1;

//检查Excel是否启动
    ExcelFile := Sys.WaitProcess('EXCEL');
    if ExcelFile.Exists then
        ExcelFile.Terminate();
    try
        MsExcel := Sys.OleObject('Excel.Application');
    except
        Log.Warning('Unable to initialize MS Excel.', '', pmHigher);
        Exit;
    end;

//打开对应Excel文件
    MsExcel.Workbooks.Open(FileName);

//循环取出10个值
    for i := 1 to 10 do
    begin
        log.message(ReadExcel(i,j));
    end;
end;

//读取值的函数实现
function ReadExcel(i,j):string;
begin   
    Result := MsExcel.Cells(i,j).Value;
end;

写完这个实例，我相信大家都可以知道怎么从Excel中读取某一个cell(块)的值了；
可以+MSN交流:qiguojie at hotmail dot com

Borland 出品的 StarTeam，是个版本控制软件 (Source Control)。

如果你的团队是用 Borland Delphi 开发软件的，也有可能正在利用 Starteam 来作为版本控制的。

TestComplete 自从版本 5 以内，亦支援使用 StarTeam 来控制测试项目档案的版本的。

不过，就连国外的网站也偶尔看到有人问：‘我的本机上已经安装了 StarTeam Client 了，为何在 TestComplete 的 Tools > Options > Source Control 里面仍未见有 StarTeam 可供选择呢?’

如需要将 TestComplete 和 StarTeam 整合，你是需要在机上安装 Borland StarTeam SCC Integrations 的。可以在以下官方网址下载 (页内找一找 SCC 这个便是)：

http://www.borland.com/downloads/download_starteam_integrations.html

安装之后，或需要重新启动。

再启动 TestComplete 之后，就可以在 Options 里面选择了。

- 完 -