Delphi iOS IPv6 App Store Rejet

Question

Nous utilisons RAD Studio 10.0 Seattle pour créer une application iOS qui reçoit des données via les services Web. Depuis qu'Apple exige que toutes les applications prennent en charge IPv6 à partir du 1er juin 2016, la mise à jour de notre application a été rejetée.

Nous utilisons le WSDL Importer pour créer la classe de service Web dans RAD Studio, puis appelez les services Web. Lorsque l'application se connecte à un réseau IPv6, elle lance un Socket Error #51 Network is unreachable....

Est-ce que quelqu'un sait comment nous pourrions résoudre ce problème?

Answer 1

Essayez avec cette 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; 

Ajouter dans votre Utilise "IdStack" et "IdGlobal"

vous devez passer votre hôte (www.google.com par exemple) et la fonction func renvoie un résultat avec ou sans '['.

Maintenant, vous devez simplement l'utiliser ... 'http: //' + getHost ('www.google.com')

si vous êtes dans le réseau IPV6 la chaîne finale sera (http://[www.google.com])

Answer 2

En utilisant la réponse précédente, j'ai trouvé ce code, qui fonctionne pour moi. Je peux entrer l'URL complète du savon et il renvoie un IPV4 correct de l'URL IPV6. Inclure 'idURI' dans la section uses.

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;