(DataFlex) Transition from Http.GetServerSslCert to Http.GetServerCert

See more HTTP Examples

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 hoHttp
    String sDomain
    Integer iPort
    Variant vCert1
    Handle hoCert1
    Variant vCert2
    Handle hoCert2
    Boolean iSuccess
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End
    Move "chilkatsoft.com" To sDomain
    Move 443 To iPort

    // ------------------------------------------------------------------------
    // The GetServerSslCert method is deprecated:

    Get ComGetServerSslCert Of hoHttp sDomain iPort To vCert1
    If (IsComObject(vCert1)) Begin
        Get Create (RefClass(cComChilkatCert)) To hoCert1
        Set pvComObject Of hoCert1 To vCert1
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComSubjectDN Of hoCert1 To sTemp1
    Showln sTemp1
    Send Destroy of hoCert1

    // ------------------------------------------------------------------------
    // 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.

    Get Create (RefClass(cComChilkatCert)) To hoCert2
    If (Not(IsComObjectCreated(hoCert2))) Begin
        Send CreateComObject of hoCert2
    End
    Get pvComObject of hoCert2 to vCert2
    Get ComGetServerCert Of hoHttp sDomain iPort vCert2 To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComSubjectDN Of hoCert2 To sTemp1
    Showln sTemp1


End_Procedure