PowerBuilder
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 PowerBuilder Downloads

Download Chilkat for PowerBuilder
PowerBuilder
integer li_rc
integer li_Success
oleobject loo_Rest
integer li_BTls
integer li_Port
integer li_BAutoReconnect
oleobject loo_AuthAws
string ls_ResponseXml
oleobject loo_Xml
string ls_ReceiptHandle

li_Success = 0

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

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

// Connect to the Amazon AWS REST server.
// such as https://sqs.us-west-2.amazonaws.com/
li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("sqs.us-west-2.amazonaws.com",li_Port,li_BTls,li_BAutoReconnect)

// Provide AWS credentials for the REST call.
loo_AuthAws = create oleobject
li_rc = loo_AuthAws.ConnectToNewObject("Chilkat.AuthAws")

loo_AuthAws.AccessKey = "AWS_ACCESS_KEY"
loo_AuthAws.SecretKey = "AWS_SECRET_KEY"
// the region should match our URL above..
loo_AuthAws.Region = "us-west-2"
loo_AuthAws.ServiceName = "sqs"

loo_Rest.SetAuthAws(loo_AuthAws)

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

// Use the actual path part of your SQS queue URL here:
ls_ResponseXml = loo_Rest.FullRequestNoBody("GET","/123456789123/chilkatTest")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_AuthAws
    return
end if

// A successful response will have a status code equal to 200.
if loo_Rest.ResponseStatusCode <> 200 then
    Write-Debug "response status code = " + string(loo_Rest.ResponseStatusCode)
    Write-Debug "response status text = " + loo_Rest.ResponseStatusText
    Write-Debug "response header: " + loo_Rest.ResponseHeader
    Write-Debug "response body: " + ls_ResponseXml
    destroy loo_Rest
    destroy loo_AuthAws
    return
end if

// Examine the successful XML response.
loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.LoadXml(ls_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:
ls_ReceiptHandle = loo_Xml.ChilkatPath("ReceiveMessageResult|Message|ReceiptHandle|*")
Write-Debug "ReceiptHandle = " + ls_ReceiptHandle

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

loo_Rest.AddQueryParam("Action","DeleteMessage")
loo_Rest.AddQueryParam("ReceiptHandle",ls_ReceiptHandle)

// Use the actual path part of your SQS queue URL here:
ls_ResponseXml = loo_Rest.FullRequestNoBody("GET","/123456789123/chilkatTest")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_AuthAws
    destroy loo_Xml
    return
end if

// A successful response will have a status code equal to 200.
if loo_Rest.ResponseStatusCode <> 200 then
    Write-Debug "response status code = " + string(loo_Rest.ResponseStatusCode)
    Write-Debug "response status text = " + loo_Rest.ResponseStatusText
    Write-Debug "response header: " + loo_Rest.ResponseHeader
    Write-Debug "response body: " + ls_ResponseXml
    destroy loo_Rest
    destroy loo_AuthAws
    destroy loo_Xml
    return
end if

// Examine the successful XML response.
loo_Xml.LoadXml(ls_ResponseXml)
Write-Debug loo_Xml.GetXml()

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


destroy loo_Rest
destroy loo_AuthAws
destroy loo_Xml