delphi 获取url状态码

unit Unit3;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

  TForm3 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

{$R *.dfm}

uses

  StrUtils,IdHTTP

    ,System.Net.HttpClient,

  System.Net.Mime

  ,System.Net.URLClient, System.Net.HttpClientComponent,System.RegularExpressions,System.NetEncoding;

function GetURLStatusCode(const AURL: string): integer;

var

  HttpClient: THttpClient;

  HttpResponse: IHttpResponse;

begin

  HttpClient := THTTPClient.Create;

  HttpClient.ResponseTimeout:=5000;

  HttpClient.ConnectionTimeout:=5000;

  try

  try

    HttpResponse := HttpClient.Head(AURL);

    Result := HttpResponse.StatusCode;

        except

        Result := 404; // or: code := ;

    end;

  finally

    HttpClient.Free;

  end;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

Memo1.Text:=IntToStr(GetURLStatusCode('http://xy0520.xyz')) ;

end;

end.