delphi - 如何以编程方式获取网站的状态标题

我正在Delphi中编写需要获取网站状态的Win32服务（如果您不知道Delphi，应该可以翻译任何其他代码）。我知道如何在.NET中执行此操作，但是不确定基于Windows的常规编程。因此，我需要查询一个网站并返回状态码200、301等。然后，我的计划是解析返回的数据并在我的一个站点出现故障时发送电子邮件。

有人可以伸出援手吗？

编辑：这是我最后使用的代码-使用TIDHttp Indy组件。

IdHTTP.Get('http://www.example.com');
  if IdHTTP.Connected then begin
     ResponseCode := IntToStr(IdHTTP.ResponseCode);
     ShowMessage(ResponseCode);
  end;

最佳答案

以Indy或Synapse库（都是免费的，Indy包含在Delphi中，synapse在google上找到）并使用其HTTP客户端类来完成这项工作。