Visual FoxPro

Example: Http.KeepResponseBody property

Demonstrates the KeepResponseBody property. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp

lnSuccess = 0

loHttp = CreateObject('Chilkat.Http')

loHttp.AwsAccessKey = "****"
loHttp.AwsSecretKey = "****"

loHttp.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.
lnSuccess = loHttp.S3_DeleteBucket("example")

IF (lnSuccess = 0) THEN
    ? "response status code = " + STR(loHttp.LastStatus)
    ? loHttp.LastResponseBody
ELSE
    ? "Success: Bucket deleted."
ENDIF

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

RELEASE loHttp