TsgcWebSocketClient › Eventos › OnSSLVerifyPeer

OnSSLVerifyPeer Event

Disparado quando VerifyCertificate está habilitado, para que a aplicação possa aceitar ou rejeitar o certificado do servidor.

Sintaxe

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

Valor Padrão

—

Observações

Quando TLSOptions.VerifyCertificate é True e o OpenSSL é o IOHandler selecionado, OnSSLVerifyPeer é gerado uma vez por certificado na cadeia apresentada pelo servidor. O parâmetro Certificate expõe os dados X.509, AOk contém o próprio resultado de verificação do OpenSSL, ADepth é a posição na cadeia (0 para a folha) e AError é o código de erro do OpenSSL quando a verificação falha. Defina Accept como True para confiar no certificado ou False para abortar a conexão. Quando o SChannel é utilizado em vez do OpenSSL, utilize OnSChannelVerifyPeer.

Exemplo

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;

Voltar para Eventos