SSLClientAuthentication Event

Fired when the client presents its credentials to the server.

Syntax

type TSSLClientAuthenticationEvent = procedure SSLClientAuthentication(Sender: TObject; ConnectionId: Integer; CertEncoded: String; const CertSubject: String; const CertIssuer: String; const Status: String;var  Accept: Boolean) of object;

property OnSSLClientAuthentication: TSSLClientAuthenticationEvent read FOnSSLClientAuthentication write FOnSSLClientAuthentication;

Remarks

This is where the server can decide whether to continue or not. The Accept parameter is a recommendation on whether to continue or close the connection. This is just a suggestion: application software must use its own logic to determine whether to continue or not.

When Accept is False, Status shows why the verification failed (otherwise, Status contains the string "OK").