Delphi DLL

Subject Alternative Name

See more Certificates Examples

Demonstrates the usage of the SubjectAlternativeName property to get the certificate SAN (subject alternative name) as XML. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
cert: HCkCert;
subjectAltNameXml: PWideChar;
xml: HCkXml;
oid: PWideChar;
name: PWideChar;
i: Integer;
count_i: Integer;
rfc822Name: PWideChar;

begin
success := False;

// Note: Not all certificates contain a Subject Alternative Name.
// If it does not, the SubjectAlternativeName property will contain the empty string.

cert := CkCert_Create();

success := CkCert_LoadFromFile(cert,'qa_data/certs/testIcpBrasil.cer');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

subjectAltNameXml := CkCert__subjectAlternativeName(cert);

Memo1.Lines.Add(subjectAltNameXml);

// Here's a sample of the subjectAltNameXml:

// <?xml version="1.0" encoding="utf-8"?>
// <SubjectAltName>
//     <name type="oid" oid="2.16.76.1.3.4">...</name>
//     <name type="oid" oid="2.16.76.1.3.2">...</name>
//     <name type="oid" oid="2.16.76.1.3.3">...</name>
//     <name type="oid" oid="2.16.76.1.3.7">...</name>
//     <rfc822Name>...</rfc822Name>
// </SubjectAltName>

// The XML can be parsed like this:

xml := CkXml_Create();

CkXml_LoadXml(xml,subjectAltNameXml);

i := 0;
count_i := CkXml_NumChildrenHavingTag(xml,'name');
while i < count_i do
  begin
    CkXml_putI(xml,i);
    oid := CkXml__chilkatPath(xml,'name[i]|(oid)');
    name := CkXml__getChildContent(xml,'name[i]');
    i := i + 1;
  end;

rfc822Name := CkXml__getChildContent(xml,'rfc822Name');

CkCert_Dispose(cert);
CkXml_Dispose(xml);

end;