德尔福+突触: How to check if I am still connected

Question

我正在使用TTCPBlockSocket对于 TCP/IP 应用程序。问题是我无法确定连接何时丢失。

GetLastError 返回 0
读取返回0

但是即使应用程序已连接，我也会遇到这些值，因此我可以获取它，当 TCP/IP 连接丢失时如何通知我。

谢谢

Answer 1

我想说，你可以使用CanRead方法，将 0 传递给其 Timeout 参数。该函数内部执行 select函数用于套接字并在发生错误时返回 False。由于select，仅使用此方法就足够了如果失去连接，函数将返回 SOCKET_ERROR，并导致 CanRead方法返回 False 作为结果。所以我认为，这样检查套接字连接是否还活着就足够了:

function IsSocketAlive(ASocket: TTCPBlockSocket): Boolean;
begin
  Result := ASocket.CanRead(0);
end;