Visual FoxPro

Send a REST Request with a Streamed Body

Demonstrates Rest.FullRequestStream, which sends a complete request whose body is read from a Stream, then returns the response body as text.

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. Streaming the body is appropriate for large uploads because the data is read incrementally from the source (here a file) rather than being held entirely in memory.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnBAutoReconnect
LOCAL loBodyStream
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.

*  The request body is read from a Stream.  Here the stream's source is a local file, which is
*  appropriate for large uploads because the data need not be held entirely in memory.
loBodyStream = CreateObject('Chilkat.Stream')
loBodyStream.SourceFile = "qa_data/upload.json"

loRest.AddHeader("Content-Type","application/json")

*  The 3rd argument is the Stream that supplies the request body.
lcResponseText = loRest.FullRequestStream("POST","/api/upload",loBodyStream)
IF (loRest.LastMethodSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loBodyStream
    CANCEL
ENDIF

? lcResponseText

RELEASE loRest
RELEASE loBodyStream