PowerBuilder

Transition from Cert.ExportPrivateKey to Cert.GetPrivateKey

Provides instructions for replacing deprecated ExportPrivateKey method calls with GetPrivateKey. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Cert
oleobject loo_PrivatekeyObj
oleobject loo_PrivatekeyOut

li_Success = 0

loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
if li_rc < 0 then
    destroy loo_Cert
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

loo_PrivatekeyObj = loo_Cert.ExportPrivateKey()
if loo_Cert.LastMethodSuccess = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    return
end if

// ...
// ...

destroy loo_PrivatekeyObj

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

loo_PrivatekeyOut = create oleobject
li_rc = loo_PrivatekeyOut.ConnectToNewObject("Chilkat.PrivateKey")

li_Success = loo_Cert.GetPrivateKey(loo_PrivatekeyOut)
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    destroy loo_PrivatekeyOut
    return
end if



destroy loo_Cert
destroy loo_PrivatekeyOut