TsgcWebSocketClient › Eventi › OnSSLVerifyPeer

OnSSLVerifyPeer Evento

Si attiva quando VerifyCertificate è abilitato in modo che l'applicazione possa accettare o rifiutare il certificato del server.

Sintassi

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

Valore predefinito

—

Note

Quando TLSOptions.VerifyCertificate è True e OpenSSL è l'IOHandler selezionato, OnSSLVerifyPeer viene generato una volta per ogni certificato nella catena presentata dal server. Il parametro Certificate espone i dati X.509, AOk contiene il risultato di verifica di OpenSSL, ADepth è la posizione nella catena (0 per il leaf) e AError è il codice di errore OpenSSL quando la verifica fallisce. Impostare Accept su True per considerare attendibile il certificato o su False per interrompere la connessione. Quando si utilizza SChannel invece di OpenSSL, usare OnSChannelVerifyPeer.

Esempio

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;

Torna agli Eventi