PowerBuilder

HTTPS multipart/form-data POST

See more HTTP Examples

Demonstrates how to send a multipart/form-data POST over HTTPS (using TLS). PowerBuilder

integer li_rc
long li_Success
oleobject loo_Req
string ls_PathToFileOnDisk
string ls_FileContents
oleobject loo_Http
oleobject loo_Resp
string ls_HtmlStr

li_Success = 0

//  This example assumes the Chilkat HTTP API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

//  This example demonstrates how to send a multipart/form-data POST that
//  looks like this:

//  	POST /cgi/XXX.pl HTTP/1.0
//  	Accept: text/html
//  	Connection: Keep-Alive
//  	User-Agent: XXX/8.0.15
//  	Content-type: multipart/form-data, boundary=XXXxyxy
//  	Content-Length: 682
//  
//  	--XXXxyxy
//  	content-disposition: form-data; name="UploadAgent"
//  
//  	InterfaceVersion1.5
//  	--XXXxyxy
//  	content-disposition: form-data; name="user"
//  
//  	userValue
//  	--XXXxyxy
//  	content-disposition: form-data; name="password"
//  
//  	passwordValue
//  	--XXXxyxy
//  	content-disposition: form-data; name="file"
//  
//  	fileValue
//  	--XXXxyxy
//  	content-disposition: form-data; name="data_version"
//  
//  	dataVersion
//  	--XXXxyxy
//  	content-disposition: form-data; name="content2"; filename="XXX"
//  
//  	THE FILE CONTENT GOES HERE...
//  	--XXXxyxy--
//  

//  First, let's build the HTTP request object
loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")
if li_rc < 0 then
    destroy loo_Req
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Req.HttpVerb = "POST"
loo_Req.Path = "/cgi/XXX.pl"

//  The boundary string is automatically generated and added by Chilkat.
//  The value for the boundary string doesn't matter. (As long as it's a unique string that doesn't occur elsewhere in the request.)
loo_Req.ContentType = "multipart/form-data"

//  Adding the Connection: Keep-Alive is optional.  It only makes sense if the intent is to send
//  additional requests to the same domain (your-namespace-sb.accesscontrol.windows.net) within a reasonable time period.
loo_Req.AddHeader("Connection","Keep-Alive")

//  --------------------------------------------------
//  IMPORTANT: Never set the Content-Length header.  
//  Chilkat will automatically compute the correct Content-Length and will add it.
//  --------------------------------------------------

//  If a specific User-Agent header field is needed, it can be added by calling AddHeader.
loo_Req.AddHeader("User-Agent","XXX/8.0.15")

//  The "Accept" header, if present, tells the server what Content-Type responses will be accepted.
//  In this case, we're telling the server that we'll only accept "text/html" responses, and therefore
//  the server SHOULD only send a text/html response.  Technically, the Accept header is not required.
loo_Req.AddHeader("Accept","text/html")

//  Add the params to the request.  Given that the Content-Type is set to "multipart/form-data", when
//  Chilkat composes the request, it will put each param in it's own MIME sub-part (i.e. in it's own
//  part delimited by the boundary string).
loo_Req.AddParam("UploadAgent","InterfaceVersion1.5")
loo_Req.AddParam("user","userValue")
loo_Req.AddParam("password","passwordValue")
loo_Req.AddParam("file","fileValue")
loo_Req.AddParam("data_version","dataVersion")

//  The last param is the contents of a file.
//  If it's a file on disk, we can add it like this:
ls_PathToFileOnDisk = "c:/someDir/someFile.dat"
li_Success = loo_Req.AddFileForUpload("content2",ls_PathToFileOnDisk)
if li_Success = 0 then
    Write-Debug loo_Req.LastErrorText
    destroy loo_Req
    return
end if

//  Alternatively, if the contents of the file are in memory, perhaps in a string
//  variable, the file can be added like this instead.
ls_FileContents = "This is the content of the file being uploaded."
li_Success = loo_Req.AddStringForUpload("content2","XXX",ls_FileContents,"utf-8")

//  -----------------------------------------------------------
//  IMPORTANT: To duplicate the HTTP request shown above, you'll want to choose 
//  either AddStringForUpload or AddFileForUpload, but not both.  It's possible to upload
//  any number of files by calling AddStringForUpload and/or AddFileForUpload any number
//  of times, once per file to be uploaded.  This of course assumes that the receiving
//  end is programmed to receive multiple files..
//  ------------------------------------------------------------

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

//  The request is ready... now send it using HTTPS (which is port 443 by default).

loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpSReq("www.myserver.com",443,1,loo_Req,loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Req
    destroy loo_Http
    destroy loo_Resp
    return
end if

Write-Debug "HTTP response status: " + string(loo_Resp.StatusCode)

//  In this case, the response would be HTML because our Accept header
//  told the server to only return HTML.  The HTML is available on the BodyStr
//  property of the response object:
ls_HtmlStr = loo_Resp.BodyStr
Write-Debug "Received:"
Write-Debug ls_HtmlStr


destroy loo_Req
destroy loo_Http
destroy loo_Resp