(Delphi ActiveX) Get Certificate User Principal Name (UPN)

See more Certificates Examples

Demonstrates how to get a certificate's UPN from the SAN (Subject Alternative Name). Most certificates do not have a UPN. This example only applies to those certificates that have a User Principal Name.

Note: This example requires Chilkat v9.5.0.90 or greater due to fixes made in getting the UPN from the SAN.

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
cert: TChilkatCert;
success: Integer;
xml: TChilkatXml;
upn: WideString;

begin
cert := TChilkatCert.Create(Self);

success := cert.LoadFromFile('qa_data/certs/sample.cer');
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

xml := TChilkatXml.Create(Self);
xml.LoadXml(cert.SubjectAlternativeName);
Memo1.Lines.Add(xml.GetXml());

// A certificate with a User Principal Name in the SAN might have this:

// <SubjectAltName>
//     <rfc822Name>joe@example.com</rfc822Name>
//     <name type="oid" oid="1.3.6.1.4.1.311.20.2.3">joe@example.com</name>
// </SubjectAltName>

// The OID 1.3.6.1.4.1.311.20.2.3 is for the User Principal Name.
upn := xml.ChilkatPath('/A/name,oid,1.3.6.1.4.1.311.20.2.3|*');
if (xml.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add('No user principle name.');
  end
else
  begin
    Memo1.Lines.Add('User Principle Name = ' + upn);
  end;
end;