(Tcl) Send HTTPS Get Without Waiting for the Response
This example demonstrates sending an HTTP GET request without waiting for the response.
load ./chilkat.dll
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set rest [new_CkRest]
# Connect to the server using TLS
set bAutoReconnect 0
set success [CkRest_Connect $rest "example.com" 443 1 $bAutoReconnect]
if {$success == 0} then {
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
exit
}
# Send a GET request to https://example.com/some/path
set success [CkRest_SendReqNoBody $rest "GET" "/some/path"]
if {$success == 0} then {
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
exit
}
# OK, the request was sent.
# Close the connection.
set maxWaitMs 50
CkRest_Disconnect $rest $maxWaitMs
puts "GET Request Sent."
delete_CkRest $rest
|
