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