自动化测试框架的基础是钩子,也就是常说的HOOK机制。但这在实际的应用过程中可能会遇到一些问题。

一旦要做钩子,那么就必须获取函数地址。由于我原先设计的钩子的目标函数,都是Delphi的内部函数,也就是说,这些函数在编译之后,很难找到。

当然了,也是有几种方式可以找到的:

  1. 将代码植入到系统中,编译的时候可以直接找到。
  2. 编译的时候,带上Map文件,可以通过Map找到函数地址。测试框架以Dll的方式远程注入。
  3. Delphi中的包,可以公布这些函数的地址

前两种方式,有一个最大的缺点,在于必须为自动化测试,特别编译一个版本。虽然说可以接受,但显然不是最好的方案。第三种方案虽然好,但是前提是系统必须构建在带包编译的基础上。

幸好,我们目前的测试的系统就具备这样的条件。

那么,对于自动化测试框架来说,只需要随意作为一个Dll,并注入到原系统中就可以了。如果原系统提供了注入的扩展,那是最好。因为这样调试起来很方便。否则就做成远程注入,不过调试的时候只能Attach了,很麻烦。

这个时候,只需要将包含自动化测试框架代码的测试用例代码,对VCL的包,带包编译,就可以做到对包中函数的HOOK了。不过这里面还是有一些细节需要注意的。原先我用的是FastCode的HOOK代码,但是在代表编译的时候就失效了。经过追查,发现代表编译和非带包编译的代码不一样。由于VCL的代码,编译到了包中,那么本Dll在调用包中的方法的时候,加上了跳转指令。简单的就是一个call操作。在包装载的时候,call后的地址会更新。

经过一些探索,发现中国的cnPack(www.cnpack.org)中早就针对这个问题有了解决方案。其实方法也很简单,就是判断一下是否存在地址跳转,如果有的话,就取跳转后的地址,否则取当前地址。

完成了钩子后,我们就会发现,在我的测试用例的Dll中,对Bpl中的方法,进行了HOOK。请注意,这里面有一个选择,就是在Dll内部HOOK,还是在Bpl内部HOOK。在Dll内部HOOK,只需要修改跳转地址即可,钩子的方法很简单。在Bpl中HOOK,则需要修改函数代码的前5个字节,这种方法复杂,但是使得入口单一,一处修改,全面有效。

自动化测试框架,就是选用的后者的HOOK方法。这样,我们在Dll中,对Bpl中的方法进行了HOOK,所有带着此包编译的DLL或者EXE,都会受到影响。而这也正是我们想要的。

解决了这个问题后,我们就可以针对已有的系统安装程序进行测试,而不需要修改任何开发代码(包括版本构造过程)。满足这个特性非常好!