(DataFlex) Transition from Cert.GetValidFromDt to Cert.ValidFromStr

Provides instructions for replacing deprecated GetValidFromDt method calls with ValidFromStr.

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 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 GetValidFromDt method is deprecated:

    Get ComGetValidFromDt 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 ValidFromStr property

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


End_Procedure