|
Internet Direct (Indy) Version 9.0.1 Beta
|
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;