(DataFlex) HTTP POST and Stream Response to File

Demonstrates how to send an HTTP POST and stream the response body directly to a file.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoRest
    Handle hoUrl
    Boolean iSuccess
    Boolean iBAutoReconnect
    Boolean iSuccess
    Integer iResponseStatusCode
    Variant vBodyStream
    Handle hoBodyStream
    String sErrResponse
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatRest)) To hoRest
    If (Not(IsComObjectCreated(hoRest))) Begin
        Send CreateComObject of hoRest
    End

    Get Create (RefClass(cComChilkatUrl)) To hoUrl
    If (Not(IsComObjectCreated(hoUrl))) Begin
        Send CreateComObject of hoUrl
    End
    // This URL will emit a response that echos the query params (name and age)
    Get ComParseUrl Of hoUrl "https://www.chilkatsoft.com/readPost.asp" To iSuccess

    // Connect to the web server
    Move True To iBAutoReconnect
    Get ComHost Of hoUrl To sTemp1
    Get ComPort Of hoUrl To iTemp1
    Get ComSsl Of hoUrl To bTemp1
    Get ComConnect Of hoRest sTemp1 iTemp1 bTemp1 iBAutoReconnect To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComAddQueryParam Of hoRest "name" "John" To iSuccess
    Get ComAddQueryParam Of hoRest "age" "33" To iSuccess

    //  Send the HTTP POST.
    Get ComPath Of hoUrl To sTemp1
    Get ComSendReqFormUrlEncoded Of hoRest "POST" sTemp1 To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Read the response header.
    Get ComReadResponseHeader Of hoRest To iResponseStatusCode
    If (iResponseStatusCode < 0) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Response status code = " iResponseStatusCode

    // We expect a 200 response status if the file data is coming.
    // Otherwise, we'll get a string response body with an error message(or no response body).
    If (iResponseStatusCode = 200) Begin

        Get Create (RefClass(cComChilkatStream)) To hoBodyStream
        If (Not(IsComObjectCreated(hoBodyStream))) Begin
            Send CreateComObject of hoBodyStream
        End

        // The stream's sink will be a file.
        Set ComSinkFile Of hoBodyStream To "qa_output/out.txt"

        // Read the response body to the stream.  Given that we've
        // set the stream's sink to a file, it will stream directly
        // to the file.
        Get pvComObject of hoBodyStream to vBodyStream
        Get ComReadRespBodyStream Of hoRest vBodyStream True To iSuccess
        If (iSuccess <> True) Begin
            Get ComLastErrorText Of hoRest To sTemp1
            Showln sTemp1
            Procedure_Return
        End

        Showln "Successfully streamed the response to a file."

    End
    Else Begin
        Get ComReadRespBodyString Of hoRest To sErrResponse
        Get ComLastMethodSuccess Of hoRest To bTemp1
        If (bTemp1 <> True) Begin
            Get ComLastErrorText Of hoRest To sTemp1
            Showln sTemp1
        End
        Else Begin
            Showln sErrResponse
        End

    End



End_Procedure