DataFlex

Examine the Contents of a .p7m by Converting to XML

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

Use ChilkatAx-win32.pkg

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

    Move False To iSuccess

    // 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