(Tcl) Add Parameters to Multipart Form-Data POSTs

Parameters (name=value) can be added to multipart/form-data POSTs (such as for file uploads) by using the AddParam method. This example sends the following HTTP POST

POST /something HTTP/1.1
Content-Type: multipart/form-data; boundary=------------010201080703010401070605
Host: domain
Content-Length: 560

--------------010201080703010401070605
Content-Disposition: form-data; name="name"

Joe
--------------010201080703010401070605
Content-Disposition: form-data; name="age"

25
--------------010201080703010401070605
Content-Disposition: form-data; name="fileA"; filename="fileA.txt"
Content-Type: text/plain

This is the contents of file A
--------------010201080703010401070605
Content-Disposition: form-data; name="fileB"; filename="fileB.txt"
Content-Type: text/plain

This is the contents of file B
--------------010201080703010401070605--

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set req [new_CkHttpRequest]

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

CkHttpRequest_AddParam $req "name" "Joe"
CkHttpRequest_AddParam $req "age" "25"

CkHttpRequest_AddStringForUpload $req "fileA" "fileA.txt" "This is the contents of file A" "utf-8"
CkHttpRequest_AddStringForUpload $req "fileB" "fileB.txt" "This is the contents of file B" "utf-8"

puts [CkHttpRequest_generateRequestText $req]

delete_CkHttpRequest $req