(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoAsn
    Boolean iSuccess
    String sStrXml
    Handle hoXml
    String sTemp1

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

    Get Create (RefClass(cComChilkatAsn)) To hoAsn
    If (Not(IsComObjectCreated(hoAsn))) Begin
        Send CreateComObject of hoAsn
    End

    Get ComLoadBinaryFile Of hoAsn "qa_data/p7m/a.p7m" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoAsn To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Convert to XML.
    Get ComAsnToXml Of hoAsn To sStrXml

    // 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..
    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End
    Get ComLoadXml Of hoXml sStrXml To iSuccess

    Get ComGetXml Of hoXml To sTemp1
    Showln sTemp1
    Get ComSaveXml Of hoXml "qa_output/a.xml" To iSuccess

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


End_Procedure