hostent

type hostent = record

  h_name: PAnsiChar;

  h_aliases: PPAnsiChar;

  h_addrtype: SmallInt;

  h_length: SmallInt;

  case Integer of

    0: (

        h_addr_list: PPAnsiChar;

      );

    1: (

        h_addr: PPAnsiChar;

      );

end;