TsgcWebSocketClient › Eventos › OnSSLVerifyPeer

OnSSLVerifyPeer Evento

Se activa cuando VerifyCertificate está habilitado para que la aplicación pueda aceptar o rechazar el certificado del servidor.

Sintaxis

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

Valor Predeterminado

—

Observaciones

Cuando TLSOptions.VerifyCertificate es True y OpenSSL es el IOHandler seleccionado, OnSSLVerifyPeer se genera una vez por cada certificado de la cadena presentada por el servidor. El parámetro Certificate expone los datos X.509, AOk contiene el propio resultado de verificación de OpenSSL, ADepth es la posición en la cadena (0 para la hoja) y AError es el código de error de OpenSSL cuando la verificación falla. Establezca Accept en True para confiar en el certificado o en False para cancelar la conexión. Cuando se usa SChannel en lugar de OpenSSL, utilice OnSChannelVerifyPeer.

Ejemplo

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

Volver a Eventos