DataFlex

Transition from Crypt2.GetSignerCert to Crypt2.LastSignerCert

Provides instructions for replacing deprecated GetSignerCert method calls with LastSignerCert. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoCrypt2
    Integer iIndex
    Variant vCertObj
    Handle hoCertObj
    Variant vCertOut
    Handle hoCertOut
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt2
    If (Not(IsComObjectCreated(hoCrypt2))) Begin
        Send CreateComObject of hoCrypt2
    End

    // ...
    // ...
    Move 0 To iIndex

    // ------------------------------------------------------------------------
    // The GetSignerCert method is deprecated:

    Get ComGetSignerCert Of hoCrypt2 iIndex To vCertObj
    If (IsComObject(vCertObj)) Begin
        Get Create (RefClass(cComChilkatCert)) To hoCertObj
        Set pvComObject Of hoCertObj To vCertObj
    End
    Get ComLastMethodSuccess Of hoCrypt2 To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoCrypt2 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // ...
    // ...

    Send Destroy of hoCertObj

    // ------------------------------------------------------------------------
    // Do the equivalent using LastSignerCert.
    // Your application creates a new, empty Cert object which is passed 
    // in the last argument and filled upon success.

    Get Create (RefClass(cComChilkatCert)) To hoCertOut
    If (Not(IsComObjectCreated(hoCertOut))) Begin
        Send CreateComObject of hoCertOut
    End
    Get pvComObject of hoCertOut to vCertOut
    Get ComLastSignerCert Of hoCrypt2 iIndex vCertOut To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCrypt2 To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure