Visual FoxPro

Close a Socket Connection

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.

Background. A value of 0 waits indefinitely for the clean close, while a positive value waits up to that many milliseconds.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnBTls
LOCAL lnMaxWaitMs

lnSuccess = 0

loSocket = 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.
lnBTls = 1
lnMaxWaitMs = 5000
lnSuccess = loSocket.Connect("example.com",5000,lnBTls,lnMaxWaitMs)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

*  StringCharset controls the character encoding used when sending and receiving text.
loSocket.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).
lnSuccess = loSocket.Close(1000)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

? "Connection closed."

RELEASE loSocket