PureBasic

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 PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkSocket.pb"

Procedure ChilkatExample()

    success.i = 0

    socket.i = CkSocket::ckCreate()
    If socket.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  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.
    bTls.i = 1
    maxWaitMs.i = 5000
    success = CkSocket::ckConnect(socket,"example.com",5000,bTls,maxWaitMs)
    If success = 0
        Debug CkSocket::ckLastErrorText(socket)
        CkSocket::ckDispose(socket)
        ProcedureReturn
    EndIf

    ;  StringCharset controls the character encoding used when sending and receiving text.
    CkSocket::setCkStringCharset(socket, "utf-8")

    ;  The socket is now connected and ready to send and receive data using whatever protocol the
    ;  application implements.
    Debug "Connected: " + Str(CkSocket::ckIsConnected(socket))

    ;  Close the connection when finished.  The argument is the maximum time to wait for a clean
    ;  shutdown, in milliseconds.
    success = CkSocket::ckClose(socket,1000)
    If success = 0
        Debug CkSocket::ckLastErrorText(socket)
        CkSocket::ckDispose(socket)
        ProcedureReturn
    EndIf



    CkSocket::ckDispose(socket)


    ProcedureReturn
EndProcedure