(Tcl) SSL Client Example

Demonstrates how to connect to an SSL server, send a simple message, receive a simple response, and disconnect.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set socket [new_CkSocket]

set ssl 1
set maxWaitMillisec 20000

# The SSL server hostname may be an IP address, a domain name,
# or "localhost".  You'll need to change this:

set sslServerHost "123.123.88.88"
set sslServerPort 8123

# Connect to the SSL server:
set success [CkSocket_Connect $socket $sslServerHost $sslServerPort $ssl $maxWaitMillisec]
if {$success != 1} then {
    puts [CkSocket_lastErrorText $socket]
    delete_CkSocket $socket
    exit
}

# Set maximum timeouts for reading an writing (in millisec)
CkSocket_put_MaxReadIdleMs $socket 20000
CkSocket_put_MaxSendIdleMs $socket 20000

# Send a "Hello Server! -EOM-" message:
set success [CkSocket_SendString $socket "Hello Server! -EOM-"]
if {$success != 1} then {
    puts [CkSocket_lastErrorText $socket]
    delete_CkSocket $socket
    exit
}

# The server (in this example) is going to send a "Hello Client! -EOM-" 
# message.  Read it:
set receivedMsg [CkSocket_receiveUntilMatch $socket "-EOM-"]
if {[CkSocket_get_LastMethodSuccess $socket] != 1} then {
    puts [CkSocket_lastErrorText $socket]
    delete_CkSocket $socket
    exit
}

# Close the connection with the server
# Wait a max of 20 seconds (20000 millsec)
set success [CkSocket_Close $socket 20000]

puts "$receivedMsg"

delete_CkSocket $socket