最近一段时间，因为忙于网络的项目，特意到网上找了些例子，特意花时间研究了一下马敏钊写的 mmz-asio4delphi 感觉很好用，不过深入研究之后，发现一个问题。
马大的这个代码，会产生死链接。
if TAsioClient(FClientLst.Objects[i]).Socketptr > 0 then begin
Asio_closesocket(TAsioClient(FClientLst.Objects[i]).Socketptr);
TAsioClient(FClientLst.Objects[i]).Socketptr := 0;
end;
//Asio_DisConnedCallback(integer(TAsioClient(FClientLst.Objects[i])));
except
end;
这是TAsioSvr.CheckDeadClients中的一段代码，可能跟原版的有点区别，不过大体在这。可以看到，上面的代码中，如果socketptr不为0则调用asio_closesocket函数关闭，
然后直接给Socketptr赋值为0。但运行后发现，虽然程序中socketptr已经赋值为0，并且对应的客户端也已经删除，但在Windows中，该链接还是存在，当初占用的端口依旧被占用。
在程序中的体现就是：显示AsioSvr.FClientLst.Count 和 AsioSvr.FDeadClients.Count 的数量，要远远小于，从360看到的该程序占用链接的数量，说明其中很多死链接存在。
以下是asio_closesocket的C++代码：
Asio_closesocket
{
//isocket->userdata=0;//不允许再触发
try
{
isocket->deadtime=GetTickCount();
isocket->socket().cancel();
boost::system::error_code ignored_ec;
isocket->socket().shutdown(boost::asio::ip::tcp::socket::shutdown_both, ignored_ec);
isocket->socket().close();
}
catch(...)
{}
//EnterCriticalSection(&criCounter);
//deadlist.push_back(isocket);
//LeaveCriticalSection(&criCounter);
//delete isocket;
return 0;
}
因为不怎么懂C++，所以不知道该怎么改。那怎么解决死链接杀不掉的问题呢？
有的大大说，只要把Delphi代码中注释的那句Asio_DisConnedCallback(integer(TAsioClient(FClientLst.Objects[i]))); 去掉注释就可以。
其实只要看看Asio_DisConnedCallback的执行代码就知道，问题依然存在。甚至是Delphi中，将对应的客户端对象释放，对应的socket链接还是没有断开。
后来看C++代码的时候，发现了下面这个函数：
Asio_Client_Free
{
delete isocket;
return 0;
}
可以删除socket对象！这实在是太棒了，正是我想要的。
可是，应用中才发现，这个函数带来了另外一个问题。删除自身的socket链接的同时，居然将监控端口的socket也删除了！
无奈，只能另找办法。功夫不负有心人，无意中发现，原来可以用write函数来达到删除socket的目的。
handle_write
{
if(Callback_writedata!=NULL)
{
// std::cout << "write ok " << iuser << "\n" ;
Callback_writedata(iuser,iuser2);
}
if (!error)
{
}
else
{
socket_.close();
if(Callback_DisConn!=NULL)
{
Callback_DisConn(userdata);
}
delete this;
}
}
从上面的代码可以看到，如果write出错，函数会disconn的回调函数，并且"delete this"。终于可以解决问题了啊。
if TAsioClient(FClientLst.Objects[i]).Socketptr > 0 then begin
TAsioClient(FClientLst.Objects[i]).Write(@bytes[0],1);
except
end;