hostent

type hostent = record

  h_name: PChar;

  h_aliases: PPChar;

  h_addrtype: Integer;

  h_length: SOCKLEN_T;

  case Byte of

    0: (

        h_addr_list: PPChar;

      );

    1: (

        h_addr: PPChar;

      );

end;