AutoIt

multipart/form-data HTTP POST

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

Local $bSuccess = False

; 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--
; 

$oReq = ObjCreate("Chilkat.HttpRequest")
$oReq.HttpVerb = "POST"
$oReq.ContentType = "multipart/form-data"
$oReq.Path = "/xyz/something"

$oReq.AddParam "param1","value1"
$oReq.AddParam "param2","value2"

; Add some small files to the request. (Small so we can see what the full request looks like without too much data..)
$oBd = ObjCreate("Chilkat.BinData")
$bSuccess = $oBd.LoadFile("qa_data/jpg/starfish20.jpg")
$oReq.AddBdForUpload("starfish20","starfish20.jpg",$oBd,"image/jpeg")

$bSuccess = $oBd.LoadFile("qa_data/pdf/helloWorld.pdf")
$oReq.AddBdForUpload("helloWorld","helloWorld.pdf",$oBd,"application/pdf")

$bSuccess = $oBd.LoadFile("qa_data/xml/tinyA.xml")
$oReq.AddBdForUpload("tinyA","tinyA.xml",$oBd,"text/xml")

$oHttp = ObjCreate("Chilkat.Http")

$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpSReq("example.com",443,True,$oReq,$oResp)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("HTTP response status: " & $oResp.StatusCode & @CRLF)

ConsoleWrite("Received:" & @CRLF)
ConsoleWrite($oResp.BodyStr & @CRLF)