delphi域名解析

uses
  IdGlobal, IdDNS, IdTCPClient;

procedure TForm1.ResolveDomain(const Domain: string);
var
  DNSResolver: TIdDNS;
  TCPClient: TIdTCPClient;
begin
  DNSResolver := TIdDNS.Create(nil);
  TCPClient := TIdTCPClient.Create(nil);

  try
    DNSResolver.Host := '8.8.8.8'; // 使用Google的公共DNS服务器
    DNSResolver.Port := 53;
    DNSResolver.Resolve(Domain, TCPClient);

    if DNSResolver.QueryResult = nil then
    begin
      ShowMessage('域名解析失败');
    end
    else
    begin
      ShowMessage('域名解析成功: ' + DNSResolver.QueryResult.AnswerList[0].AddressAsString);
    end;
  finally
    DNSResolver.Free;
    TCPClient.Free;
  end;
end;