DataFlex

Transition from Cert.GetValidToDt to Cert.ValidToStr

Provides instructions for replacing deprecated GetValidToDt method calls with ValidToStr. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCert
    Variant vCkdt1
    Handle hoCkdt1
    Handle hoCkdt2
    Boolean iSuccess
    String sTemp1
    Boolean bTemp1

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

    // ------------------------------------------------------------------------
    // The GetValidToDt method is deprecated:

    Get ComGetValidToDt Of hoCert To vCkdt1
    If (IsComObject(vCkdt1)) Begin
        Get Create (RefClass(cComCkDateTime)) To hoCkdt1
        Set pvComObject Of hoCkdt1 To vCkdt1
    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 hoCkdt1

    // ------------------------------------------------------------------------
    // Do the equivalent using the ValidToStr property

    Get Create (RefClass(cComCkDateTime)) To hoCkdt2
    If (Not(IsComObjectCreated(hoCkdt2))) Begin
        Send CreateComObject of hoCkdt2
    End
    Get ComValidToStr Of hoCert To sTemp1
    Get ComSetFromRfc822 Of hoCkdt2 sTemp1 To iSuccess


End_Procedure