Delphi ActiveX

Examine the Contents of a .p7m by Converting to XML

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

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
success: Integer;
asn: TChilkatAsn;
strXml: WideString;
xml: TChilkatXml;

begin
success := 0;

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

asn := TChilkatAsn.Create(Self);

success := asn.LoadBinaryFile('qa_data/p7m/a.p7m');
if (success <> 1) then
  begin
    Memo1.Lines.Add(asn.LastErrorText);
    Exit;
  end;

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

// 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 := TChilkatXml.Create(Self);
xml.LoadXml(strXml);

Memo1.Lines.Add(xml.GetXml());
xml.SaveXml('qa_output/a.xml');

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