(Delphi DLL) Examine the Contents of a .p7m by Converting to XML

Examines the contents of a .p7m signature by converting it to XML.

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
asn: HCkAsn;
success: Boolean;
strXml: PWideChar;
xml: HCkXml;

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

asn := CkAsn_Create();

success := CkAsn_LoadBinaryFile(asn,'qa_data/p7m/a.p7m');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkAsn__lastErrorText(asn));
    Exit;
  end;

// Convert to XML.
strXml := CkAsn__asnToXml(asn);

// The XML returned by AsnToXml will be compact.
// To get the XML indented in human-readable form, load
// into the Chilkat XML object and emit..
xml := CkXml_Create();
CkXml_LoadXml(xml,strXml);

Memo1.Lines.Add(CkXml__getXml(xml));
CkXml_SaveXml(xml,'qa_output/a.xml');

// -----------------------------------------------------------------------------------------
// Also see Chilkat's online tool to examine a .p7m and generate code to duplicate the .p7m
// -----------------------------------------------------------------------------------------

CkAsn_Dispose(asn);
CkXml_Dispose(xml);

end;