delphi - 更换功能单元

Question

我正在为大型 Delphi 代码库编写单元测试基础结构。我想将对 SysUtils.FileExists 中的纯函数的调用链接到“MockSysUtils.FileExists”。

编译器不支持创建具有相同接口(interface)的 SysUtils 单元。

我正在考虑的是在运行时 Hook 我的模拟函数。现在这可能吗？

还有其他建议吗？

问候，

彼得

Answer 1

在运行时替换函数很困难，但通常在技术上是可行的。您需要做的“全部”是:

• 获取相关函数的地址
• 反汇编前 5 个字节左右(以检查 RET 指令 - 非常小的例程可能会与另一个例程相邻，从而阻止您替换它)
• 将其页面保护(使用 VirtualProtect )更改为可写
• 使用 JMP rel32 指令重写前 5 个字节(即 E9 )
• 正常实现您的版本函数，确保它与您正在模拟的函数具有相同的参数和调用约定

更简单的方法是链接不同版本的 SysUtils.pas。这还需要您重新编译 RTL 和 VCL 中依赖于 SysUtils.pas 的所有单元，但这可能比上面描述的函数检测方法容易得多。

最简单的方法是语言级别的方法，您要么根本不直接依赖 SysUtils(因此可以在更高级别进行切换)，要么将 uses 声明修改为有条件地引用不同的单位。