mmz-asio4delphi死链接的解决办法

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

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

        try
          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++代码：

DllExport int Asio_closesocket(session * isocket)
{
    //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 ;
}

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

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

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

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

DllExport int Asio_Client_Free(session * isocket)
{
    delete isocket;
    return ;
}

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

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

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

void handle_write(const boost::system::error_code& error,int iuser,int iuser2)
  {
    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"。终于可以解决问题了啊。

try
          if TAsioClient(FClientLst.Objects[i]).Socketptr >  then begin
            TAsioClient(FClientLst.Objects[i]).Write(@bytes[],);
        except
        end; 

只要在一段时间没数据收发以后，随便给这个客户端发点东西，如果发送错误，自动会断开链接。