(PowerBuilder) Azure Service Bus - Create Queue

Creates an Azure Service Bus Queue.

Note: This example requires Chilkat v9.5.0.65 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Rest
integer li_BAutoReconnect
integer li_Success
oleobject loo_SbToken
string ls_QueueName
oleobject loo_Xml
oleobject loo_SbRequestBody
oleobject loo_SbPath
oleobject loo_SbResponseBody

// 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.
loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
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
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("<yournamespace>.servicebus.windows.net",443,1,li_BAutoReconnect)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    return
end if

// ----------------------------------------------------------------------------------------------
// 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.
loo_SbToken = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbToken.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbToken.LoadFile("qa_data/tokens/serviceBusSas.txt","utf-8")

// Tell the REST object to use the Azure Shared Access Signature for authorization.
loo_SbToken.Prepend("SharedAccessSignature ")
loo_Rest.AddHeader("Authorization",loo_SbToken.GetAsString())

// ----------------------------------------------------------------------------------------------

// Create a new queue named "fox";
ls_QueueName = "fox"

// Create the XML body of the PUT request.
loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.Tag = "entry"
loo_Xml.AddAttribute("xmlns","http://www.w3.org/2005/Atom")
loo_Xml.UpdateAttrAt("title",1,"type","text")
loo_Xml.UpdateChildContent("title",ls_QueueName)
loo_Xml.UpdateAttrAt("content",1,"type","application/xml")
loo_Xml.UpdateAttrAt("content|QueueDescription",1,"xmlns:i","http://www.w3.org/2001/XMLSchema-instance")
loo_Xml.UpdateAttrAt("content|QueueDescription",1,"xmlns","http://schemas.microsoft.com/netservices/2010/10/servicebus/connect")
loo_Xml.EmitXmlDecl = 0
Write-Debug loo_Xml.GetXml()

// The XML created by the above code:

// 	<entry xmlns="http://www.w3.org/2005/Atom">
// 	    <title type="text">fox</title>
// 	    <content type="application/xml">
// 	        <QueueDescription xmlns:i="http://www.w3.org/2001/XMLSchema-instance" 
// 			xmlns="http://schemas.microsoft.com/netservices/2010/10/servicebus/connect" />
// 	    </content>
// 	</entry>

loo_SbRequestBody = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbRequestBody.ConnectToNewObject("Chilkat.StringBuilder")

loo_Xml.GetXmlSb(loo_SbRequestBody)

// The path should be set to the to-be-created queue name.
loo_SbPath = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbPath.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbPath.Append("/")
loo_SbPath.Append(ls_QueueName)

loo_SbResponseBody = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbResponseBody.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Rest.FullRequestSb("PUT",loo_SbPath.GetAsString(),loo_SbRequestBody,loo_SbResponseBody)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_SbToken
    destroy loo_Xml
    destroy loo_SbRequestBody
    destroy loo_SbPath
    destroy loo_SbResponseBody
    return
end if

Write-Debug "Response Status Code = " + string(loo_Rest.ResponseStatusCode)

// Check for a success response.
if loo_Rest.ResponseStatusCode <> 201 then
    Write-Debug loo_Rest.LastRequestStartLine
    Write-Debug loo_Rest.LastRequestHeader
    Write-Debug loo_SbResponseBody.GetAsString()
    Write-Debug "Failed."
    destroy loo_Rest
    destroy loo_SbToken
    destroy loo_Xml
    destroy loo_SbRequestBody
    destroy loo_SbPath
    destroy loo_SbResponseBody
    return
end if

// The response is XML.  (See a sample response below..)
loo_Xml.LoadSb(loo_SbResponseBody,1)
Write-Debug loo_Xml.GetXml()

Write-Debug "Success."

// -----------------------------------------------
// A sample successful XML response:

// 	<entry xmlns="http://www.w3.org/2005/Atom">
// 	    <id>https://chilkat.servicebus.windows.net/fox</id>
// 	    <title type="text">fox</title>
// 	    <published>2016-12-01T00:37:57Z</published>
// 	    <updated>2016-12-01T00:37:57Z</updated>
// 	    <author>
// 	        <name>chilkat</name>
// 	    </author>
// 	    <link rel="self" href="https://chilkat.servicebus.windows.net/fox" />
// 	    <content type="application/xml">
// 	        <QueueDescription xmlns="http://schemas.microsoft.com/netservices/2010/10/servicebus/connect" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
// 	            <LockDuration>PT1M</LockDuration>
// 	            <MaxSizeInMegabytes>1024</MaxSizeInMegabytes>
// 	            <RequiresDuplicateDetection>false</RequiresDuplicateDetection>
// 	            <RequiresSession>false</RequiresSession>
// 	            <DefaultMessageTimeToLive>P10675199DT2H48M5.4775807S</DefaultMessageTimeToLive>
// 	            <DeadLetteringOnMessageExpiration>false</DeadLetteringOnMessageExpiration>
// 	            <DuplicateDetectionHistoryTimeWindow>PT10M</DuplicateDetectionHistoryTimeWindow>
// 	            <MaxDeliveryCount>10</MaxDeliveryCount>
// 	            <EnableBatchedOperations>true</EnableBatchedOperations>
// 	            <SizeInBytes>0</SizeInBytes>
// 	            <MessageCount>0</MessageCount>
// 	            <CreatedAt>2016-12-01T00:37:57.66</CreatedAt>
// 	            <UpdatedAt>2016-12-01T00:37:57.677</UpdatedAt>
// 	        </QueueDescription>
// 	    </content>
// 	</entry>


destroy loo_Rest
destroy loo_SbToken
destroy loo_Xml
destroy loo_SbRequestBody
destroy loo_SbPath
destroy loo_SbResponseBody