sockaddr

type sockaddr = packed record

  case Integer of

    0: (

        sa_family: sa_family_t;

Address family

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

Addres data

      );

    1: (

        sin_family: sa_family_t;

Socket family

        sin_port: cushort;

Socket port

        sin_addr: in_addr;

Socket address

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

Padding bytes

      );

end;