(DataFlex) Example: Http.QuickGetStr method

Demonstrates the QuickGetStr method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sStr
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    // Keep the response body if there's an error.
    Set ComKeepResponseBody Of hoHttp To True

    // Send the HTTP GET and return the content in a string.
    Get ComQuickGetStr Of hoHttp "https://www.chilkatsoft.com/helloWorld.json" To sStr
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastStatus Of hoHttp To iTemp1
        If (iTemp1 = 0) Begin
            // Communications error.  We did not get a response.
            Get ComLastErrorText Of hoHttp To sTemp1
            Showln sTemp1
        End
        Else Begin
            Get ComLastStatus Of hoHttp To iTemp1
            Showln "Response status code: " iTemp1
            Showln "Response body error text:"
            Get ComLastResponseBody Of hoHttp To sTemp1
            Showln sTemp1
        End

        Procedure_Return
    End

    Showln sStr
    Showln "Success"


End_Procedure