Indy 9
|
The result value signals if you are pleased with peer's info. If you return False then the connection will be dropped, elsewhere you will keep the connection.
function TForm1.IdServerInterceptOpenSSL1VerifyPeer( Certificate: TIdX509): Boolean; begin ShowMessage(DateTimeToStr(Certificate.notBefore)); ShowMessage(Certificate.Issuer.OneLine); ShowMessage(Certificate.Subject.OneLine); Result := True; end;