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) SNS Create TopicCreates a new SNS topic. See SNS CreateTopic for more information.
load ./chilkat.dll # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set rest [new_CkRest] # Connect to the Amazon AWS REST server. # such as https://sns.us-west-2.amazonaws.com/ set bTls 1 set port 443 set bAutoReconnect 1 set success [CkRest_Connect $rest "sns.us-west-2.amazonaws.com" $port $bTls $bAutoReconnect] # Provide AWS credentials for the REST call. set authAws [new_CkAuthAws] CkAuthAws_put_AccessKey $authAws "AWS_ACCESS_KEY" CkAuthAws_put_SecretKey $authAws "AWS_SECRET_KEY" # the region should match our URL above.. CkAuthAws_put_Region $authAws "us-west-2" CkAuthAws_put_ServiceName $authAws "sns" CkRest_SetAuthAws $rest $authAws CkRest_AddQueryParam $rest "Action" "CreateTopic" CkRest_AddQueryParam $rest "Name" "chilkat" set responseXml [CkRest_fullRequestNoBody $rest "GET" "/"] if {[CkRest_get_LastMethodSuccess $rest] != 1} then { puts [CkRest_lastErrorText $rest] delete_CkRest $rest delete_CkAuthAws $authAws exit } # A successful response will have a status code equal to 200. if {[CkRest_get_ResponseStatusCode $rest] != 200} then { puts "response status code = [CkRest_get_ResponseStatusCode $rest]" puts "response status text = [CkRest_responseStatusText $rest]" puts "response header: [CkRest_responseHeader $rest]" puts "response body: $responseXml" delete_CkRest $rest delete_CkAuthAws $authAws exit } # Examine the successful XML response. set xml [new_CkXml] CkXml_LoadXml $xml $responseXml puts [CkXml_getXml $xml] # To get the TopicArn or RequestId puts "TopicArn: [CkXml_chilkatPath $xml CreateTopicResult|TopicArn|*]" puts "RequestId: [CkXml_chilkatPath $xml ResponseMetadata|RequestId|*]" # A sample successful response: # <?xml version="1.0" encoding="utf-8" ?> # <CreateTopicResponse xmlns="http://sns.amazonaws.com/doc/2010-03-31/"> # <CreateTopicResult> # <TopicArn>arn:aws:sns:us-west-2:123491831234:chilkat</TopicArn> # </CreateTopicResult> # <ResponseMetadata> # <RequestId>abcd1234-d61a-5115-83bd-abcdabcd6961</RequestId> # </ResponseMetadata> # </CreateTopicResponse> delete_CkRest $rest delete_CkAuthAws $authAws delete_CkXml $xml |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.