TsgcHTTPServer › Olaylar › OnSSLVerifyPeer
VerifyCertificate etkinleştirildiğinde ve istemci kabul edilecek veya reddedilecek bir sertifika sunduğunda tetiklenir.
property OnSSLVerifyPeer: TsgcOnSSLVerifyPeer;
// TsgcOnSSLVerifyPeer = procedure(Sender: TObject; Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer; var Accept: Boolean) of object
—
SSLOptions.VerifyCertificate True olduğunda ve istemci TLS handshake'i sırasında bir sertifika sunduğunda, OnSSLVerifyPeer zincirdeki her sertifika için bir kez tetiklenir. Certificate parametresi X.509 verisini ortaya çıkarır, AOk TLS katmanından gelen doğrulama sonucunu içerir, ADepth zincirdeki konumdur (yaprak için 0) ve AError doğrulama başarısız olduğunda hata kodudur. Sertifikaya güvenmek için Accept'i True veya bağlantıyı iptal etmek için False olarak ayarlayın. İstemci bir sertifika sunmadığında olay tetiklenmez; bir istemci sertifikasını zorunlu kılmak için SSLOptions.VerifyCertificate_Options.FailIfNoCertificate'ı True olarak ayarlayın.
function OnSSLVerifyPeerEvent(Sender: TObject; Certificate: TIdX509;
AOk: Boolean; ADepth, AError: Integer; var Accept: Boolean);
begin
// ... sertifikayı doğrulayın
if Certificate_OK then
Accept := True
else
Accept := False;
end;