Url->IP->IPv6

[grafgrial]

Как реализовать в программе такого вида действие
например вводишь в edit url-сайта во втором получаешь его ip в третьем ipv6
И как вообще они преобразуются?

[veniside]

gethostbyname()

[grafgrial]

Ага вот так

function GetIPFromHost(const HostName: string): string;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  i: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := '';
  phe := GetHostByName(PChar(HostName));
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  i := 0;
  while pPtr^[i] <> nil do
  begin
    Result := inet_ntoa(pptr^[i]^);
    Inc(i);
  end;
  WSACleanup;
end;

А как получить IPv6?

[veniside]

getaddrinfo()