Datasnap「network is unreachable」error over IPv6

Question

當我嘗試通過IPv6網絡連接到Datasnap REST服務器時，出現套接字「network is unreachable」錯誤。

我正在使用TDSRestConnection進行連接。我在HostName屬性中設置了我的服務器名稱。

Answer 1

服務器端需要向其公有DNS添加一個註冊類型AAAA。這是IPv6的DNS64。所以，這個寄存器的值是Google NAT64前綴（64：FF9B：:) +你的IPv4。

如果公共IP例如是200.123.12.34，則AAAA寄存器值將是64：FF9B :: 200.123.12.34。 R.另一個值是您的域名，如myapp.mydomain.com或myapp.mydomain.com.br。你需要做的其他事情是實現一個函數來解析你的Iphone在IPv6網絡中的名字。

上述示例對於REST DATASNAP CLIENTS不起作用。在我的例子下面，我已經在我的datasnap客戶端模塊上實現了這個功能。

const 
    S_HOST_NAME = 'myapp.mydomain.com'; 

var 
    control : integer; 

implementation 

procedure TfrmClientModule.conect; 
var 
    x : string; 
begin 
    try 
    control := control + 1; 
    if control < 3 then 
    begin 
     DSRestConnection.Reset; 
     x := ServerMethods1Client.ReverseString('yx'); 
    end; 
    except 
    if DSRestConnection.Host = S_HOST_NAME then 
     DSRestConnection.Host := '[' + S_HOST_NAME + ']' 
    else 
     DSRestConnection.Host := S_HOST_NAME; 
    conect; 
    end; 
end; 

procedure TfrmClientModule.DataModuleCreate(Sender: TObject); 
begin 
    Controle := 0; 
    DSRestConnection.Host := '[' + S_HOST_NAME + ']'; 
    conect; 
end;