DataFlex
DataFlex
SQS Receive Message
See more Amazon SQS Examples
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 DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoRest
Boolean iBTls
Integer iPort
Boolean iBAutoReconnect
Variant vAuthAws
Handle hoAuthAws
String sResponseXml
Handle hoXml
String sUnused
Variant vRec
Handle hoRec
String sTemp1
Integer iTemp1
Boolean bTemp1
Move False To iSuccess
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
// Connect to the Amazon AWS REST server.
// such as https://sqs.us-west-2.amazonaws.com/
Move True To iBTls
Move 443 To iPort
Move True To iBAutoReconnect
Get ComConnect Of hoRest "sqs.us-west-2.amazonaws.com" iPort iBTls iBAutoReconnect To iSuccess
// Provide AWS credentials for the REST call.
Get Create (RefClass(cComChilkatAuthAws)) To hoAuthAws
If (Not(IsComObjectCreated(hoAuthAws))) Begin
Send CreateComObject of hoAuthAws
End
Set ComAccessKey Of hoAuthAws To "AWS_ACCESS_KEY"
Set ComSecretKey Of hoAuthAws To "AWS_SECRET_KEY"
// the region should match our URL above..
Set ComRegion Of hoAuthAws To "us-west-2"
Set ComServiceName Of hoAuthAws To "sqs"
Get pvComObject of hoAuthAws to vAuthAws
Get ComSetAuthAws Of hoRest vAuthAws To iSuccess
Get ComAddQueryParam Of hoRest "Action" "ReceiveMessage" To iSuccess
Get ComAddQueryParam Of hoRest "MaxNumberOfMessages" "5" To iSuccess
Get ComAddQueryParam Of hoRest "VisibilityTimeout" "15" To iSuccess
Get ComAddQueryParam Of hoRest "AttributeName" "All" To iSuccess
Get ComAddQueryParam Of hoRest "MessageAttributeName" "All" To iSuccess
// Use the actual path part of your SQS queue URL here:
Get ComFullRequestNoBody Of hoRest "GET" "/123456789123/chilkatTest" To sResponseXml
Get ComLastMethodSuccess Of hoRest To bTemp1
If (bTemp1 <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
// A successful response will have a status code equal to 200.
Get ComResponseStatusCode Of hoRest To iTemp1
If (iTemp1 <> 200) Begin
Get ComResponseStatusCode Of hoRest To iTemp1
Showln "response status code = " iTemp1
Get ComResponseStatusText Of hoRest To sTemp1
Showln "response status text = " sTemp1
Get ComResponseHeader Of hoRest To sTemp1
Showln "response header: " sTemp1
Showln "response body: " sResponseXml
Procedure_Return
End
// Examine the successful XML response.
Get Create (RefClass(cComChilkatXml)) To hoXml
If (Not(IsComObjectCreated(hoXml))) Begin
Send CreateComObject of hoXml
End
Get ComLoadXml Of hoXml sResponseXml To iSuccess
Get ComGetXml Of hoXml To sTemp1
Showln sTemp1
Showln "----"
// 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:
Get ComChilkatPath Of hoXml "ReceiveMessageResult|Message|Body|*" To sTemp1
Showln "Body: " sTemp1
Get ComChilkatPath Of hoXml "ReceiveMessageResult|Message|MessageId|*" To sTemp1
Showln "MessageId: " sTemp1
Get ComChilkatPath Of hoXml "ReceiveMessageResult|Message[0]|Attribute|$" To sUnused
Get ComFindNextRecord Of hoXml "Name" "SenderId" To vRec
If (IsComObject(vRec)) Begin
Get Create (RefClass(cComChilkatXml)) To hoRec
Set pvComObject Of hoRec To vRec
End
Get ComGetChildContent Of hoRec "Value" To sTemp1
Showln "SenderId: " sTemp1
Send Destroy of hoRec
Get ComFindNextRecord Of hoXml "Name" "ApproximateFirstReceiveTimestamp" To vRec
If (IsComObject(vRec)) Begin
Get Create (RefClass(cComChilkatXml)) To hoRec
Set pvComObject Of hoRec To vRec
End
Get ComGetChildContent Of hoRec "Value" To sTemp1
Showln "ApproximateFirstReceiveTimestamp: " sTemp1
Send Destroy of hoRec
Get ComFindNextRecord Of hoXml "Name" "ApproximateReceiveCount" To vRec
If (IsComObject(vRec)) Begin
Get Create (RefClass(cComChilkatXml)) To hoRec
Set pvComObject Of hoRec To vRec
End
Get ComGetChildContent Of hoRec "Value" To sTemp1
Showln "ApproximateReceiveCount: " sTemp1
Send Destroy of hoRec
Get ComFindNextRecord Of hoXml "Name" "SentTimestamp" To vRec
If (IsComObject(vRec)) Begin
Get Create (RefClass(cComChilkatXml)) To hoRec
Set pvComObject Of hoRec To vRec
End
Get ComGetChildContent Of hoRec "Value" To sTemp1
Showln "SentTimestamp: " sTemp1
Send Destroy of hoRec
Send ComGetRoot2 To hoXml
End_Procedure