OnSSLVerifyPeer Zdarzenie

Wywoływane, gdy właściwość VerifyCertificate jest włączona, aby aplikacja mogła zaakceptować lub odrzucić certyfikat serwera.

Składnia

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

Wartość domyślna

—

Uwagi

Gdy właściwość TLSOptions.VerifyCertificate ma wartość True, a wybranym IOHandler jest OpenSSL, zdarzenie OnSSLVerifyPeer jest wywoływane raz dla każdego certyfikatu w łańcuchu przedstawionym przez serwer. Parametr Certificate udostępnia dane X.509, AOk zawiera własny wynik weryfikacji OpenSSL, ADepth to pozycja w łańcuchu (0 dla liścia), a AError to kod błędu OpenSSL w przypadku niepowodzenia weryfikacji. Należy ustawić Accept na True, aby zaufać certyfikatowi, lub False, aby przerwać połączenie. Gdy zamiast OpenSSL używany jest SChannel, należy skorzystać ze zdarzenia OnSChannelVerifyPeer.

Przykład


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;

Powrót do Zdarzeń