PowerBuilder
SQS Receive Message

Retrieves one or more messages from an Amazon SQS queue, with a maximum limit of 10 messages, from the specified queue.
See SQS ReceiveMessage or detailed information.
Chilkat PowerBuilder Downloads

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_Unused
oleobject loo_Rec

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)
Write-Debug loo_Xml.GetXml()
Write-Debug "----"

// 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>
//             <Attribute>
//                 <Name>ApproximateFirstReceiveTimestamp</Name>
//                 <Value>1475013283557</Value>
//             </Attribute>
//             <Attribute>
//                 <Name>ApproximateReceiveCount</Name>
//                 <Value>4</Value>
//             </Attribute>
//             <Attribute>
//                 <Name>SentTimestamp</Name>
//                 <Value>1475013283557</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:
Write-Debug "Body: " + loo_Xml.ChilkatPath("ReceiveMessageResult|Message|Body|*")
Write-Debug "MessageId: " + loo_Xml.ChilkatPath("ReceiveMessageResult|Message|MessageId|*")

ls_Unused = loo_Xml.ChilkatPath("ReceiveMessageResult|Message[0]|Attribute|$")

loo_Rec = loo_Xml.FindNextRecord("Name","SenderId")
Write-Debug "SenderId: " + loo_Rec.GetChildContent("Value")
destroy loo_Rec

loo_Rec = loo_Xml.FindNextRecord("Name","ApproximateFirstReceiveTimestamp")
Write-Debug "ApproximateFirstReceiveTimestamp: " + loo_Rec.GetChildContent("Value")
destroy loo_Rec

loo_Rec = loo_Xml.FindNextRecord("Name","ApproximateReceiveCount")
Write-Debug "ApproximateReceiveCount: " + loo_Rec.GetChildContent("Value")
destroy loo_Rec

loo_Rec = loo_Xml.FindNextRecord("Name","SentTimestamp")
Write-Debug "SentTimestamp: " + loo_Rec.GetChildContent("Value")
destroy loo_Rec

loo_Xml.GetRoot2()


destroy loo_Rest
destroy loo_AuthAws
destroy loo_Xml