SSLServerAuthentication Event

Fired after the server presents its certificate to the client.

Syntax

type TSSLServerAuthenticationEvent = procedure SSLServerAuthentication(Sender: TObject; CertEncoded: String; const CertSubject: String; const CertIssuer: String; const Status: String;var Accept: Boolean) of object;
property OnSSLServerAuthentication: TSSLServerAuthenticationEvent read FOnSSLServerAuthentication write FOnSSLServerAuthentication;

Remarks

This event is where the client can decide whether to continue with the connection process 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").