在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
最近一段时间,因为忙于网络的项目,特意到网上找了些例子,特意花时间研究了一下马敏钊写的 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 0; } 因为不怎么懂C++,所以不知道该怎么改。那怎么解决死链接杀不掉的问题呢? 有的大大说,只要把Delphi代码中注释的那句Asio_DisConnedCallback(integer(TAsioClient(FClientLst.Objects[i]))); 去掉注释就可以。 其实只要看看Asio_DisConnedCallback的执行代码就知道,问题依然存在。甚至是Delphi中,将对应的客户端对象释放,对应的socket链接还是没有断开。 后来看C++代码的时候,发现了下面这个函数: DllExport int Asio_Client_Free(session * isocket) { delete isocket; return 0; } 可以删除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 > 0 then begin TAsioClient(FClientLst.Objects[i]).Write(@bytes[0],1); except end; 只要在一段时间没数据收发以后,随便给这个客户端发点东西,如果发送错误,自动会断开链接。
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论