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

在Delphi 10.3.3 Pro中使用Indy获取域名的到期日期，可以按照以下步骤进行：

首先，确保已经安装并配置好Indy组件库。可以从 https://www.indyproject.org 下载最新版本的Indy组件，并将其添加到Delphi的组件库中。
在Delphi的主界面中，创建一个新的控制台应用程序项目。
在程序代码中，使用以下代码片段来实现获取域名到期日期的功能：

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.

在上述代码中，我们通过发送HTTP GET请求到 "http://whois.domaintools.com/" 加上要查询的域名，然后从响应中提取到期日期信息。注意将 "example.com" 替换为你要查询的域名。