(DataFlex) Transition from Crypt2.GetDecryptCert to Crypt2.LastDecryptCert

Provides instructions for replacing deprecated GetDecryptCert method calls with LastDecryptCert.

Note: This example requires Chilkat v11.0.0 or greater.

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

Use ChilkatAx-win32.pkg

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

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

    // ...
    // ...

    // ------------------------------------------------------------------------
    // The GetDecryptCert method is deprecated:

    Get ComGetDecryptCert Of hoCrypt2 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 LastDecryptCert.
    // 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 ComLastDecryptCert Of hoCrypt2 vCertOut To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCrypt2 To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure