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

Question

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

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

clientRequest 是动态创建的，clientResponse 是服务器(所需网站)发送的响应。所以我的问题是如何计算平均响应时间从我的 TCPClient 连接到的网站？

Answer 1

看Indy的Ticks()和GetTickDiff()函数，例如:

uses
  ..., IdGlobal;

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