Xbase++
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 Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nPort
LOCAL nBAutoReconnect
LOCAL oAuthAws
LOCAL cResponseXml
LOCAL oXml
LOCAL cUnused
LOCAL oRec

nSuccess := 0

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

oRest := CreateObject("Chilkat.Rest")

//  Connect to the Amazon AWS REST server.
//  such as https://sqs.us-west-2.amazonaws.com/
nBTls := 1
nPort := 443
nBAutoReconnect := 1
nSuccess := oRest:Connect("sqs.us-west-2.amazonaws.com", nPort, nBTls, nBAutoReconnect)

//  Provide AWS credentials for the REST call.
oAuthAws := CreateObject("Chilkat.AuthAws")
oAuthAws:AccessKey := "AWS_ACCESS_KEY"
oAuthAws:SecretKey := "AWS_SECRET_KEY"
//  the region should match our URL above..
oAuthAws:Region := "us-west-2"
oAuthAws:ServiceName := "sqs"

oRest:SetAuthAws(oAuthAws)

oRest:AddQueryParam("Action", "ReceiveMessage")
oRest:AddQueryParam("MaxNumberOfMessages", "5")
oRest:AddQueryParam("VisibilityTimeout", "15")
oRest:AddQueryParam("AttributeName", "All")
oRest:AddQueryParam("MessageAttributeName", "All")

//  Use the actual path part of your SQS queue URL here:
cResponseXml := oRest:FullRequestNoBody("GET", "/123456789123/chilkatTest")
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    oAuthAws:destroy()
    RETURN
ENDIF

//  A successful response will have a status code equal to 200.
IF (oRest:ResponseStatusCode != 200)
    ? "response status code = " + Str(oRest:ResponseStatusCode)
    ? "response status text = " + oRest:ResponseStatusText
    ? "response header: " + oRest:ResponseHeader
    ? "response body: " + cResponseXml
    oRest:destroy()
    oAuthAws:destroy()
    RETURN
ENDIF

//  Examine the successful XML response.
oXml := CreateObject("Chilkat.Xml")
oXml:LoadXml(cResponseXml)
? oXml:GetXml()
? "----"

//  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:
? "Body: " + oXml:ChilkatPath("ReceiveMessageResult|Message|Body|*")
? "MessageId: " + oXml:ChilkatPath("ReceiveMessageResult|Message|MessageId|*")

cUnused := oXml:ChilkatPath("ReceiveMessageResult|Message[0]|Attribute|$")

oRec := oXml:FindNextRecord("Name", "SenderId")
? "SenderId: " + oRec:GetChildContent("Value")
oRec:destroy()

oRec := oXml:FindNextRecord("Name", "ApproximateFirstReceiveTimestamp")
? "ApproximateFirstReceiveTimestamp: " + oRec:GetChildContent("Value")
oRec:destroy()

oRec := oXml:FindNextRecord("Name", "ApproximateReceiveCount")
? "ApproximateReceiveCount: " + oRec:GetChildContent("Value")
oRec:destroy()

oRec := oXml:FindNextRecord("Name", "SentTimestamp")
? "SentTimestamp: " + oRec:GetChildContent("Value")
oRec:destroy()

oXml:GetRoot2()

oRest:destroy()
oAuthAws:destroy()
oXml:destroy()