Lianja

SSL Client Example

See more Socket/SSL/TLS Examples

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

llSuccess = .F.

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

loSocket = createobject("CkSocket")

llSsl = .T.
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:
llSuccess = loSocket.Connect(lcSslServerHost,lnSslServerPort,llSsl,lnMaxWaitMillisec)
if (llSuccess <> .T.) then
    ? loSocket.LastErrorText
    release loSocket
    return
endif

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

// Send a "Hello Server! -EOM-" message:
llSuccess = loSocket.SendString("Hello Server! -EOM-")
if (llSuccess <> .T.) then
    ? loSocket.LastErrorText
    release loSocket
    return
endif

// The server (in this example) is going to send a "Hello Client! -EOM-" 
// message.  Read it:
lcReceivedMsg = loSocket.ReceiveUntilMatch("-EOM-")
if (loSocket.LastMethodSuccess <> .T.) then
    ? loSocket.LastErrorText
    release loSocket
    return
endif

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

? lcReceivedMsg


release loSocket