如何设置socket通信的连接超时

最新推荐文章于 2024-02-23 09:55:15 发布

原创最新推荐文章于 2024-02-23 09:55:15 发布 · 6.1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#socket #integer #delphi #服务器 #通讯 #windows

本文介绍如何在Delphi中设置Socket连接、发送和接收的超时时间，通过非阻塞模式实现快速连接扫描，避免长时间等待。适用于需要频繁扫描端口的应用场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在建立socket连接时可以很容易设置socket通信的发送和接收超时时间，但是在建立socket通信时，如果是Win98系统，则如果连接失败，则程序会一直等待在哪里，Windows2000默认超时时间是30秒，当然，这个超时时间不算长，但是加入我们要循环扫描一系列端口并且建立连接的话，总的等待时间就会让人忍受不了，下面就以delphi为例进行说明，如何在建立socket的时候设置其超时时间：

//连接，发送和接收时间都设为2秒

SctTimeOut := 2000;
//设置接收数据通信超时
setsockopt(hSock,SOL_SOCKET,SO_RCVTIMEO,@SctTimeOut,SizeOf(Integer));
//设置发送数据通信超时
setsockopt(hSock,SOL_SOCKET,SO_SNDTIMEO,@SctTimeOut,SizeOf(Integer));

//首先，设置通讯为非阻塞模式
dwArg := 1;
RecvLen := ioctlsocket(hSock,FIONBIO,dwArg);

//其次，连接服务器
ZeroMemory(@addr, sizeof(addr));
addr.sin_family := AF_INET;
addr.sin_addr.S_addr := inet_addr(pchar(SvrIP));
addr.sin_port := htons(Strtoint(SvrPort));
RecvLen := 0;
RecvLen := connect(hSock, addr, sizeof(addr));

//再次，设置连接超时时间为2秒
tmOut.tv_sec := 2;
tmOut.tv_usec := 0;
FD_ZERO(recvSet);
FD_SET(hSock, recvSet);

RecvLen := select(0, @recvSet, @recvSet, nil, @tmOut);

//连接失败，报错误信息

if (RecvLen = 0) or (RecvLen = SOCKET_ERROR) then
begin
ErrMsg := '连接服务器失败！';
exit;
end;

//最后，设置通讯为阻塞模式
dwArg := 0;
RecvLen := ioctlsocket(hSock,FIONBIO,dwArg);
//end modify