sockaddr_in

type sockaddr_in = record

  case Integer of

    0: (

        sin_family: u_short;

        sin_port: u_short;

        sin_addr: TInAddr;

        sin_zero: array [0..7] of TIdAnsiChar;

      );

    1: (

        sa_family: u_short;

        sa_data: array [0..13] of TIdAnsiChar;

      );

end;