Visual FoxPro

Stream a REST Response Body to a Destination

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.

Background. Directing the response body to a stream avoids holding a large response in memory. The expected-status argument ensures error responses (which typically have small bodies) are not written to the stream destination.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnBAutoReconnect
LOCAL loRespStream
LOCAL lnBAutoSetCharset
LOCAL lnExpectedStatus
LOCAL lcResponseText

lnSuccess = 0

loRest = CreateObject('Chilkat.Rest')
lnBTls = 1
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("example.com",443,lnBTls,lnBAutoReconnect)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

*  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.
loRespStream = CreateObject('Chilkat.Stream')
loRespStream.SinkFile = "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.
lnBAutoSetCharset = 1
lnExpectedStatus = 200
lnSuccess = loRest.SetResponseBodyStream(lnExpectedStatus,lnBAutoSetCharset,loRespStream)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loRespStream
    CANCEL
ENDIF

*  The full-request call now streams the response body to the sink instead of returning it.
lcResponseText = loRest.FullRequestNoBody("GET","/api/largefile")
IF (loRest.LastMethodSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loRespStream
    CANCEL
ENDIF

? "Response streamed to file.  Status: " + STR(loRest.ResponseStatusCode)

RELEASE loRest
RELEASE loRespStream