AutoIt

Azure Service Bus - Send Batch of Messages to Topic or Queue

See more Azure Service Bus Examples

Shows how to send a batch of messages to a service bus queue or topic. AutoIt

Local $bSuccess = False

;  Note: Requires Chilkat v9.5.0.65 or greater.

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

;  Make the initial connection.
;  A single REST object, once connected, can be used for many Azure Service Bus REST API calls.
;  The auto-reconnect indicates that if the already-established HTTPS connection is closed,
;  then it will be automatically re-established as needed.
$oRest = ObjCreate("Chilkat.Rest")
Local $bAutoReconnect = True
$bSuccess = $oRest.Connect("<yournamespace>.servicebus.windows.net",443,True,$bAutoReconnect)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

;  ----------------------------------------------------------------------------------------------
;  The code above this comment could be placed inside a function/subroutine within the application
;  because the connection does not need to be made for every request.  Once the connection is made
;  the app may send many requests..
;  ----------------------------------------------------------------------------------------------

;  Let's load a previously computed SAS token and use it.
;  See Azure Shared Access Signature for an example to genenerate an Azure SAS token.
$oSbToken = ObjCreate("Chilkat.StringBuilder")
$oSbToken.LoadFile("qa_data/tokens/serviceBusSas.txt","utf-8")

;  Tell the REST object to use the Azure Shared Access Signature for authorization.
$oSbToken.Prepend("SharedAccessSignature ")
$oRest.AddHeader("Authorization",$oSbToken.GetAsString())

;  ----------------------------------------------------------------------------------------------

;  Send to a topic (or queue) named "gilaMonster";
Local $sTopicOrQueueName = "gilaMonster"

;  The HTTP request body contains JSON that contains multiple messages.
$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.I = 0
$oJson.UpdateString("messages[i].Body","This is the first message")
$oJson.UpdateString("messages[i].BrokerProperties.Label","M1")
$oJson.UpdateString("messages[i].BrokerProperties.TimeToLiveTimeSpan","0.00:00:40")

$oJson.I = 1
$oJson.UpdateString("messages[i].Body","This is the second message")
$oJson.UpdateString("messages[i].BrokerProperties.Label","M2")
$oJson.UpdateString("messages[i].UserProperties.Priority","Low")

$oJson.I = 2
$oJson.UpdateString("messages[i].Body","This is the third message")
$oJson.UpdateString("messages[i].BrokerProperties.Label","M3")
$oJson.UpdateString("messages[i].UserProperties.Priority","Medium")
$oJson.UpdateString("messages[i].UserProperties.Customer","ABC")

Local $oJsonA = $oJson.ArrayOf("messages")
$oJsonA.EmitCompact = False
ConsoleWrite($oJsonA.Emit() & @CRLF)

;  The following JSON array is produced by the above code:

;  	[
;  	  {
;  	    "Body": "This is the first message",
;  	    "BrokerProperties": {
;  	      "Label": "M1",
;  	      "TimeToLiveTimeSpan": "0.00:00:40"
;  	    }
;  	  },
;  	  {
;  	    "Body": "This is the second message",
;  	    "BrokerProperties": {
;  	      "Label": "M2"
;  	    },
;  	    "UserProperties": {
;  	      "Priority": "Low"
;  	    }
;  	  },
;  	  {
;  	    "Body": "This is the third message",
;  	    "BrokerProperties": {
;  	      "Label": "M3"
;  	    },
;  	    "UserProperties": {
;  	      "Priority": "Medium",
;  	      "Customer": "ABC"
;  	    }
;  	  }
;  	]

$oSbRequestBody = ObjCreate("Chilkat.StringBuilder")
$oJsonA.EmitCompact = True
$oJsonA.EmitSb($oSbRequestBody)

;  Build the path..
$oSbPath = ObjCreate("Chilkat.StringBuilder")
$oSbPath.Append("/")
$oSbPath.Append($sTopicOrQueueName)
$oSbPath.Append("/messages")

;  Add timeout and api-version query parameters.
$oRest.AddQueryParam("timeout","20")

;  The Content-Type should be "application/vnd.microsoft.servicebus.json"
$oRest.AddHeader("Content-Type","application/vnd.microsoft.servicebus.json")

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oRest.FullRequestSb("POST",$oSbPath.GetAsString(),$oSbRequestBody,$oSbResponseBody)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Response Status Code = " & $oRest.ResponseStatusCode & @CRLF)

;  Check for a success response.
If ($oRest.ResponseStatusCode <> 201) Then
    ConsoleWrite($oRest.LastRequestStartLine & @CRLF)
    ConsoleWrite($oRest.LastRequestHeader & @CRLF)
    ConsoleWrite($oSbResponseBody.GetAsString() & @CRLF)
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

;  If successful, the 201 response will have no response body.

ConsoleWrite("Success." & @CRLF)