Delphi iOS IPv6 App Store拒否

Question

私たちはRAD Studio 10.0 Seattleを使用して、Webサービス経由でデータを取得するiOSアプリケーションを構築しています。 Appleは2016年6月1日以降、すべてのアプリでIPv6をサポートする必要があるため、Appのアップデートは拒否されました。

WSDL Importerを使用して、RAD StudioでWebサービスクラスを作成し、Webサービスを呼び出します。アプリがIPv6ネットワークに接続すると、Socket Error #51 Network is unreachable...がスローされます。

この問題を解決する方法を知っている人はいますか？

Answer 1

このFUNCを試してみてください：

function GetHost(Host: String): Boolean; 
begin 
    result := ''; 
    try 
    GStack.ResolveHost(Host, TIdIPVersion.Id_IPv6); 
    result := '[' + Host + ']'; 
    except 
    GStack.ResolveHost(Host, TIdIPVersion.Id_IPv4); 
    result := Host; 
    end; 
end; 

あなたでを追加 "IdStack" と "IdGlobal"

あなたが（たとえばwww.google.com）あなたのホストを渡す必要がありますを使用し、 funcは '['があるかどうかにかかわらず結果を返します。

さて、あなたはそれを使用する必要があります... 'のhttp：//' +はGetHost（ 'www.google.com'）

あなたはIPv6ネットワーク内にある場合、最終的な文字列は

（ http://[www.google.com]）になります

Answer 2

前の回答を使用して私はこのコードを思いつきました。私は完全な石鹸のURLを入力することができ、IPV6 URLの正しいIPV4を返します。使用セクションに「idURI」を含めます。

class function TPortalTools.GetRealUrl(Url: string): string; 
var 
    IdURI: TIdURI; 
begin 
    TIdStack.IncUsage; 
    IdURI := TIdURI.Create(Url); 
    try 
    try 
     GStack.ResolveHost(IdURI.Host, TIdIPVersion.Id_IPv6); 
     IdURI.IPVersion := TIdIPVersion.Id_IPv6; 
    except 
     IdURI.IPVersion := TIdIPVersion.Id_IPv4; // Just in case. 
    end; 

    // Put it back together. 
    Result := IdURI.GetFullURI([]); 
    finally 
    FreeAndNil(IdURI); 
    TIdStack.DecUsage; 
    end; 
end;