TestComplete测试计算器实例

^8l}7H,dJF
JP0TestComplete测试计算器实例

qiguojie原创文章，转载请注明出处，非常感谢！51Testing软件测试网.U?)R'XSu

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

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

TestComplete的简单使用步骤：51Testing软件测试网W}2M'x9W?\/|t
1、打开TestComplete51Testing软件测试网P$t-W8V2}J*MI
2、选择菜单 File - New - New Project创建一个新项目
/O@?)M+~JM2t F o03、选择General - Purpose Test Project，然后选择Language为Delphiscrīpt后OK
~6X{5T n-i,i8yk04、Select Project Items中默认，然后Finish即可
i
x0H1s,x.P6S05、在Project Workspace的Project Explorer中点击脚本对应的Unit1单元文件51Testing软件测试网C4X:^4t9C \a
6、复制下面的代码到单元文件
5TB&M:h\ly| E?07、保存，然后F9执行

p2U2Hd#f|&dy051Testing软件测试网{ R,U#E\NelB;Z
//========================51Testing软件测试网-T6xh;M0g
//Author:qiguojie51Testing软件测试网0c#K1Oj2Sz ?8O'sM j
//Date:2008-04-3051Testing软件测试网s"SC6L7TL
//scrīpt Type: Delphiscrīpt51Testing软件测试网p3D1JI+a0Xd s
//========================
0jUS1xvo0procedure Test1;         //执行测试51Testing软件测试网V-Wz+]~e#d0R
    var w1 : OleVariant;
l b
N^$R\W vE.m0    var num : OleVariant;
+D;Jr8t0g0    var w2 : OleVariant;
gb"h3V0v4\ }6@P L0    var w3 : OleVariant;
XZccp#lXb!V0    i : Integer;51Testing软件测试网6U!hIrFG`
begin
9M$j3@/x aN0//对象定义区51Testing软件测试网kW8V!~:e[
    w1 := Sys.Process('calc').Window('SciCalc', '计算器');   51Testing软件测试网A7Z&c*MESQ
    w2 := w1.Window('Button', '**');   
9dT&q`7V/]0    w3 := w1.Window('Button', '=');   
z UI C#W+s(p0//循环执行10次51Testing软件测试网'P NH(X/i&B;\
    for i := 0 to 9 do51Testing软件测试网:} |B'q+k1bq0m
    begin
_c,A-E%LLg*K0        num := w1.Window('Button',i);
9Fm2Dz3Id!G4X0        num.ClickButton;
NT ?:Pu?B0        w2.ClickButton;51Testing软件测试网&d/r%AT"Y
pC"VX
        num.ClickButton;
W(X z;M t0        w3.ClickButton;    51Testing软件测试网)tk)vuc[
    end;
U7U+n(]"WGh#Md(s0end;

procedure Test2;
X4{vO8wID:^0    var p1 : OleVariant;
#|,~&O|*X8?E/ZZ7I0begin
9JD1P3A;c0    if not Sys.Process('calc').Exists then51Testing软件测试网p)|,G-]*}l#K*Qw
    begin
1G$^?(N e0        p1 := Sys.Process('Explorer');51Testing软件测试网p[*|hS_
        p1.Window('CabinetWClass', 'DDT&NameMapping').Window('SHELLDLL_DefView').Window('DUIViewWndClassName').Window('DirectUIHWND').Window('CtrlNotifySink').Window51Testing软件测试网H Ut#Z[%LI

('SysListView32', 'FolderView').Keys('[Win]r');51Testing软件测试网n7j+u5C'Y&b7] Q
        Sys.Keys('[Hold][Win]r[Release]');
\:R;B?8?v0        p1.Window('#32770', '运行').Window('ComboBox').Window('Edit').Keys('calc');51Testing软件测试网9K3^*I`G9YKr5QPJ
        p1.Window('#32770', '运行').Window('Button', '确定', 2).ClickButton;    
2{f!D1R*H6D0    end51Testing软件测试网ov4g`P1h
    else begin51Testing软件测试网HS9Z?`oQ,Pr
        log.warning('The calc is running!!');
u.J%f vzoZ,Tk0    end;51Testing软件测试网5^-dl k$nC&M$[c
end;

procedure Main;51Testing软件测试网$L]0f9H/O~
begin51Testing软件测试网7`.T mS3_:p
    try
6|B`LN6_`l0        Test2;
I TxL$V6iKbmH0        Test1;
"a1HKq%w5c5W-?0    except
A0U)oP
s){P r0        Log.Error('Exception', ExceptionMessage);
Dd#RNs7E0    end;
7k-O%Wg^*b,W1J0end;51Testing软件测试网/?T3M}v*^b

//=====================51Testing软件测试网Cf~Gr0QC

^'j9Z8tG/\0 

脚本说明：51Testing软件测试网!c sVjH6^

这个是一个使用计算器自动计算 0-9每个数自乘的脚本。51Testing软件测试网N0\WV;?
脚本语言我选择的是Delphi，因为TC的C++脚本和LR的C差太多，我感觉读起来非常难懂。

s
iu_$Y}K/A-x!?0
"{#OZa[ C0在使用TC中我发现了2个问题：
t.Vz.K8L2{2zYZ01、TC的脚本中对中文的处理不是很好，容易出现问题（例如添加中文的注释或者打印Log时输出中文的信息，有时会报错）
b8E gX&m&b['}`5P02、Main过程如果放在Test1，Test2上面，就无法找到Test1和Test2，我记得是可以声明一下，但是好久没用Delphi不会弄了

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

可以+MSN交流:qiguojie at hotmail dot com51Testing软件测试网%AP ^&w!o7{,R6`L _