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

web*_*oob 3 delphi service windows-services http-status-codes http-headers

我正在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;
Run Code Online (Sandbox Code Playgroud)

Eug*_*its 5

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