B4X
SQS Delete Message

Deletes a message from an SQS queue. You specify the message by using the message's receipt handle and not the message ID you received when you sent the message. This example will first receive a message, and then use the receipt handle to delete it.
See SQS DeleteMessage or detailed information.
Chilkat B4X Downloads

Download Chilkat for B4X
B4X
Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim rest As ChilkatRest
rest.Initialize("rest")

'  Connect to the Amazon AWS REST server.
'  such as https://sqs.us-west-2.amazonaws.com/
Dim bTls As Boolean = True
Dim port As Int = 443
Dim bAutoReconnect As Boolean = True
success = rest.Connect("sqs.us-west-2.amazonaws.com", port, bTls, bAutoReconnect)

'  Provide AWS credentials for the REST call.
Dim authAws As ChilkatAuthAws
authAws.Initialize
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
'  the region should match our URL above..
authAws.Region = "us-west-2"
authAws.ServiceName = "sqs"

rest.SetAuthAws(authAws)

rest.AddQueryParam("Action", "ReceiveMessage")
rest.AddQueryParam("MaxNumberOfMessages", "5")
rest.AddQueryParam("VisibilityTimeout", "15")
rest.AddQueryParam("AttributeName", "All")
rest.AddQueryParam("MessageAttributeName", "All")

'  Use the actual path part of your SQS queue URL here:
Dim responseXml As String = rest.FullRequestNoBody("GET", "/123456789123/chilkatTest")
If rest.LastMethodSuccess <> True Then
    Log(rest.LastErrorText)
    Return
End If


'  A successful response will have a status code equal to 200.
If rest.ResponseStatusCode <> 200 Then
    Log("response status code = " & rest.ResponseStatusCode)
    Log("response status text = " & rest.ResponseStatusText)
    Log("response header: " & rest.ResponseHeader)
    Log("response body: " & responseXml)
    Return
End If


'  Examine the successful XML response.
Dim xml As ChilkatXml
xml.Initialize
xml.LoadXml(responseXml)

'  A successful response looks like this:
'  <?xml version="1.0" encoding="utf-8" ?>
'  <ReceiveMessageResponse xmlns="http://queue.amazonaws.com/doc/2012-11-05/">
'      <ReceiveMessageResult>
'          <Message>
'              <Body>this is a test</Body>
'              <MD5OfBody>54b0c58c7ce9f2a8b551351102ee0938</MD5OfBody>
'              <ReceiptHandle>AQEBMyLof...UbKBTvHtEg==</ReceiptHandle>
'              <Attribute>
'                  <Name>SenderId</Name>
'                  <Value>957491831129</Value>
'              </Attribute>
'  ...
'  ...
'              <MessageId>52882c65-5e21-4450-9024-93a3b01e61d3</MessageId>
'              <MD5OfMessageAttributes>2ff68603f4239272bd03f543254ed040</MD5OfMessageAttributes>
'          </Message>
'      </ReceiveMessageResult>
'      <ResponseMetadata>
'          <RequestId>05ba5c92-80ee-5f87-be76-0cf67b7475d6</RequestId>
'      </ResponseMetadata>
'  </ReceiveMessageResponse>

'  Get some values from the XML:
Dim receiptHandle As String = xml.ChilkatPath("ReceiveMessageResult|Message|ReceiptHandle|*")
Log("ReceiptHandle = " & receiptHandle)

'  Now use the receipt handle to delete the message.
'  Use the same connection (or automatically reconnect if needed)
rest.ClearAllQueryParams

rest.AddQueryParam("Action", "DeleteMessage")
rest.AddQueryParam("ReceiptHandle", receiptHandle)

'  Use the actual path part of your SQS queue URL here:
responseXml = rest.FullRequestNoBody("GET", "/123456789123/chilkatTest")
If rest.LastMethodSuccess <> True Then
    Log(rest.LastErrorText)
    Return
End If


'  A successful response will have a status code equal to 200.
If rest.ResponseStatusCode <> 200 Then
    Log("response status code = " & rest.ResponseStatusCode)
    Log("response status text = " & rest.ResponseStatusText)
    Log("response header: " & rest.ResponseHeader)
    Log("response body: " & responseXml)
    Return
End If


'  Examine the successful XML response.
xml.LoadXml(responseXml)
Log(xml.GetXml)

'  A successful DeleteMessage response looks like this:
'  <DeleteMessageResponse>
'      <ResponseMetadata>
'          <RequestId>
'              b5293cb5-d306-4a17-9048-b263635abe42
'          </RequestId>
'      </ResponseMetadata>
'  </DeleteMessageResponse>