Tcl

Send a Staged Multipart REST Request

Demonstrates Rest.SendReqMultipart, which sends a multipart request using the parts configured on the object, then reads the response in separate steps.

Background. The staged request model separates sending from reading: a SendReq method transmits the request, ReadResponseHeader reads the status line and headers, and a ReadResp method reads the body. This gives fine control over large or streamed messages compared with the single-call full-request methods.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


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
}

#  Configure one multipart part before sending.
CkRest_put_PartSelector $rest "1"
CkRest_AddHeader $rest "Content-Type" "text/plain"
CkRest_AddHeader $rest "Content-Disposition" "form-data; name=\"field1\""
set success [CkRest_SetMultipartBodyString $rest "value1"]
if {$success == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

#  Send the multipart request using the configured parts.
set success [CkRest_SendReqMultipart $rest "POST" "/api/upload"]
if {$success == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

#  After sending, read the response status line and header fields.  The return value is the HTTP
#  status code, or -1 if no response was received.
set statusCode [CkRest_ReadResponseHeader $rest]
if {$statusCode < 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

puts "Response status code: $statusCode"

#  Read the response body as text.
set responseBody [CkRest_readRespBodyString $rest]
if {[CkRest_get_LastMethodSuccess $rest] == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

puts "$responseBody"

delete_CkRest $rest