TsgcWebSocketHTTPServer › Eventos › OnSSLVerifyPeer

OnSSLVerifyPeer Evento

Se activa cuando VerifyCertificate está habilitado y el cliente 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 el cliente presenta un certificado durante el protocolo de enlace TLS, se genera OnSSLVerifyPeer una vez por cada certificado de la cadena. El parámetro Certificate expone los datos X.509, AOk contiene el resultado de la verificación de la capa TLS, ADepth es la posición en la cadena (0 para el hoja) y AError es el código de error cuando falla la verificación. 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