最近一段时间，因为忙于网络的项目，特意到网上找了些例子，特意花时间研究了一下马敏钊写的 mmz-asio4delphi 感觉很好用，不过深入研究之后，发现一个问题。

马大的这个代码，会产生死链接。

这是TAsioSvr.CheckDeadClients中的一段代码，可能跟原版的有点区别，不过大体在这。可以看到，上面的代码中，如果socketptr不为0则调用asio_closesocket函数关闭，

然后直接给Socketptr赋值为0。但运行后发现，虽然程序中socketptr已经赋值为0，并且对应的客户端也已经删除，但在Windows中，该链接还是存在，当初占用的端口依旧被占用。

在程序中的体现就是：显示AsioSvr.FClientLst.Count 和 AsioSvr.FDeadClients.Count 的数量，要远远小于，从360看到的该程序占用链接的数量，说明其中很多死链接存在。

以下是asio_closesocket的C++代码：

因为不怎么懂C++，所以不知道该怎么改。那怎么解决死链接杀不掉的问题呢？

有的大大说，只要把Delphi代码中注释的那句Asio_DisConnedCallback(integer(TAsioClient(FClientLst.Objects[i]))); 去掉注释就可以。

其实只要看看Asio_DisConnedCallback的执行代码就知道，问题依然存在。甚至是Delphi中，将对应的客户端对象释放，对应的socket链接还是没有断开。

后来看C++代码的时候，发现了下面这个函数：

可以删除socket对象！这实在是太棒了，正是我想要的。

可是，应用中才发现，这个函数带来了另外一个问题。删除自身的socket链接的同时，居然将监控端口的socket也删除了！

无奈，只能另找办法。功夫不负有心人，无意中发现，原来可以用write函数来达到删除socket的目的。

从上面的代码可以看到，如果write出错，函数会disconn的回调函数，并且"delete this"。终于可以解决问题了啊。