(Visual FoxPro) Examine the Contents of a .p7m by Converting to XML

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loAsn
LOCAL lnSuccess
LOCAL lcStrXml
LOCAL loXml

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Asn')
loAsn = CreateObject('Chilkat.Asn')

lnSuccess = loAsn.LoadBinaryFile("qa_data/p7m/a.p7m")
IF (lnSuccess <> 1) THEN
    ? loAsn.LastErrorText
    RELEASE loAsn
    CANCEL
ENDIF

* Convert to XML.
lcStrXml = loAsn.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..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.LoadXml(lcStrXml)

? loXml.GetXml()
loXml.SaveXml("qa_output/a.xml")

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

RELEASE loAsn
RELEASE loXml