Asynchronous SSL Client Example

Demonstrates how to connect to an SSL server, send a simple message, receive a simple response, and disconnect. This example uses the asynchronous methods to connect, send, and receive.

Download Chilkat Socket ActiveX

LOCAL loSocket
LOCAL lnSuccess
LOCAL lnSsl
LOCAL lnMaxWaitMillisec
LOCAL lcSslServerHost
LOCAL lnSslServerPort

loSocket = CreateObject('Chilkat.Socket')

lnSuccess = loSocket.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Failed to unlock component")
    QUIT
ENDIF

lnSsl = 1

lnMaxWaitMillisec = 20000

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

lcSslServerHost = "123.123.88.88"

lnSslServerPort = 8123

*  Connect to the SSL server asynchronously in a background thread.
lnSuccess = loSocket.AsyncConnectStart(lcSslServerHost,lnSslServerPort,lnSsl,lnMaxWaitMillisec)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loSocket.LastErrorText)
    QUIT
ENDIF

*  Wait for the socket to become connected...
DO WHILE (loSocket.AsyncConnectFinished <> 1)
    *  Sleep 1 second.
    loSocket.SleepMs(1000)
ENDDO

*  Did the connect fail?
IF (loSocket.AsyncConnectSuccess <> 1) THEN
    =MESSAGEBOX(loSocket.AsyncConnectLog)
    QUIT
ENDIF

*  Set maximum timeouts for reading an writing (in millisec)
loSocket.MaxReadIdleMs = 20000
loSocket.MaxSendIdleMs = 20000

*  Send a "Hello Server! -EOM-" message:
lnSuccess = loSocket.AsyncSendString("Hello Server! -EOM-")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loSocket.LastErrorText)
    QUIT
ENDIF

*  Wait for the send to finish
DO WHILE (loSocket.AsyncSendFinished <> 1)
    *  Sleep 1 second.
    loSocket.SleepMs(1000)
ENDDO

*  Did the send fail?
IF (loSocket.AsyncSendSuccess <> 1) THEN
    =MESSAGEBOX(loSocket.AsyncSendLog)
    QUIT
ENDIF

*  The server (in this example) is going to send a "Hello Client! -EOM-"
*  message.  Begin reading asynchronously in a background thread:
lnSuccess = loSocket.AsyncReceiveUntilMatch("-EOM-")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loSocket.LastErrorText)
    QUIT
ENDIF

*  Wait for the background read to finish
DO WHILE (loSocket.AsyncReceiveFinished <> 1)
    *  Sleep 1 second.
    loSocket.SleepMs(1000)
ENDDO

*  Did the receive fail?
IF (loSocket.AsyncReceiveSuccess <> 1) THEN
    =MESSAGEBOX(loSocket.AsyncReceiveLog)
    QUIT
ENDIF

*  Display the received message:
=MESSAGEBOX(loSocket.AsyncReceivedString)

*  Close the connection with the server
*  Wait a max of 20 seconds (20000 millsec)
loSocket.Close(20000)