(DataFlex) Transition from Http.LastJsonData to Http.GetLastJsonData

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
    Variant vJson1
    Handle hoJson1
    Variant vJson2
    Handle hoJson2
    String sTemp1

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // ...
    // ...

    // ------------------------------------------------------------------------
    // The LastJsonData method is deprecated:

    Get ComLastJsonData Of hoHttp To vJson1
    If (IsComObject(vJson1)) Begin
        Get Create (RefClass(cComChilkatJsonObject)) To hoJson1
        Set pvComObject Of hoJson1 To vJson1
    End
    Get ComEmit Of hoJson1 To sTemp1
    Showln sTemp1
    Send Destroy of hoJson1

    // ------------------------------------------------------------------------
    // Do the equivalent using GetLastJsonData.

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson2
    If (Not(IsComObjectCreated(hoJson2))) Begin
        Send CreateComObject of hoJson2
    End
    Get pvComObject of hoJson2 to vJson2
    Send ComGetLastJsonData To hoHttp vJson2
    Get ComEmit Of hoJson2 To sTemp1
    Showln sTemp1


End_Procedure