Delphi DLL

Get Certificate Policy

See more Certificates Examples

Demonstrates how to get a certificate's policy OIDs (if any) 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;
oid: PWideChar;
strXml: PWideChar;
xml: HCkXml;

begin
success := False;

cert := CkCert_Create();

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

// The certificatePolicies OID is 2.5.29.32
oid := '2.5.29.32';
strXml := CkCert__getExtensionAsXml(cert,oid);
if (CkCert_getLastMethodSuccess(cert) = True) then
  begin
    Memo1.Lines.Add(strXml);

    // Sample result:
    // <sequence><sequence><oid>2.16.840.1.101.2.1.11.39</oid></sequence></sequence>

    xml := CkXml_Create();
    CkXml_LoadXml(xml,strXml);
    Memo1.Lines.Add('Policy OID = ' + CkXml__getChildContent(xml,'sequence|oid'));
  end;

CkCert_Dispose(cert);
    CkXml_Dispose(xml);

end;