Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Tcl) HTTP POST JSONDemonstrates how to send a JSON POST and get the JSON response.
load ./chilkat.dll # This requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code set req [new_CkHttpRequest] set http [new_CkHttp] # This example duplicates the HTTP POST shown at # http://json.org/JSONRequest.html # Specifically, the request to be sent looks like this: # POST /request HTTP/1.1 # Accept: application/jsonrequest # Content-Encoding: identity # Content-Length: 72 # Content-Type: application/jsonrequest # Host: json.penzance.org # # {"user":"doctoravatar@penzance.com","forecast":7,"t":"vlIj","zip":94089} # First, remove default header fields that would be automatically # sent. (These headers are harmless, and shouldn't need to # be suppressed, but just in case...) CkHttp_put_AcceptCharset $http "" CkHttp_put_UserAgent $http "" CkHttp_put_AcceptLanguage $http "" # Suppress the Accept-Encoding header by disallowing # a gzip response: CkHttp_put_AllowGzip $http 0 # If a Cookie needs to be added, it may be added by calling # AddQuickHeader: set success [CkHttp_AddQuickHeader $http "Cookie" "JSESSIONID=1234"] set jsonText "{\"user\":\"doctoravatar@penzance.com\",\"forecast\":7,\"t\":\"vlIj\",\"zip\":94089}" # To use SSL/TLS, simply use "https://" in the URL. # IMPORTANT: Make sure to change the URL, JSON text, # and other data items to your own values. The URL used # in this example will not actually work. # resp is a CkHttpResponse set resp [CkHttp_PostJson $http "http://json.penzance.org/request" $jsonText] if {[expr [CkHttp_get_LastMethodSuccess $http] != 1]} then { puts [CkHttp_lastErrorText $http] } else { # Display the JSON response. puts [CkHttpResponse_bodyStr $resp] delete_CkHttpResponse $resp } delete_CkHttpRequest $req delete_CkHttp $http |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.