|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(DataFlex) SQS Receive MessageRetrieves 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.
Use ChilkatAx-win32.pkg Procedure Test Handle hoRest Boolean iBTls Integer iPort Boolean iBAutoReconnect Boolean iSuccess Variant vAuthAws Handle hoAuthAws String sResponseXml Handle hoXml String sUnused Variant vRec Handle hoRec String sTemp1 Integer iTemp1 Boolean bTemp1 // 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 |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.