Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnBTls
LOCAL lnMaxWaitMs
LOCAL loSb

lnSuccess = 0

loSocket = 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.
lnBTls = 1
lnMaxWaitMs = 5000
lnSuccess = loSocket.Connect("example.com",5000,lnBTls,lnMaxWaitMs)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

*  StringCharset controls the character encoding used when sending and receiving text.
loSocket.StringCharset = "utf-8"

*  Build the text to send in a StringBuilder, then send its contents.
loSb = CreateObject('Chilkat.StringBuilder')
loSb.Append("SET temperature 21" + CHR(13) + CHR(10))

lnSuccess = loSocket.SendSb(loSb)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    RELEASE loSb
    CANCEL
ENDIF

? "Message sent."

RELEASE loSocket
RELEASE loSb