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"). If it is decided to continue, you can override and accept the certificate by setting the Accept parameter to True.