delphi - 在仅 ipv6 网络上使用 Indy IdTelnet

Question

Apple App Store 要求应用程序只能在 IPv6 网络上运行。如何使 IdTelnet 在此类网络上工作？

Answer 1

TIdTelnet 具有 IPVersion 属性，但它被声明为 protected，因此无法由用户代码直接访问。为了设置IPVersion，您可以声明一个 hack 类，例如:

uses
  .., IdStack, IdGlobal, ..

type
   TIdTelnetHack = class(TIdTelnet)
   published
     property IPVersion;    //expose protected property
   end;

procedure TForm1.TelnetConnect(const aHost:String);
var
  aIPVersion: TIdIPVersion;
begin
  if not IdTelnet1.Connected then 
  begin  //not connected. go connect
    // check if ipv6 or ipv4 network, and support both, 
    try
      GStack.ResolveHost(aHost, Id_IPv6);
      aIPVersion := Id_IPV6;
    except
      GStack.ResolveHost(aHost, Id_IPv4);
      aIPVersion := Id_IPV4;
    end;

    IdTelnet1.Host := aHost;   
    IdTelnet1.Port := 8090;   
    TIdTelnetHack(IdTelnet1).IPVersion := aIPVersion;  //set to IPv4 or IPv6

    IdTelnet1.Connect;
  end;
end;

要在 IPv6 网络上测试您的应用，请将您的 Mac 设置为 IPv6 接入点，如下所述:

Supporting IPv6 DNS64/NAT64 Networks