TsgcWebSocketProxyServer › Eventos › OnSSLVerifyPeer

OnSSLVerifyPeer Evento

Se dispara cuando VerifyCertificate está habilitado y un cliente descendente presenta un certificado para ser aceptado o rechazado.

Sintaxis

property OnSSLVerifyPeer: TsgcOnSSLVerifyPeer;
// TsgcOnSSLVerifyPeer = procedure(Sender: TObject; Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer; var Accept: Boolean) of object

Valor Predeterminado

—

Observaciones

Cuando SSLOptions.VerifyCertificate es True y un cliente de destino presenta un certificado durante el handshake TLS, OnSSLVerifyPeer se activa una vez por cada certificado de la cadena. El parámetro Certificate expone los datos X.509, AOk contiene el resultado de verificación de la capa TLS, ADepth es la posición en la cadena (0 para la hoja) y AError es el código de error cuando la verificación falla. Establezca Accept en True para confiar en el certificado o en False para abortar la conexión. El evento no se activa cuando el cliente no presenta un certificado; para exigir un certificado de cliente, establezca SSLOptions.VerifyCertificate_Options.FailIfNoCertificate en True.

Ejemplo

function OnSSLVerifyPeerEvent(Sender: TObject; Certificate: TIdX509;
  AOk: Boolean; ADepth, AError: Integer; var Accept: Boolean);
begin
  // ... validate the certificate
  if Certificate_OK then
    Accept := True
  else
    Accept := False;
end;

Volver a Eventos