Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Tcl) Azure Service Bus - Create TopicCreates an Azure Service Bus Topic. Note: This example requires Chilkat v9.5.0.65 or greater.
load ./chilkat.dll # 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. set rest [new_CkRest] set bAutoReconnect 1 set success [CkRest_Connect $rest "<yournamespace>.servicebus.windows.net" 443 1 $bAutoReconnect] if {$success != 1} then { puts [CkRest_lastErrorText $rest] delete_CkRest $rest exit } # ---------------------------------------------------------------------------------------------- # 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. set sbToken [new_CkStringBuilder] CkStringBuilder_LoadFile $sbToken "qa_data/tokens/serviceBusSas.txt" "utf-8" # Tell the REST object to use the Azure Shared Access Signature for authorization. CkStringBuilder_Prepend $sbToken "SharedAccessSignature " CkRest_AddHeader $rest "Authorization" [CkStringBuilder_getAsString $sbToken] # ---------------------------------------------------------------------------------------------- # Create a new topic named "gilaMonster"; set topicName "gilaMonster" # Create the XML body of the PUT request. set xml [new_CkXml] CkXml_put_Tag $xml "entry" CkXml_AddAttribute $xml "xmlns" "http://www.w3.org/2005/Atom" CkXml_UpdateAttrAt $xml "title" 1 "type" "text" CkXml_UpdateChildContent $xml "title" $topicName CkXml_UpdateAttrAt $xml "content" 1 "type" "application/xml" CkXml_UpdateAttrAt $xml "content|TopicDescription" 1 "xmlns:i" "http://www.w3.org/2001/XMLSchema-instance" CkXml_UpdateAttrAt $xml "content|TopicDescription" 1 "xmlns" "http://schemas.microsoft.com/netservices/2010/10/servicebus/connect" CkXml_put_EmitXmlDecl $xml 0 puts [CkXml_getXml $xml] # The XML created by the above code: # <entry xmlns="http://www.w3.org/2005/Atom"> # <title type="text">gilaMonster</title> # <content type="application/xml"> # <TopicDescription xmlns:i="http://www.w3.org/2001/XMLSchema-instance" # xmlns="http://schemas.microsoft.com/netservices/2010/10/servicebus/connect" /> # </content> # </entry> set sbRequestBody [new_CkStringBuilder] CkXml_GetXmlSb $xml $sbRequestBody # The path should be set to the to-be-created queue name. set sbPath [new_CkStringBuilder] CkStringBuilder_Append $sbPath "/" CkStringBuilder_Append $sbPath $topicName set sbResponseBody [new_CkStringBuilder] set success [CkRest_FullRequestSb $rest "PUT" [CkStringBuilder_getAsString $sbPath] $sbRequestBody $sbResponseBody] if {$success != 1} then { puts [CkRest_lastErrorText $rest] delete_CkRest $rest delete_CkStringBuilder $sbToken delete_CkXml $xml delete_CkStringBuilder $sbRequestBody delete_CkStringBuilder $sbPath delete_CkStringBuilder $sbResponseBody exit } puts "Response Status Code = [CkRest_get_ResponseStatusCode $rest]" # Check for a success response. if {[CkRest_get_ResponseStatusCode $rest] != 201} then { puts [CkRest_lastRequestStartLine $rest] puts [CkRest_lastRequestHeader $rest] puts [CkStringBuilder_getAsString $sbResponseBody] puts "Failed." delete_CkRest $rest delete_CkStringBuilder $sbToken delete_CkXml $xml delete_CkStringBuilder $sbRequestBody delete_CkStringBuilder $sbPath delete_CkStringBuilder $sbResponseBody exit } # The response is XML. (See a sample response below..) CkXml_LoadSb $xml $sbResponseBody 1 puts [CkXml_getXml $xml] puts "Success." # ----------------------------------------------- # A sample successful XML response: # <entry xmlns="http://www.w3.org/2005/Atom"> # <id>https://chilkat.servicebus.windows.net/gilaMonster</id> # <title type="text">gilaMonster</title> # <published>2016-12-06T23:34:13Z</published> # <updated>2016-12-06T23:34:13Z</updated> # <author> # <name>chilkat</name> # </author> # <link rel="self" href="https://chilkat.servicebus.windows.net/gilaMonster" /> # <content type="application/xml"> # <TopicDescription xmlns="http://schemas.microsoft.com/netservices/2010/10/servicebus/connect" xmlns:i="http://www.w3.org/2001/XMLSchema-instance"> # <DefaultMessageTimeToLive>P10675199DT2H48M5.4775807S</DefaultMessageTimeToLive> # <MaxSizeInMegabytes>1024</MaxSizeInMegabytes> # <RequiresDuplicateDetection>false</RequiresDuplicateDetection> # <DuplicateDetectionHistoryTimeWindow>PT10M</DuplicateDetectionHistoryTimeWindow> # <EnableBatchedOperations>true</EnableBatchedOperations> # <SizeInBytes>0</SizeInBytes> # <CreatedAt>2016-12-06T23:34:13.483</CreatedAt> # <UpdatedAt>2016-12-06T23:34:13.7</UpdatedAt> # </TopicDescription> # </content> # </entry> delete_CkRest $rest delete_CkStringBuilder $sbToken delete_CkXml $xml delete_CkStringBuilder $sbRequestBody delete_CkStringBuilder $sbPath delete_CkStringBuilder $sbResponseBody |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.