在Delphi 10中检查客户端与TIdTCPServer的连接质量

时间:2017-04-12 03:58:35

标签: delphi networking indy10

使用Delphi 10,我有一个TIdTCPServer接收来自不同客户端的连接,一些是Windows客户端,另一些是移动(iOS和Android)。

有没有办法确定Indy TCP服务器和连接到该服务器的Indy TCP客户端之间的连接质量?

我尝试使用TIdICMPClient,但问题是某些Windows客户端使用防火墙阻止ping。

我应该为要发布的问题指定一个代码..所以..

function Testquality: boolean;
begin
  IdIcmpClient1.ReceiveTimeout := 500;
  IdIcmpClient1.Host := host;
  IdIcmpclient1.OnReply := PingReply;
  IdIcmpClient1.Ping;
  Result := IdIcmpClient1.ReplyStatus.ReplyStatusType <> rsTimeout;
end;

0 个答案:

没有答案