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)