Tcl

multipart/form-data HTTP POST

Demonstrates how to construct and send a multipart/form-data HTTP POST. Tcl

load ./chilkat.dll

set success 0

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

# Sends the following multipart/form-data POST:

# POST /xyz/something HTTP/1.1
# Host: domain
# Content-Type: multipart/form-data; boundary=------------090708030009010000030901
# Content-Length: 2220
# 
# --------------090708030009010000030901
# Content-Disposition: form-data; name="param1"
# 
# value1
# --------------090708030009010000030901
# Content-Disposition: form-data; name="param2"
# 
# value2
# --------------090708030009010000030901
# Content-Disposition: form-data; name="starfish20"; filename="starfish20.jpg"
# Content-Type: image/jpeg
# 
# JPEG DATA HERE...
# --------------090708030009010000030901
# Content-Disposition: form-data; name="helloWorld"; filename="helloWorld.pdf"
# Content-Type: application/pdf
# 
# PDF DATA HERE...
# --------------090708030009010000030901
# Content-Disposition: form-data; name="tinyA"; filename="tinyA.xml"
# Content-Type: text/xml
# 
# XML DATA HERE...
# --------------090708030009010000030901--
# 

set req [new_CkHttpRequest]

CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_ContentType $req "multipart/form-data"
CkHttpRequest_put_Path $req "/xyz/something"

CkHttpRequest_AddParam $req "param1" "value1"
CkHttpRequest_AddParam $req "param2" "value2"

# Add some small files to the request. (Small so we can see what the full request looks like without too much data..)
set bd [new_CkBinData]

set success [CkBinData_LoadFile $bd "qa_data/jpg/starfish20.jpg"]
CkHttpRequest_AddBdForUpload $req "starfish20" "starfish20.jpg" $bd "image/jpeg"

set success [CkBinData_LoadFile $bd "qa_data/pdf/helloWorld.pdf"]
CkHttpRequest_AddBdForUpload $req "helloWorld" "helloWorld.pdf" $bd "application/pdf"

set success [CkBinData_LoadFile $bd "qa_data/xml/tinyA.xml"]
CkHttpRequest_AddBdForUpload $req "tinyA" "tinyA.xml" $bd "text/xml"

set http [new_CkHttp]

set resp [new_CkHttpResponse]

set success [CkHttp_HttpSReq $http "example.com" 443 1 $req $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttpRequest $req
    delete_CkBinData $bd
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

puts "HTTP response status: [CkHttpResponse_get_StatusCode $resp]"

puts "Received:"
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttpRequest $req
delete_CkBinData $bd
delete_CkHttp $http
delete_CkHttpResponse $resp