
	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

简易对象垃圾回收框架 for Delphi

作者：闵涛文章来源：闵涛的学习笔记点击数：1700 更新时间：2009/4/23 18:35:10

1 缘起

1.1 我的一个出错程序

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

开发工具：Delhpi 5

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

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

1.2 问题

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

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

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

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

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

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

2 解决办法

2.1 查错

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

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

我在ServerSocket的OnDisconnect事件中的代码如下：

procedure Txxxx.ServerClientDisconnect(Sender: TObject;

Socket: TCustomWinSocket);

Begin

…

FLines.DestroyLineBySocket(Socket);//正是这一句，在不合适的时机释放了对象

…

End;

问题是这么出现的。

比如，在某个过程中具有如下代码（前面为行号）：

1 FLine.DoSomething；

2 FLine.SendSocketData；

3 FLine.DoOtherThings；

其中，FLine是代表一路呼叫的对象。该对象内部引用了一个TCustomWinSocket指针。SendSocketData就是利用此Socket进行数据发送。

Flines是TLine对象的容器类的一个实例。

由此不难解读前述的各类错误：

1．由于行2的Socket连接断开导致FLine对象释放，因此行3访问DoOtherThings几乎必然造成访问地址错；

2．由于行2的对象销毁，因此程序中类似“Object as TLine”的代码导致第二类错误；

3．由于对象提前销毁，善后处理工作未到位导致第三类错误；

2.2 解决方案

明白其原因后，问题解决起来就容易多了。

上述问题不外乎两个方案：

一，判断实例是否存在

在DoOtherThings之后，判断FLine对象是否仍然处于Flines之中，若是则继续处理，否则结束处理；

二，延迟销毁FLine对象

在ServerSocket的OnDisconnect中，将FLine对象抛入垃圾池，待时机成熟时再销毁。

考虑到方案一所要改动的代码量较大，同时，此种方案代码也不甚优美，因此决定采用方案二，即引入垃圾回收机制来解决问题。方案二的要点是选择合适的时机真正销毁对象。而对于这一点，问题倒不大，只需选择消息循环中处理消息的第一个环节进行回收即可。因为在之后的处理环节中，必然能够确保对FLine是否仍然有效的检查。