Close a Socket Connection

See more Socket/SSL/TLS Examples

Demonstrates Socket.Close, which gracefully terminates and closes the current TCP, TLS, or SSH channel connection. The argument bounds how long to wait for clean shutdown processing.

LOCAL nSuccess
LOCAL oSocket
LOCAL nBTls
LOCAL nMaxWaitMs

nSuccess := 0

oSocket := CreateObject("Chilkat.Socket")

//  Connect to the server using TLS.  The 3rd argument enables the TLS handshake after the TCP
//  connection succeeds; the 4th is the maximum time to wait, in milliseconds.
nBTls := 1
nMaxWaitMs := 5000
nSuccess := oSocket:Connect("example.com", 5000, nBTls, nMaxWaitMs)
IF (nSuccess == 0)
    ? oSocket:LastErrorText
    oSocket:destroy()
    RETURN
ENDIF

//  StringCharset controls the character encoding used when sending and receiving text.
oSocket:StringCharset := "utf-8"

//  Gracefully close the current TCP, TLS, or SSH channel connection.  The argument is the maximum
//  number of milliseconds to wait for clean shutdown processing (0 waits indefinitely).
nSuccess := oSocket:Close(1000)
IF (nSuccess == 0)
    ? oSocket:LastErrorText
    oSocket:destroy()
    RETURN
ENDIF

? "Connection closed."

oSocket:destroy()