解决time_wait强制关闭socket_应用技巧教程-查字典教程网
解决time_wait强制关闭socket
解决time_wait强制关闭socket
发布时间:2016-12-26 来源:查字典编辑
摘要:解决time_wait今天我在测试代码的时候,边开边看电影,服务端的CPU消耗和内存使用让我挺满意的可是过了一会,在统计达到了一定连接后,后...

解决time_wait

今天我在测试代码的时候,边开边看电影,服务端的CPU消耗和内存使用让我挺满意的

可是过了一会,在统计达到了一定连接后,后来连接很多无法登陆。象上公交车,拥

挤不堪无法上车,用netstat-an查看了下连接状态,time_wait状态的端口非常多

原因就在此了,消耗完系统的端口数,服务端将就无法接收新连接,找到问题就来说明

time_wait,这个东西默认存活时间为2分钟,够长的,这点很要命,更多的大家百度下

对付这个问题,我写了一个函数,强制关闭socket,代码环境{delphi7+windowsxp}

PS:只会点pascal,其他不熟。

functionForceCloseSocket(DestSock:TSocket):Boolean;

var

NoWait:Boolean;

NLinger:Tlinger;

begin

Result:=False;

NoWait:=False;

ifSetSockOpt(DestSock,SOL_SOCKET,SO_DONTLINGER,@NoWait,sizeOf(Boolean))=SOCKET_ERRORthen

Result:=False;

NLinger.l_onoff:=1;

NLinger.l_linger:=0;

ifSetSockOpt(DestSock,SOL_SOCKET,SO_LINGER,@NLinger,sizeOf(NLinger))=SOCKET_ERRORthen

Result:=FalseelseResult:=True;

ifCloseSocket(DestSock)=SOCKET_ERRORthenResult:=FlaseelseResult:=True;

end;

Dz编辑器真是头大,麻烦,这个是强制关闭函数,一点心得,与大家分享下,欢迎PM消息批评指正。

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新应用技巧学习
    热门应用技巧学习
    网页设计子分类