(Visual Basic 6.0) Example: Http.KeepResponseBody property

Demonstrates the KeepResponseBody property.

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

Dim success As Long
success = 0

Dim http As New ChilkatHttp

http.AwsAccessKey = "****"
http.AwsSecretKey = "****"

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.
success = http.S3_DeleteBucket("example")

If (success = 0) Then
    Debug.Print "response status code = " & http.LastStatus
    Debug.Print http.LastResponseBody
Else
    Debug.Print "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>