Xbase++

Connect a TCP or TLS Socket

Demonstrates Socket.Connect, which establishes a TCP connection to a host and port. Setting the TLS argument to _TRUE_ performs a TLS handshake after the TCP connection succeeds.

Background. The hostname may be a DNS name or a numeric IPv4/IPv6 address. The final argument bounds how long the connect attempt waits before failing. On failure, ConnectFailReason and LastErrorText provide detail.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

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"

//  The socket is now connected and ready to send and receive data using whatever protocol the
//  application implements.
? "Connected: " + Str(oSocket:IsConnected)

//  Close the connection when finished.  The argument is the maximum time to wait for a clean
//  shutdown, in milliseconds.
nSuccess := oSocket:Close(1000)
IF (nSuccess == 0)
    ? oSocket:LastErrorText
    oSocket:destroy()
    RETURN
ENDIF

oSocket:destroy()