delphi安卓手机端域名解析IP

[90後的夏]

想把这个在WIN系统解析IP的功能写到delphi xe8 android上，不知道要怎么改？求大神们指教一下。。。

uses winsock;

function HostToIP(Name: string; var Ip: string): Boolean;   //hosttoip 函数作用是将域名解析成ip
var
  wsdata : TWSAData;
  hostName : array [0..255] of AnsiChar;
  hostEnt : PHostEnt;
  addr : PAnsiChar;
begin
  WSAStartup ($0101, wsdata);
  try
    gethostname (hostName, sizeof (hostName));
    StrPCopy(hostName, Name);
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^;
        if Assigned (addr) then begin
          IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
  finally
    WSACleanup;
  end
end;

[yunshouhu]

去掉win api 使用Android api ,Linux c api

[90後的夏]

引用 1 楼 earbao 的回复:

去掉win api 使用Android api ,Linux c api

就是找不到相对应的android API声明，就是uses xxxxx的

[pathletboy]

用INDY的TIdDNSResolver组件