delphi - 如何处理 TIdHTTP.Get 请求的对等异常连接重置？

Question

在我的 VCL 应用程序中，我使用TIdHTTP.Get()从 RESTful Web 服务中检索数据。在我的应用程序中，我使用以下代码：

var
  HTTP: TIdHTTP;
  ws: WideString;
begin
  ws := HTTP.Get('http://www.restfulwebservice.com/' + ObjectId);
end;

我的应用程序总是在 Windows 工作站上运行，我从不想关闭它。但是，它有时会报告一个令人讨厌的异常Connection Reset By Peer。这通常发生在一些不活动之后。

在这种情况下，我必须关闭应用程序并重新打开它，因为我不知道如何处理这个异常。我想正确处理它（在一个try..except块内？）以重新打开连接，因此无需关闭并重新运行我的应用程序。

有没有关于如何捕捉和处理上述异常的做法？我的研究向我展示了一些例子TIdTCPServer，但不是TIdHTTP。

我在 Windows 7 x64 上使用 Delphi Berlin 10.1 Subscription Update 2。