Stream a REST Response Body to a Destination

See more REST Examples

Demonstrates Rest.SetResponseBodyStream, which configures a Stream destination for response bodies received by the full-request convenience methods. The body is written to the stream only when the response status code matches the expected status.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

load ./chilkat.dll

set success 0

set rest [new_CkRest]

set bTls 1
set bAutoReconnect 1
set success [CkRest_Connect $rest "example.com" 443 $bTls $bAutoReconnect]
if {$success == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

#  The file paths are relative to the application's current working directory.  Absolute paths
#  may also be used.  Supply the paths appropriate to your own environment.

#  Configure a Stream destination for response bodies received by the full-request convenience
#  methods.  The body is written to the stream only when the response status code matches the 1st
#  argument.
set respStream [new_CkStream]

CkStream_put_SinkFile $respStream "qa_output/response_body.dat"

#  The 2nd argument sets the stream character set from the response Content-Type charset for textual
#  responses.  The 3rd argument is the destination Stream.
set bAutoSetCharset 1
set expectedStatus 200
set success [CkRest_SetResponseBodyStream $rest $expectedStatus $bAutoSetCharset $respStream]
if {$success == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkStream $respStream
    exit
}

#  The full-request call now streams the response body to the sink instead of returning it.
set responseText [CkRest_fullRequestNoBody $rest "GET" "/api/largefile"]
if {[CkRest_get_LastMethodSuccess $rest] == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkStream $respStream
    exit
}

puts "Response streamed to file.  Status: [CkRest_get_ResponseStatusCode $rest]"

delete_CkRest $rest
delete_CkStream $respStream