如何在Delphi 10.3.3 Pro中使用Indy获取域名的到期日期？

uses
  System.SysUtils, IdHTTP, IdGlobal;

function GetDomainExpirationDate(domain: string): TDateTime;
var
  http: TIdHTTP;
  response: string;
  expirationDate: string;
  dateString: string;
begin
  http := TIdHTTP.Create(nil);
  try
    response := http.Get('http://whois.domaintools.com/' + domain);
    expirationDate := Copy(response, Pos('Expiration Date:', response) + 16, 10);
    dateString := Copy(expirationDate, 5, 2) + '/' + Copy(expirationDate, 7, 2) + '/' + Copy(expirationDate, 1, 4);
    Result := StrToDate(dateString);
  finally
    http.Free;
  end;
end;

procedure Main;
var
  domain: string;
  expirationDate: TDateTime;
begin
  domain := 'example.com'; // 替换成你要查询的域名
  expirationDate := GetDomainExpirationDate(domain);
  WriteLn('Domain: ', domain);
  WriteLn('Expiration Date: ', FormatDateTime('yyyy-mm-dd', expirationDate));
end;

begin
  try
    Main;
  except
    on E: Exception do
      WriteLn('Error: ', E.Message);
  end;
end.