PureBasic

Transition from Http.GetServerSslCert to Http.GetServerCert

See more HTTP Examples

Provides instructions for replacing deprecated GetServerSslCert method calls with GetServerCert. PureBasic

IncludeFile "CkCert.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

    success.i = 0

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    domain.s = "chilkatsoft.com"
    port.i = 443

    ; ------------------------------------------------------------------------
    ; The GetServerSslCert method is deprecated:

    cert1.i = CkHttp::ckGetServerSslCert(http,domain,port)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    Debug CkCert::ckSubjectDN(cert1)
    CkCert::ckDispose(cert1)

    ; ------------------------------------------------------------------------
    ; Do the equivalent using GetServerCert.
    ; Your application creates a new, empty certificate object which is passed 
    ; in the last argument and filled with the server certificate upon success.

    cert2.i = CkCert::ckCreate()
    If cert2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckGetServerCert(http,domain,port,cert2)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkCert::ckDispose(cert2)
        ProcedureReturn
    EndIf

    Debug CkCert::ckSubjectDN(cert2)


    CkHttp::ckDispose(http)
    CkCert::ckDispose(cert2)


    ProcedureReturn
EndProcedure