使用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;