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

Question

我正在 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;

Answer 1

采用 Indy 或 Synapse 库(两者都是免费的，indy 包含在 Delphi 中，synapse 可以在 google 上找到)并使用它们的 HTTP 客户端类来完成这项工作。