(DataFlex) Transition from Cert.ExportPrivateKey to Cert.GetPrivateKey

Provides instructions for replacing deprecated ExportPrivateKey method calls with GetPrivateKey.

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 hoCert
    Variant vPrivatekeyObj
    Handle hoPrivatekeyObj
    Variant vPrivatekeyOut
    Handle hoPrivatekeyOut
    Boolean iSuccess
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End

    // ------------------------------------------------------------------------
    // The ExportPrivateKey method is deprecated:

    Get ComExportPrivateKey Of hoCert To vPrivatekeyObj
    If (IsComObject(vPrivatekeyObj)) Begin
        Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivatekeyObj
        Set pvComObject Of hoPrivatekeyObj To vPrivatekeyObj
    End
    Get ComLastMethodSuccess Of hoCert To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // ...
    // ...

    Send Destroy of hoPrivatekeyObj

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

    Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivatekeyOut
    If (Not(IsComObjectCreated(hoPrivatekeyOut))) Begin
        Send CreateComObject of hoPrivatekeyOut
    End
    Get pvComObject of hoPrivatekeyOut to vPrivatekeyOut
    Get ComGetPrivateKey Of hoCert vPrivatekeyOut To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure