(Delphi ActiveX) Examine SSL/TLS Server Certificate

See more Socket/SSL/TLS Examples

Demonstrates how an application can examine and check a server's SSL/TLS certificate.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
socket: TChilkatSocket;
useTls: Integer;
maxWaitMs: Integer;
success: Integer;
cert: IChilkatCert;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

socket := TChilkatSocket.Create(Self);

// Connect to a server.
useTls := 1;
maxWaitMs := 2000;
success := socket.Connect('www.intel.com',443,useTls,maxWaitMs);
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;

// If we get here, the TLS connection ws made..
// In any SSL/TLS handshake, the server sends its certificate in a TLS handshake message.
// Chilkat will keep it cached within the object that made the connection.
// Get the server's cert and examine a few things.
cert := socket.GetSslServerCert();
if (socket.LastMethodSuccess = 0) then
  begin
    // This is unexpected..
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Distinguished Name: ' + cert.SubjectDN);
Memo1.Lines.Add('Common Name: ' + cert.SubjectCN);
Memo1.Lines.Add('Issuer Distinguished Name: ' + cert.IssuerDN);
Memo1.Lines.Add('Issuer Common Name: ' + cert.IssuerCN);

Memo1.Lines.Add('Expired: ' + IntToStr(Ord(cert.Expired)));
Memo1.Lines.Add('Revoked: ' + IntToStr(Ord(cert.Revoked)));
Memo1.Lines.Add('Signature Verified: ' + IntToStr(Ord(cert.SignatureVerified)));
Memo1.Lines.Add('Trusted Root: ' + IntToStr(Ord(cert.TrustedRoot)));

// Sample output:

// Distinguished Name: C=US, ST=California, O=Intel Corporation, CN=*.intel.com
// Common Name: *.intel.com
// Issuer Distinguished Name: C=GB, ST=Greater Manchester, L=Salford, O=Sectigo Limited, CN=Sectigo RSA Organization Validation Secure Server CA
// Issuer Common Name: Sectigo RSA Organization Validation Secure Server CA
// Expired: False
// Revoked: False
// Signature Verified: True
// Trusted Root: True
end;