(PowerBuilder) Example: Http.KeepResponseBody property

Demonstrates the KeepResponseBody property.

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

integer li_rc
integer li_Success
oleobject loo_Http

li_Success = 0

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Http.AwsAccessKey = "****"
loo_Http.AwsSecretKey = "****"

loo_Http.KeepResponseBody = 1

// Here we have a Chilkat method that sends a DELETE request and returns 1/0 for success/failure.
// If it fails we'll want to get the response status code and the response body.
// The response body will be available in the LastResponseBody property 
// because we set the KeepResponseBody property to 1.
li_Success = loo_Http.S3_DeleteBucket("example")

if li_Success = 0 then
    Write-Debug "response status code = " + string(loo_Http.LastStatus)
    Write-Debug loo_Http.LastResponseBody
else
    Write-Debug "Success: Bucket deleted."
end if

// Running the code as-is with the invalid data will return a response body
// that shows the error.

// response status code = 403
// <?xml version="1.0" encoding="UTF-8"?>
// <Error>
//   <Code>InvalidAccessKeyId</Code>
//   <Message>The AWS Access Key Id you provided does not exist in our records.</Message>
//   <AWSAccessKeyId>****</AWSAccessKeyId>
//   <RequestId>Y1REHYF8B7M3E771</RequestId>
//   <HostId>i3nf+VEHKqJ+roMNTFcQvWAbXre/wl5icQxuAN1Qsscm9iI/y8IO4z3QNxUefhcCE7hgrS8dNn9OBvKCeB3WccGLe318A4DFUQDPb11WmIg=</HostId>
// </Error>


destroy loo_Http