Rad Studio中TIdHTTP组件如何通过代码设置IPVersion适配IPv6？

你提到的TIdHTTP确实没有直接暴露IPVersion属性，但可以通过几种方式实现IPv6支持，结合你当前“IPv4失败则重试IPv6”的逻辑，我整理了几个可行的方案：

方案1：全局设置Indy栈的IP版本（简单但影响全局） #

Indy的所有网络组件共享一个全局TIdStack实例，你可以在创建TIdHTTP前临时修改全局栈的IP版本，用完后恢复。这种方法适合快速测试，但会影响其他Indy组件的网络请求：

var
  OldIPVersion: TIdIPVersion;
begin
  // 保存原IP版本
  OldIPVersion := GStack.IPVersion;
  try
    // 先尝试IPv4请求
    GStack.IPVersion := Id_IPv4;
    try
      IdHTTP1.Get('http://example.com/file.zip', LocalStream);
    except
      on E: Exception do
      begin
        // IPv4失败，切换到IPv6重试
        GStack.IPVersion := Id_IPv6;
        IdHTTP1.Get('http://example.com/file.zip', LocalStream);
      end;
    end;
  finally
    // 恢复原IP版本，避免影响其他组件
    GStack.IPVersion := OldIPVersion;
  end;
end;

方案2：手动解析域名获取IPv6地址（精准控制单个请求） #

如果不想影响全局组件，可以用TIdDNSResolver手动解析目标域名的IPv6记录（AAAA记录），再直接用IPv6地址构造URL发起请求。这种方式更灵活，能针对单个TIdHTTP请求单独处理：

uses
  IdHTTP, IdDNSResolver, IdStack;

function GetIPv6Address(const ADomain: string): string;
var
  DNSResolver: TIdDNSResolver;
  I: Integer;
begin
  Result := '';
  DNSResolver := TIdDNSResolver.Create(nil);
  try
    DNSResolver.Host := '8.8.8.8'; // 可替换为系统默认DNS或其他公共DNS
    DNSResolver.Resolve(ADomain);
    // 遍历结果查找IPv6类型记录
    for I := 0 to DNSResolver.QueryResult.Count - 1 do
    begin
      if DNSResolver.QueryResult[I].RecType = rtAAAA then
      begin
        Result := DNSResolver.QueryResult[I].RData;
        Break;
      end;
    end;
  finally
    DNSResolver.Free;
  end;
end;

// 下载逻辑示例
procedure TForm1.DownloadFile;
var
  IPv6Addr: string;
  OriginalURL, IPv6URL: string;
  LocalStream: TFileStream;
begin
  OriginalURL := 'http://example.com/file.zip';
  LocalStream := TFileStream.Create('local_file.zip', fmCreate or fmShareDenyWrite);
  try
    // 先尝试IPv4请求
    try
      IdHTTP1.Get(OriginalURL, LocalStream);
      Exit;
    except
      // IPv4失败，进入IPv6重试流程
    end;

    // 获取目标域名的IPv6地址
    IPv6Addr := GetIPv6Address('example.com');
    if IPv6Addr <> '' then
    begin
      // 构造IPv6格式URL（注意IPv6地址需加方括号）
      IPv6URL := StringReplace(OriginalURL, 'example.com', '[' + IPv6Addr + ']', []);
      IdHTTP1.Get(IPv6URL, LocalStream);
    end
    else
    begin
      raise Exception.Create('无法获取目标域名的IPv6地址');
    end;
  finally
    LocalStream.Free;
  end;
end;

方案3：自定义TIdHTTP子类暴露IPVersion属性（优雅的局部控制） #

TIdHTTP内部依赖TIdCustomTCPClient处理连接，你可以通过继承TIdHTTP，直接暴露底层的IPVersion属性，实现单个请求的独立控制：

uses
  IdHTTP, IdTCPClient;

// 自定义TIdHTTP子类，开放IPVersion设置
type
  TIdHTTPEx = class(TIdHTTP)
  public
    property IPVersion: TIdIPVersion read FIPVersion write FIPVersion;
  end;

// 使用示例
procedure TForm1.DownloadFile;
var
  HTTPEx: TIdHTTPEx;
  LocalStream: TFileStream;
begin
  HTTPEx := TIdHTTPEx.Create(nil);
  LocalStream := TFileStream.Create('local_file.zip', fmCreate or fmShareDenyWrite);
  try
    // 先尝试IPv4
    HTTPEx.IPVersion := Id_IPv4;
    try
      HTTPEx.Get('http://example.com/file.zip', LocalStream);
      Exit;
    except
      // IPv4失败，切换IPv6重试
    end;

    HTTPEx.IPVersion := Id_IPv6;
    HTTPEx.Get('http://example.com/file.zip', LocalStream);
  finally
    LocalStream.Free;
    HTTPEx.Free;
  end;
end;

另外要注意，在iOS平台上需确保你的应用已开启IPv6支持（Xcode项目设置中启用IPv6相关选项），且测试环境具备IPv6网络，才能正常验证重试逻辑。

内容的提问来源于stack exchange，提问作者relayman357