Xbase++

Send StringBuilder Contents over a Socket

Demonstrates Socket.SendSb, which encodes the contents of a StringBuilder using StringCharset and sends the resulting bytes.

Background. Text send and receive operations encode and decode bytes using the StringCharset property. For plain ASCII or UTF-8 protocols, setting StringCharset to utf-8 is a safe default.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oSocket
LOCAL nBTls
LOCAL nMaxWaitMs
LOCAL oSb

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"

//  Build the text to send in a StringBuilder, then send its contents.
oSb := CreateObject("Chilkat.StringBuilder")
oSb:Append("SET temperature 21" + Chr(13) + Chr(10))

nSuccess := oSocket:SendSb(oSb)
IF (nSuccess == 0)
    ? oSocket:LastErrorText
    oSocket:destroy()
    oSb:destroy()
    RETURN
ENDIF

? "Message sent."

oSocket:destroy()
oSb:destroy()