[摘录]网络通信中的心跳机制的实现

TCP中已经实现了心跳的机制, 如果设置了心跳，那TCP就会在一定的时间（比如设置的是３秒钟）内发送设置的次数的心跳（比如说２次），并且此信息不会影响自定义的协议。

定义心跳常量

const

IOC_IN               =$80000000;

IOC_VENDOR           =$18000000;

IOC_out              =$40000000;

SIO_KEEPALIVE_VALS   =IOC_IN or IOC_VENDOR or 4;

var

inKeepAlive,OutKeepAlive:TTCP_KEEPALIVE;

实现代码是在Acceptsc:= WSAAccept(Listensc, nil, nil, nil, 0) 代码的后面加入：

opt:=1;

if setsockopt(Acceptsc,SOL_SOCKET,SO_KEEPALIVE,@opt,sizeof(opt))=SOCKET_ERROR then

begin

closesocket(Acceptsc);

end;

inKeepAlive.onoff:=1;

//设置３秒钟时间间隔

inKeepAlive.keepalivetime:=3000;

//设置每３秒中发送１次的心跳

inKeepAlive.keepaliveinterval:=1;

insize:=sizeof(TTCP_KEEPALIVE);

outsize:=sizeof(TTCP_KEEPALIVE);

if WSAIoctl(Accept,SIO_KEEPALIVE_VALS,@inKeepAlive,insize,@outKeepAlive,outsize,@outByte,nil,nil)=SOCKET_ERROR then

begin

closesocket(Acceptsc);

end;

如果加入以上的代码以后，系统会每３秒中加入一次的心跳。并且如果客户端断线以后（网线断），函数GetQueuedCompletionStatus会返回FALSE。

if (GetQueuedCompletionStatus(CompletionPort, BytesTransferred,DWORD(PerHandleData), POverlapped(PerIoData), INFINITE) = False) then

begin

//在这里处理客户端断线信息。

continue;

end;

以上就是使用心跳的方法.