Delphi设计简易对象垃圾回收框架

Delphi设计简易对象垃圾回收框架2008-02-021 缘起

1.1 我的一个出错程序

程序名称：呼叫处理模块的压力测试工具，分为客户端和服务端。

开发工具：Delhpi 5

相关技术：客户端通过与服务端建立Socket连接来模拟一组电话机的拨入、按键、等待、挂机等过程。服务端对Socket事件以及收到的数据包进行预处理，并转化为抽象的呼叫模型数据，然后发送给更上层的呼叫处理模块。由于呼叫处理模块是硬件无关的（与语音板卡、交换机类型均无关），因此通过此压力测试工具可以比较真实地模拟海量呼叫，以达到测试呼叫处理模块程序的逻辑正确性及其性能的目的。

由于设计时的某些考虑，该测试工具被分作客户端和服务端两个程序来实现，且采用socket进行通讯。现在想来，其实不如整合成一个程序实现更为简单——但也正因为采用两个程序来实现，才引发了后面的一些问题，并由此引入了简单的垃圾回收框架。

1.2 问题

在测试工具的使用过程中，我们发现当呼叫量巨大，且测试工具动作频繁的情况下，系统出现以下错误：

访问地址错（EAccessViolation），代码地址位于$0046FC80附近，访问地址多为$00000028。

出现EinvalidCast错误，该错误表明对一个地址进行类类型转换时出错（采用as关键字）。

程序内多处断言失败，出现许多引用已销毁对象的情况。

仔细检查程序后，我仍然认为这一切简直是不可思议！而且，本来用于对别的程序进行测试的程序自身却出现这类问题，几乎让我无地自容！

为了挽回自己的声誉，我不得不成沉住气来仔细跟踪错误，排解问题！

2 解决办法

2.1 查错

其实问题的解决还比较顺利。

通过查看程序的调用栈，发现程序出错前总是停留在发送Socket数据包的过程里。接着，进一步通过单步跟踪，发现在发送数据包的过程中，Socket检测到对端连接已经断开，就会触发OnDisconnect事件。而我正是在ServerSocket的OnDisconnect事件中根据传递进来的Socket句柄，找到对应的对象将之销毁的。