TsgcWebSocketClient › Événements › OnSSLVerifyPeer

OnSSLVerifyPeer Événement

Se déclenche lorsque VerifyCertificate est activé afin que l'application puisse accepter ou rejeter le certificat du serveur.

Syntaxe

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

Valeur par défaut

—

Remarques

Lorsque TLSOptions.VerifyCertificate est True et qu'OpenSSL est le IOHandler sélectionné, OnSSLVerifyPeer est déclenché une fois par certificat dans la chaîne présentée par le serveur. Le paramètre Certificate expose les données X.509, AOk contient le propre résultat de vérification d'OpenSSL, ADepth est la position dans la chaîne (0 pour la feuille) et AError est le code d'erreur OpenSSL en cas d'échec de la vérification. Définissez Accept à True pour faire confiance au certificat ou False pour abandonner la connexion. Lorsque SChannel est utilisé à la place d'OpenSSL, utilisez OnSChannelVerifyPeer.

Exemple

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;

Retour aux événements