SSL

type SSL = record

  version: TIdC_INT;

  _type: TIdC_INT;

  method: PSSL_METHOD;

  rbio: PBIO;

  wbio: PBIO;

  bbio: PBIO;

  rwstate: TIdC_INT;

  in_handshake: TIdC_INT;

  handshake_func: function(

  _para1: PSSL

):TIdC_INT;

  server: TIdC_INT;

  new_session: TIdC_INT;

  quiet_shutdown: TIdC_INT;

  shutdown: TIdC_INT;

  state: TIdC_INT;

  rstate: TIdC_INT;

  init_buf: PBUF_MEM;

  init_msg: Pointer;

  init_num: TIdC_INT;

  init_off: TIdC_INT;

  packet: PIdAnsiChar;

  packet_length: TIdC_UINT;

  s2: PSSL2_STATE;

  s3: PSSL3_STATE;

  d1: PDTLS1_STATE;

  read_ahead: TIdC_INT;

  msg_callback: procedure(

  write_p: TIdC_INT;

  version: TIdC_INT;

  content_type: TIdC_INT;

  const buf: Pointer;

  len: size_t;

  ssl: PSSL;

  arg: Pointer

);

  msg_callback_arg: Pointer;

  hit: TIdC_INT;

  param: PX509_VERIFY_PARAM;

  cipher_list: PSTACK_OF_SSL_CIPHER;

  cipher_list_by_id: PSTACK_OF_SSL_CIPHER;

  mac_flags: TIdC_INT;

  enc_read_ctx: PEVP_CIPHER_CTX;

  read_hash: PEVP_MD_CTX;

  expand: PCOMP_CTX;

  enc_write_ctx: PEVP_CIPHER_CTX;

  write_hash: PEVP_MD_CTX;

  compress: PCOMP_CTX;

  cert: PCERT;

  sid_ctx_length: TIdC_UINT;

  sid_ctx: array [0..SSL_MAX_SID_CTX_LENGTH-1] of TIdAnsiChar;

  session: PSSL_SESSION;

  generate_session_id: PGEN_SESSION_CB;

  verify_mode: TIdC_INT;

  verify_callback: function(

  ok: TIdC_INT;

  ctx: PX509_STORE_CTX

):TIdC_INT;

  info_callback: procedure(

  const ssl: PSSL;

  _type: TIdC_INT;

  val: TIdC_INT

);

  error: TIdC_INT;

  error_code: TIdC_INT;

  psk_client_callback: function(

  ssl: PSSL;

  hint: PIdAnsiChar;

  identity: PIdAnsiChar;

  max_identity_len: TIdC_UINT;

  psk: PIdAnsiChar;

  max_psk_len: TIdC_UINT

):TIdC_UINT;

  psk_server_callback: function(

  ssl: PSSL;

  identity: PIdAnsiChar;

  psk: PIdAnsiChar;

  max_psk_len: TIdC_UINT

):TIdC_UINT;

  ctx: PSSL_CTX;

  debug: TIdC_INT;

  verify_result: TIdC_LONG;

  ex_data: CRYPTO_EX_DATA;

  client_CA: PSTACK_OF_X509_NAME;

  references: TIdC_INT;

  options: TIdC_ULONG;

  mode: TIdC_ULONG;

  max_cert_list: TIdC_LONG;

  first_packet: TIdC_INT;

  client_version: TIdC_INT;

  max_send_fragment: TIdC_UINT;

  tlsext_debug_cb: PSSL_tlsext_debug_cb;

  tlsext_debug_arg: Pointer;

  tlsext_hostname: PIdAnsiChar;

  servername_done: TIdC_INT;

  tlsext_status_type: TIdC_INT;

  tlsext_status_expected: TIdC_INT;

  tlsext_ecpointformatlist_length: size_t;

  tlsext_ecpointformatlist: PIdAnsiChar;

  tlsext_ellipticcurvelist_length: size_t;

  tlsext_ellipticcurvelist: PIdAnsiChar;

  tlsext_opaque_prf_input: Pointer;

  tlsext_opaque_prf_input_len: size_t;

  tlsext_session_ticket: PTLS_SESSION_TICKET_EXT;

  tls_session_ticket_ext_cb: tls_session_ticket_ext_cb_fn;

  tls_session_ticket_ext_cb_arg: Pointer;

  tls_session_secret_cb: tls_session_secret_cb_fn;

  tls_session_secret_cb_arg: Pointer;

  initial_ctx: PSSL_CTX;

  next_proto_negotiated: PIdAnsiChar;

  next_proto_negotiated_len: Byte;

  tlsext_ocsp_ids: PSTACK_OF_OCSP_RESPID;

  tlsext_ocsp_exts: PX509_EXTENSIONS;

  tlsext_ocsp_resp: PIdAnsiChar;

  tlsext_ocsp_resplen: TIdC_INT;

  tlsext_ticket_expected: TIdC_INT;

  _initial_ctx: PSSL_CTX;

end;