今天我在测试代码的时候，边开边看电影，服务端的CPU消耗和内存使用让我挺满意的
可是过了一会，在统计达到了一定连接后，后来连接很多无法登陆。象上公交车，拥
挤不堪无法上车，用netstat -an查看了下连接状态，time_wait状态的端口非常多
原因就在此了，消耗完系统的端口数，服务端将就无法接收新连接，找到问题就来说明
time_wait，这个东西默认存活时间为2分钟，够长的，这点很要命，更多的大家百度下
对付这个问题，我写了一个函数，强制关闭socket,代码环境{delphi7+windows xp}
PS:只会点pascal，其他不熟。
function ForceCloseSocket(DestSock:TSocket):Boolean;
var
NoWait:Boolean;
NLinger:Tlinger;
begin
Result:=False;
NoWait:=False;
if SetSockOpt(DestSock,SOL_SOCKET,SO_DONTLINGER,@NoWait,sizeOf(Boolean))=SOCKET_ERROR then
Result:=False;
NLinger.l_onoff:=1;
NLinger.l_linger:=0;
if SetSockOpt(DestSock,SOL_SOCKET,SO_LINGER,@NLinger,sizeOf(NLinger))=SOCKET_ERROR then
Result:=False else Result:=True;
if CloseSocket(DestSock)=SOCKET_ERROR then Result:=Flase else Result:=True;
end;
Dz编辑器真是头大，麻烦，这个是强制关闭函数，一点心得，与大家分享下，欢迎PM消息批评指正。
以上就是【解决time_wait强制关闭socket】的全部内容了,欢迎留言评论进行交流!
2. 分享目的仅供大家学习和交流，您必须在下载后24小时内删除！
3. 不得使用于非法商业用途，不得违反国家法律。否则后果自负！
4. 本站提供的源码、模板、插件等等其他资源，都不包含技术服务请大家谅解！
5. 如有链接无法下载、失效或广告，请联系管理员处理！
6. 本站资源售价只是赞助，收取费用仅维持本站的日常运营所需！
7. 如遇到加密压缩包，请使用WINRAR解压,如遇到无法解压的请联系管理员！
8. 精力有限，不少源码未能详细测试（解密），不能分辨部分源码是病毒还是误报，所以没有进行任何修改，大家使用前请进行甄别
丞旭猿论坛
暂无评论内容