(Xojo Plugin) Extract XML from FatturaPA .p7m

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim bd As New Chilkat.BinData
Dim success As Boolean
success = bd.LoadFile("qa_data/p7m/IT01879020517_abc.xml.p7m")
If (success <> True) Then
    System.DebugLog("Failed to load the .p7m file")
    Return
End If

Dim crypt As New 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.
Dim bVerified As Boolean
bVerified = crypt.OpaqueVerifyBd(bd)
If (bVerified <> True) Then
    System.DebugLog(crypt.LastErrorText)
    System.DebugLog("Failed to extract and verify.")
    Return
End If

// Save the XML to a file.
success = bd.WriteFile("qa_output/zIT01879020517_abc.xml")

// Alternatively, load into an XML object and emit.
Dim xml As New Chilkat.Xml
success = xml.LoadXml(bd.GetString("utf-8"))

System.DebugLog(xml.GetXml())