Software components for data protection, secure storage and transfer
procedure Tfrmequifax.HTTPClientCertificateValidate(Sender: TObject;
X509Certificate: TElX509Certificate; var Validate: Boolean);
Validity : TSBCertificateValidity;
if (X509Certificate.Chain = nil) or X509Certificate.Chain.Certificates.Equals(X509Certificate) then
vfilename:=extractfilepath(application.ExeName) + 'test.pfx';
if X509Certificate=nil then X509Certificate:=TElX509Certificate.Create(self);
CertificateValidator.ValidateForSSL(X509Certificate, HTTPClient.RemoteHost, HTTPClient.RemoteIP, hrServer, nil, true, false, Now, Validity, Reason);
Validate := Validity = cvOk;
Validate := true;
Number of guests: 1, registered members: 0,
in total hidden: 0
Copyright (c) 2017, /n software, inc.
As of July 15, 2016 EldoS business operates as a division of /n software, inc. For more information, please read the announcement.