(DataFlex) Transition from Cert.ExportPublicKey to Cert.GetPublicKey

Provides instructions for replacing deprecated ExportPublicKey method calls with GetPublicKey.

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 vPublickeyObj
    Handle hoPublickeyObj
    Variant vPublickeyOut
    Handle hoPublickeyOut
    Boolean iSuccess
    String sTemp1
    Boolean bTemp1

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

    // ------------------------------------------------------------------------
    // The ExportPublicKey method is deprecated:

    Get ComExportPublicKey Of hoCert To vPublickeyObj
    If (IsComObject(vPublickeyObj)) Begin
        Get Create (RefClass(cComChilkatPublicKey)) To hoPublickeyObj
        Set pvComObject Of hoPublickeyObj To vPublickeyObj
    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 hoPublickeyObj

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

    Get Create (RefClass(cComChilkatPublicKey)) To hoPublickeyOut
    If (Not(IsComObjectCreated(hoPublickeyOut))) Begin
        Send CreateComObject of hoPublickeyOut
    End
    Get pvComObject of hoPublickeyOut to vPublickeyOut
    Get ComGetPublicKey Of hoCert vPublickeyOut To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure