(Visual FoxPro) multipart/form-data HTTP POST

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

For more information, see https://chilkatsoft.com/http_multipart_form_data_post.asp

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loReq
LOCAL loBd
LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest')
loReq = CreateObject('Chilkat.HttpRequest')
loReq.HttpVerb = "POST"
loReq.ContentType = "multipart/form-data"
loReq.Path = "/xyz/something"

loReq.AddParam("param1","value1")
loReq.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..)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loBd.LoadFile("qa_data/jpg/starfish20.jpg")
loReq.AddBdForUpload("starfish20","starfish20.jpg",loBd,"image/jpeg")

lnSuccess = loBd.LoadFile("qa_data/pdf/helloWorld.pdf")
loReq.AddBdForUpload("helloWorld","helloWorld.pdf",loBd,"application/pdf")

lnSuccess = loBd.LoadFile("qa_data/xml/tinyA.xml")
loReq.AddBdForUpload("tinyA","tinyA.xml",loBd,"text/xml")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

loResp = loHttp.SynchronousRequest("example.com",443,1,loReq)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loReq
    RELEASE loBd
    RELEASE loHttp
    CANCEL
ENDIF

? "HTTP response status: " + STR(loResp.StatusCode)

? "Received:"
? loResp.BodyStr

RELEASE loResp

RELEASE loReq
RELEASE loBd
RELEASE loHttp