DataFlex

Transition from Http.GetServerSslCert to Http.GetServerCert

See more HTTP Examples

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    String sDomain
    Integer iPort
    Variant vCert1
    Handle hoCert1
    Variant vCert2
    Handle hoCert2
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    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