Delphi中"包"的妙用

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

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

　　当然了，也是有几种方式可以找到的：

　　将代码植入到系统中，编译的时候可以直接找到。

　　编译的时候，带上Map文件，可以通过Map找到函数地址。测试框架以Dll的方式远程注入。

　　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，都会受到影响。而这也正是我们想要的。

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