Get SSL Server Certificate

Demonstrates how to retrieve the SSL server certificate for a site. This method establishes an SSL/TLS connection with a web server for the purpose of retrieving the SSL certificate, which may then be examined via the Chilkat certificate API.

Download Chilkat HTTP ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATHTTPLib_TLB,
    CHILKATCERTIFICATELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
success: Integer;
cert: CHILKATHTTPLib_TLB.IChilkatCert;

begin
http := TChilkatHttp.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := http.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(http.LastErrorText);
    Exit;
  end;

//  Get the SSL cert for paypal.com

cert := http.GetServerSslCert('paypal.com',443) As CHILKATHTTPLib_TLB.IChilkatCert;
if (cert = nil ) then
  begin
    ShowMessage(http.LastErrorText);
  end
else
  begin
    ShowMessage(cert.SubjectDN);

  end;
end;