sockaddr¶

type
  sockaddr = packed record
    case Integer of
      0: (
        sa_family : sa_family_t;
        sa_data : packed Array[0..13] of cuint8 = Byte;
      );
      1: (
        sin_family : sa_family_t;
        sin_port : cushort;
        sin_addr : in_addr;
        sin_zero : packed Array[0..7] of cuint8 = Byte;
      );
  end;