(Visual FoxPro) Extract XML from FatturaPA .p7m

Demonstrates how to verify the signature and extract the XML from a FatturaPA .p7m file.

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

LOCAL loBd
LOCAL lnSuccess
LOCAL loCrypt
LOCAL lnBVerified
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.BinData')
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.LoadFile("qa_data/p7m/IT01879020517_abc.xml.p7m")
IF (lnSuccess <> 1) THEN
    ? "Failed to load the .p7m file"
    RELEASE loBd
    CANCEL
ENDIF

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

* Verify and extrct the payload contained within the .p7m.
* In this case, the payload is the FatturaPA XML.
* If successful, the resulting bd will contain only the XML.
lnBVerified = loCrypt.OpaqueVerifyBd(loBd)
IF (lnBVerified <> 1) THEN
    ? loCrypt.LastErrorText
    ? "Failed to extract and verify."
    RELEASE loBd
    RELEASE loCrypt
    CANCEL
ENDIF

* Save the XML to a file.
loBd.WriteFile("qa_output/zIT01879020517_abc.xml")

* Alternatively, load into an XML object and emit.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.LoadXml(loBd.GetString("utf-8"))

? loXml.GetXml()

RELEASE loBd
RELEASE loCrypt
RELEASE loXml