Send a Staged REST Request with a Binary Body

See more REST Examples

Demonstrates Rest.SendReqBd, which sends a request whose binary body is read from a BinData, then reads the response in separate steps.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

integer li_rc
integer li_Success
oleobject loo_Rest
integer li_BTls
integer li_BAutoReconnect
oleobject loo_BdBody
integer li_BLoaded
integer li_StatusCode
string ls_ResponseBody

li_Success = 0

loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_BTls = 1
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("example.com",443,li_BTls,li_BAutoReconnect)
if li_Success = 0 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    return
end if

//  The file paths are relative to the application's current working directory.  Absolute paths
//  may also be used.  Supply the paths appropriate to your own environment.

//  Send a request whose binary body is read from a BinData.
loo_BdBody = create oleobject
li_rc = loo_BdBody.ConnectToNewObject("Chilkat.BinData")

li_BLoaded = loo_BdBody.LoadFile("qa_data/image.png")
if li_BLoaded <> 1 then
    Write-Debug "Failed to load the request body file."
    destroy loo_Rest
    destroy loo_BdBody
    return
end if

loo_Rest.AddHeader("Content-Type","image/png")

li_Success = loo_Rest.SendReqBd("PUT","/api/images/1",loo_BdBody)
if li_Success = 0 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_BdBody
    return
end if

//  After sending, read the response status line and header fields.  The return value is the HTTP
//  status code, or -1 if no response was received.
li_StatusCode = loo_Rest.ReadResponseHeader()
if li_StatusCode < 0 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_BdBody
    return
end if

Write-Debug "Response status code: " + string(li_StatusCode)

//  Read the response body as text.
ls_ResponseBody = loo_Rest.ReadRespBodyString()
if loo_Rest.LastMethodSuccess = 0 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_BdBody
    return
end if

Write-Debug ls_ResponseBody


destroy loo_Rest
destroy loo_BdBody