connect 、recv、send 超时解决方案

问题：经验分享1： connect 、recv、send 超时解决方案 ( 积分：0, 回复：19, 阅读：756 ) 分类：Internet/TCPIP ( 版主：luyear, robertcool )
来自：leaber, 时间：2005-6-7 17:34:00, ID：3097068	[显示：小字体 | 大字体]
好多朋友在问这个问题，希望我的文档能对大家有所帮助~~！！ CONNECT 连接超时解决方案 和send recv 超时解决方案 leaber                                         2004-10-12整理测试                             做网络程序中会经常见到判断CONNECT超时的问题，解决的思路是这样的, 首先把要连接服务器的SOCKET转换为非阻塞方式后进行连接，然后利用 时间差值来判断是否超时。 如果成功的话就把SOCKET再设为阻塞方式，当然如果超时的话你就看着办吧！ 时间差值的计算方式有好多种，我的实现方式是以SELECT来实现的. ===============这里是我成功测试的代码==========================   Skt := Socket(AF_INET, 1, 0);   ca.sin_family := AF_INET;   ca.sin_port := htons(80);   FD_ZERO(fs);   FD_SET(skt, fs);   timeout.tv_sec := 10;   timeout.tv_usec := 500;   //在这里完成CONNECT超时检查的功能   ulB := 1;   ioctlsocket(Skt, FIONBIO, ulB);   if Connect(skt, ca, sizeof(ca)) = SOCKET_ERROR then   begin     if (WSAGetLastError() = WSAEWOULDBLOCK) then     begin       FD_ZERO(fs);       FD_SET(skt, fs);       rc := select(0, nil, @fs, nil, @Timeout);     end;   end;   if rc = 0 then   begin     //ShowMessage('connect overtime!');     CloseSocket(skt);     exit;   end;   ulB := 0;   ioctlsocket(Skt, FIONBIO, ulB);   //CONNECT 超时功能结束 通过SETSOCKOPT可以完成对RECV和SEND相应的超时设置！   //完成SETSOCKOPT 进行相应的发送和接收的超时   timeout1 := 5000;   if SetSockOpt(skt, SOL_SOCKET, SO_SNDTIMEO, pchar(@TimeOut1), SizeOf(TimeOut1)) <> 0     then     Exit;   if SetSockOpt(skt, SOL_SOCKET, SO_RCVTIMEO, pchar(@TimeOut1), SizeOf(TimeOut1)) <> 0     then     Exit;