Delphi 如何使用TIdTCPClient或其他Indy客户端组件计算网站的响应时间？

我有一个应用程序，它使用TIdTCPClient从给定网站发送和接收数据-如下所示：

TCPClient.Host := myHost;
TCPClient.Port := myPort;
TCPClient.Connect;
TCPClient.IOHandler.Write(clientRequest);
TCPClient.IOHandler.ReadStream(clientResponse, size, False);

其中

clientRequest

是动态创建的，而

clientResponse

是服务器（通缉网站）作为响应发送的。因此我的问题是如何计算TCPClient连接到的网站的平均响应时间？

看看Indy的

Ticks（）

和

GetTickDiff（）

函数，例如：

uses
  ..., IdGlobal;

var
  StartTicks: LongWord;
begin
  ...
  StartTicks := Ticks;
  TCPClient.IOHandler.ReadStream(clientResponse, size, False);
  Elapsed := GetTickDiff(StartTicks, Ticks);
  ...
end;

---

你有什么问题？测量时间或计算平均值？如果你在与网站交谈，为什么要使用

TIdTCPClient

而不是

TIdHTTP

？@Remy就像我在问题中说的那样-只要有人提供计算网站响应时间的解决方案，任何Indy客户端都会做这项工作-我只有两个应用程序-一个是tidthttp，另一个是TIdTCPClient，并且只提供了其中一个应用程序的示例代码它们。@SirRufo我将不得不为两者编写代码，但测量时间的优先级更高。@Roman_Bezjak:您的问题中没有提到“任何”Indy客户端，或者您有另一个使用

TIdHTTP

的应用程序。