hostent

type hostent = record

  h_name: PChar;

  h_aliases: PPChar;

  h_addrtype: SmallInt;

  h_length: SmallInt;

  case Integer of

    0: (

        h_addr_list: PPChar;

      );

    1: (

        h_addr: PPChar;

      );

end;